Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Как добавить два значение в словарь VBA
 
#1
16.02.2022 13:03:18
День добрый,

Я хочу сделать словарь, добавить в него ключ и значение из одного файла и при совпадении выгрузить значения в другой. Как добавить к одному ключу несколько значений для последующей выгрузки при совпадении? Данный код нормально работает на одном ключе и одном значении. Решение в виде 10 словарей думаю в корне неверное.

Код
With Workbooks(WBName).Worksheets(WBList)   
        vVALs = .Range(.Cells(2, 1), .Cells(Rows.Count, 1).End(xlUp)).Value2  
        For v = LBound(vVALs, 1) To UBound(vVALs, 1)   
            dict.Item((vVALs(v, 1))) = vVALs(v, 1)
        Next v
    End With
Изменено: Валерий Кишин - 16.02.2022 13:03:48
 
 
 
#2
16.02.2022 13:18:08
Можно сделать элементом словаря какой-нибудь дополняемый объект, например, словарь, или коллекцию, или массив, который потом будете переопределять Redim Preserve.
 
 
 
#3
16.02.2022 13:26:50
Цитата
МатросНаЗебре написал: элементом словаря какой-нибудь дополняемый объект
Серьезно? Так сложно? А нельзя просто item2, 3 и тд. до бесконечности и вытягивать? Реально получается правильный (не лучший, но рабочий) вариант делать 5 словарей для 5 значений?
 
 
 
#4
16.02.2022 13:57:39
Цитата
Валерий Кишин написал:
вариант делать 5 словарей для 5 значений?
8-0
А изначально добавить в словарь array(значерние) , а потом при совпадении ключа извлекать, переопределять, добавить в массив нельзя?
 
 
 
#5
16.02.2022 14:01:54
например, можно так:
Код
Sub ddd()
Dim dic As New Dictionary
mas1 = Range("A1:D9").Value
mas2 = Range("G3:J8").Value
For i = 1 To UBound(mas1)
    dic(mas1(i, 1)) = mas1(i, 2) & "|" & mas1(i, 3) & "|" & mas1(i, 4)
Next
For k = 1 To UBound(mas2)
    If dic.exists(mas2(k, 1)) Then
        For n = 2 To 4
            mas2(k, n) = Split(dic(mas2(k, 1)), "|")(n-2)
        Next
    End If
Next
Range("G3:J8").Value = mas2
End Sub
Изменено: Бахтиёр - 16.02.2022 14:08:29
 
 
 
#6
16.02.2022 14:28:33
Бахтиёр, Вот, спасибо, я так понимаю это мне подходит. Надо будет только в r1c1 перевести и нужные столбики загнать как в сбор так и выгрузку

doober, нет, к сожалению даже если Ваш совет правильный и лучший, то я не способен его осознать и перевести в код. Но когда я стану умнее, то я вернусь и применю его (надеюсь)
Изменено: Валерий Кишин - 16.02.2022 14:30:57
 
 
 
#7
16.02.2022 14:35:51
Что говорят тесты. Исследовал вопрос при написании своего аналога «СцепитьЕсли»
А так можно (буквально на ровном месте) заметно ускорить вариант от Бахтиёра
Изменено: Jack Famous - 16.02.2022 14:48:20
Во всех делах очень полезно периодически ставить знак вопроса к тому, что вы с давних пор считали не требующим доказательств (Бертран Рассел) ►Благодарности сюда◄
 
 
 
#8
16.02.2022 14:52:31
ИМХО, нужна коллекция с классами. Будет быстро (особенно если данных больше 300.000) ... Но кода больше )
Изменено: New - 16.02.2022 14:53:40
 
 
 
#9
16.02.2022 14:57:22
Цитата
New: Будет быстро
приветствую!
Готовы потетстить? Я вот сомневаюсь… Коллекции не тестил, но обёртка в виде класса всегда медленнее (возможно, незначительно) "чистого" кода, хоть и удобнее

Цитата
New: если данных больше 300.000
уже после 100 тыс лучше заменить — тут тестил

Модераторам (название темы):
VBA. Словарь «Dictionary». Как присвоить одному ключу несколько значений
Изменено: Jack Famous - 16.02.2022 15:06:01
Во всех делах очень полезно периодически ставить знак вопроса к тому, что вы с давних пор считали не требующим доказательств (Бертран Рассел) ►Благодарности сюда◄
 
 
 
