Выбрать дату в календареВыбрать дату в календаре

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 769 След.
сравнение строк в двух таблицах разных книг
 
Цитата
Александр Маслов написал:
надо иногда только выделить во 2 таблице по данным первой
- пишите ВПР во 2 таблице.
Про дубликаты не понял - в чём проблема применить стандартный инструмент?
Изменено: Hugo - 17.11.2021 13:37:07
сравнение строк в двух таблицах разных книг
 
ВПР() решает! :)
Вывести без дубликатов все возможные варианты замен., поиск по наличию слова в ячейке
 
Ошибка в данных, для этого кода нужны данные как в примере - в третьем столбце должны быть артикулы из первого.
Ну или нужно менять как-то код.
По зависанию не знаю, у меня не завис.
Получить данные в итоговой таблице при смене месяца,
 
Цитата
Анна Головко написал:
Можно ли решить этот вопрос используя функцию ДВССЫЛЛ()?
Можно, с помощью ВПР()
P.S. Вот в файле справа залил жёлтым две ячейки, можно ВПР() внедрить в первую ячейку.
Изменено: Hugo - 13.11.2021 18:54:57
Запрос Power Query грузит из файла в 2-3 раза больше мегабайт, чем весит сам файл-источник
 
Можно распаковать, посмотреть файлы, изменить... Кстати иногда бывает полезно посмотреть что за значения на самом деле там в прописаны для ячеек, когда Эксель ведёт себя непойми как...
VBA. Почему нуль в ячейке определяется как отрицательное значение?
 
Ну а что не так? Если можете пренебречь точностью - округляйте значение в макросе.
Запрос Power Query грузит из файла в 2-3 раза больше мегабайт, чем весит сам файл-источник
 
Ну да, архив.
VBA. Почему нуль в ячейке определяется как отрицательное значение?
 
Вероятно потому что там не 0, а например -0,000000000001
Конкретно -0,00000000000000111022302462516
Изменено: Hugo - 13.11.2021 15:36:46
Запрос Power Query грузит из файла в 2-3 раза больше мегабайт, чем весит сам файл-источник
 
Ну файл ведь наверное архив?
Макрос Число в текст на турецком адаптировать под русскую версию
 
В коде есть турецкие символы, которые нужно там же заменить на коды CHRW()
Никто кроме "турка" это не сделает :(
Изменено: Hugo - 13.11.2021 10:26:15
Проблема с названием листов после установки офиса
 
Может нужно ставить оригинальную версию от производителя?
Как преобразовать текст в число?, Как преобразовать текст в число?
 
Зачем тут файл? Ну ясно ведь что ВПР с текстом работает. А если не работает - значит неправильно написали формулу, читайте хелп. Или нет совпадений, потому что или формат не совпадает, или ещё и значения.
P.S. Вы в файле к номерам и фамилиям ещё срок годности карты напишите, и cvv
Изменено: Hugo - 12.11.2021 19:29:32
Как преобразовать текст в число?, Как преобразовать текст в число?
 
Так и ищите. Текст в столбце с текстом, без проблем.
А вот УФ и счёт/суммесли наврёт кстати!
Выгрузка данных в csv из модели данных, Как выгрузить более 1048576 строк
 
А можно посмотреть как Вы смотрели что там в csv только 1048576 строк?
Как преобразовать текст в число?, Как преобразовать текст в число?
 
Так вроде как никак, последнюю цифру теряете...
Извлечь и объединить повторяющиеся значения
 
В копилке есть UDF которая правда собирает из одного столбца, но можно подкрутить и будет собирать из двух.
Это если нет пунктика "чур меня" :)
Вывести без дубликатов все возможные варианты замен., поиск по наличию слова в ячейке
 
Я там дописал код который заполняет замены только для нужных выделенных кодов. Коды должны быть рядом в столбце, любом.
Кстати если код оставить в модуле листа, то можно доработать (а может и так взлетит) для использования/заполнения диапазона в любом другом листе или даже файле.
Т.е. есть база замен с этим кодом, и его применяете к любому другому клиентскому файлу с кодами, к которым нужно подобрать замены.

P.S. Проверил, работает и в другом файле вот прямо как есть.
Но чуть изменил код выше чтоб обрабатывало случаи когда вписан код для которого в базе нет информации по замене.
Изменено: Hugo - 11.11.2021 20:24:10
Вывести без дубликатов все возможные варианты замен., поиск по наличию слова в ячейке
 
Или вот так - в том файле пишите в E2 и E3
A001
A005
выделяете их, выполняете код

Код
Option Explicit

Sub Perebor2() 'коллекция в словаре
    Dim a, i&, t, Dic As Object
    Dim el, elel, col, s$, c As Range
     
    a = Range("C2", Cells(Rows.Count, "A").End(xlUp)).Value
    Set Dic = CreateObject("Scripting.Dictionary")
     
    On Error Resume Next
    With Dic
        .CompareMode = 1
        For i = 1 To UBound(a)
            For Each t In Split(a(i, 3), "/")
            For Each el In Split(a(i, 3), "/")
            If Not .exists(t) Then .Add t, New Collection
            .Item(t).Add el, el
            Next
            Next
        Next
         
    End With
     
     For Each el In Dic.keys
        For Each col In Dic.Item(el)
        For Each elel In Dic.Item(col)
            Dic.Item(el).Add elel, elel
        Next
        Next
    Next
    On Error GoTo 0
     

