Доброго времени суток, уважаемые форумчане. Возник небольшой вопроси, если на него есть решение, то буду очень рад его увидеть. Итак, наполняется словарь: в ключах названия, в итемах количество:
затем я отфильтровываю нужные мне значения. Все ОК, но можно ли и как, если можно, получить доступ и итемам отфильтрованных данных, чтобы иметь возможность подсчитать сумму аналогично Application.Sum(dicData.items), причем сделать это БЕЗ цикла (как в цикле я знаю). Не то чтобы мне мешал цикл или что-то другое, просто я предположил, что если VBA может отфильтровать данные словаря, то может и итемам отфильтрованных данных может получить доступ сразу, без цикла? Повторюсь, вопрос для самообразования, если такое невозможно, вопросов никаких быть не может
Заранее спасибо всем откликнувшимся
Код |
---|
Dim dicData As Object, i As Long, Data As Variant, Data2 As Variant Set dicData = CreateObject("Scripting.Dictionary"): dicData.CompareMode = 1 For i = 1 To 5 dicData.Item(Cells(i, 1)) = Cells(i, 2) Next i Data = Filter(dicData.keys, "р", , vbTextCompare) |
Заранее спасибо всем откликнувшимся