#10
16.02.2022 15:02:50
Пример использования классов и коллекции можно взять из моего файла в этой теме
https://www.planetaexcel.ru/forum/index.php?PAGE_NAME=read&FID=1&TID=147388
P.S. при тестировании времени сортировку массива можно отключить там (закомментировав или удалив)
 
 
 
#11
16.02.2022 15:05:21
Цитата
New: Пример использования классов и коллекции можно взять из моего файла в этой теме
и какая связь между вашим подсчётом повторов и текущим сбором нескольких значений по одному ключу?
Во всех делах очень полезно периодически ставить знак вопроса к тому, что вы с давних пор считали не требующим доказательств (Бертран Рассел) ►Благодарности сюда◄
 
 
 
#12
16.02.2022 19:53:07
Jack Famous, Алексей, см. файл. А теперь увеличь все данные на листе до 1млн строк и потестируй Dictionary и Коллекцию классов. Я не тестировал, но думаю, что коллекция классов выиграет по скорости, т.к. и ты и я знаем, как Dictionary начинает тормозить после 100К ключей
Изменено: New - 16.02.2022 22:06:21
 
 
 
#13
16.02.2022 20:12:31
Я протестировал , получил ошибку.Где проверка на наличие ключа в коллекции?
И скорее всего не отвечает условиям, один ключ-несколько значений
 
 
 
#14
16.02.2022 20:22:32
дождёмся коммента Алексея )
 
 
 
#15
17.02.2022 09:39:36
New,
Цитата
doober: Где проверка на наличие ключа в коллекции?
а она съест время, поэтому в моих тестах я её учитывал

Цитата
New: дождёмся коммента Алексея
дык всё то же самое — я не понимаю, ЧТО ты хотел показать

1. Скорость наполнения и поиска ключей становится выше у КОЛЛЕКЦИИ в сравнеии с маасивом ТОЛЬКО ПОСЛЕ 100 тыс ключей (редко)
Я это уже тестил и наглядно показал в сравнительных отчётах

2. Ты опять сравнил Словари, но не с Коллекцией, а с коллекцией классов
Где тогда сравнение коллекции с коллекцией классов, чтобы было понятно, что классы лучше

3. Ты забыл самое главное
Никакие СОТНИ ТЫСЯЧ значений никто и никогда не добавляет к ОДНОМУ КЛЮЧУ, поэтому зачем это всё, если объёмы изначально другие
Изменено: Jack Famous - 17.02.2022 09:41:30
Во всех делах очень полезно периодически ставить знак вопроса к тому, что вы с давних пор считали не требующим доказательств (Бертран Рассел) ►Благодарности сюда◄
 
 
 
#16
17.02.2022 09:55:11
Jack Famous, У Вас тема-то куда полетела, просли просто добавить  :D
 
 
 
#17
17.02.2022 12:14:25
Jack Famous,
С 1-м никто и не спорил.
2. Я же в сообщении 8 написал, что для решения задачи ТС можно использовать коллекцию классов, а не просто коллекцию. Так как в классе можно хранить сразу много полей (значений). А так же я написал, что если данных очень много.
3. Я предложил лишь ещё один вариант как можно решить задачу ТС. Когда в других темах на вопрос ТС дают вариант решения и макросом и формулой и PQ это считается нормальным.
Коллекция классов универсальнее Dictionary, быстрее на больших объемах данных, чем Dictionary, но больше кода.
Так же если макрос работает на Мак (компьютеров от Apple) там нет Dictionary. Там есть только Collection. Согласись, при определенных условиях преимущества у классов есть?
Сейчас в этой теме есть 2 решения. Первое от Бахтиёр (с твоим замечанием по улучшению) и мой вариант с коллекцией классов
Изменено: New - 17.02.2022 13:20:03
 
 
 
#18
17.02.2022 12:34:33
Цитата
New: Сейчас в этой теме есть 2 решения
я только за, просто хотел увидеть сравнение коллекции с коллекцией классов
Сделал тему
Изменено: Jack Famous - 18.02.2022 10:34:01
Во всех делах очень полезно периодически ставить знак вопроса к тому, что вы с давних пор считали не требующим доказательств (Бертран Рассел) ►Благодарности сюда◄
 
 
 
Страницы: 1
Наверх