For Each c In Selection.Cells
s = "": el = Trim(c)
    If Dic.exists(el) Then
        For Each col In Dic.Item(el)
            If col <> el Then s = s & "/" & col
        Next
    Else
        s = "/Нет замен"
    End If
        c.Next = Mid(s, 2)
Next
End Sub

Изменено: Hugo - 11.11.2021 20:23:09
Вывести без дубликатов все возможные варианты замен., поиск по наличию слова в ячейке
 
Ну тогда наверное вариант 2: Можно сделать типа ВПР уже к готовому списку, чтоб заполнял диапазон.
Или сразу идти дальше и искать наличие по складу первой детали, если мало то ищем вторую по замене и т.д.

P.S. Изменил в файле код чтоб он заполнял вторую таблицу.
Изменено: Hugo - 11.11.2021 19:56:48
Вывести без дубликатов все возможные варианты замен., поиск по наличию слова в ячейке
 
Да просто можно вместо вывода в окно отладки сделать вывод на чистый лист. В два столбца как в примере, или в кучу столбцов правее сколько есть на замену.
И далее с этого листа уже можете тянуть ВПРой.
Можно сделать типа ВПР уже к готовому списку, чтоб заполнял диапазон.
Можно сделать UDF, т.е. применять как функцию с двумя или тремя параметрами.
Вы пока так и не описали что именно нужно ПРАКТИЧЕСКИ.

P.S. Да и сортировку можно приладить, но она будет воровать время, а если там 100000 строк то будет заметно.
Но если применять в UDF и сортировать нужно только то, что конкретно выводится в одну ячейку, то можно и посортировать.
Изменено: Hugo - 11.11.2021 19:38:07
Вывести без дубликатов все возможные варианты замен., поиск по наличию слова в ячейке
 
Вообще-то происходит, но смотреть нужно в окно отладки, я ведь написал что это заготовка.
И код лучше располагать в стандартном модуле, хотя работает и из модуля листа.
P.S. Я взял один из древних своих кодов из загашника, и чуть его дополнил, поэтому он конечно довольно топорный, но работает.
Чтоб реально его применять - нужно бы сперва разобраться как/где вообще на практике это нужно?
Изменено: Hugo - 11.11.2021 19:09:51
Вывести без дубликатов все возможные варианты замен., поиск по наличию слова в ячейке
 
Выкидывать может на маке... Но и там можно заставить.
Вывести без дубликатов все возможные варианты замен., поиск по наличию слова в ячейке
 
Ага. Там можно с мобилы сидеть :)
Вывести без дубликатов все возможные варианты замен., поиск по наличию слова в ячейке
 
Заготовка, можно сделать UDF или макросом заполнить/сгенерить таблицу.
Только сортировки нет.

Код
Sub Perebor() 'коллекция в словаре
    Dim a, i&, t, Dic As Object
    Dim el, elel, col
    
    a = Range("C2", Cells(Rows.Count, "A").End(xlUp)).Value
    Set Dic = CreateObject("Scripting.Dictionary")
    
    On Error Resume Next
    With Dic
        .CompareMode = 1
        For i = 1 To UBound(a)
            For Each t In Split(a(i, 3), "/")
            For Each el In Split(a(i, 3), "/")
            If Not .exists(t) Then .Add t, New Collection
            .Item(t).Add el, el
            Next
            Next
        Next
        
    End With
    
     For Each el In Dic.keys
        For Each col In Dic.Item(el)
        For Each elel In Dic.Item(col)
            Dic.Item(el).Add elel, elel
        Next
        Next
    Next
    On Error GoTo 0
    
    For Each el In Dic.keys
        Debug.Print "Артикул " & el
        For Each col In Dic.Item(el)
            If col <> el Then Debug.Print "Замена " & col
        Next
    Next

End Sub

Работа с выпадающими списками
 
ВПР()
Размножить столбцы с объединенными ячейками
 
Размножить зло? ... :)
Надо сВПРить выпадающий список из другой таблицы (прилагаю пример), Надо сВПРить выпадающий список из другой таблицы (прилагаю пример)
 
ВПР() это не сделает. Как и любая другая формула.
Закрытие в VBA нового окна Excel
 
А зачем код их открывает и тут же закрывает, никак не изменяя файл?
Хотя т.к. код в очередной раз обрезан, кто его знает что там...
Изменено: Hugo - 09.11.2021 12:55:46
Сопоставить два списка и получить все возможные варианты номеров телефонов
 
Может быть справится PowerBi, не знаю на каком пределе он просит денег, не работал.
Я в другом Би работаю, там такие объёмы не проблема, но оно конечно стоит денег.
Формат ячеек общий массово заменить на текстовый с зеленым индикатором
 
Nadeznee:
Код
    With Intersect(Columns(5), ActiveSheet.UsedRange)
    .Replace What:=vbLf & vbLf, Replacement:="'", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False, FormulaVersion:=xlReplaceFormula2
    End With
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 769 След.
Наверх