Привет всем участникам зелёного форума.
Учу словарик на VBA, поставил себе задачу посчитать суммы по статьям нарастающим итогом, но что то у меня идёт не так. Иду по списку, проверяю exists- ом, если да - то плюсую к 0 итем по ключу.
Не стал делать слишком много статей в файле, что бы не усложнять. Хочу понять, как сделать так что бы можно было идти циклом по массиву со статьями, и при срабатывании свойства exists, считалась сумма в нарастании по каждой статье, далее выгружалась в ("b4") (эта часть не проблема)
Учу словарик на VBA, поставил себе задачу посчитать суммы по статьям нарастающим итогом, но что то у меня идёт не так. Иду по списку, проверяю exists- ом, если да - то плюсую к 0 итем по ключу.
Не стал делать слишком много статей в файле, что бы не усложнять. Хочу понять, как сделать так что бы можно было идти циклом по массиву со статьями, и при срабатывании свойства exists, считалась сумма в нарастании по каждой статье, далее выгружалась в ("b4") (эта часть не проблема)
| Код |
|---|
Sub lknb()
'просуммировать значения в нарастании по ключам
Dim d1 As Object, i As Integer, j As Integer
Dim a, b, c
'пилим словарь
Set d1 = CreateObject("scripting.dictionary")
'массив с нарастающим итогом
a = Range("a4").CurrentRegion
'массив сттатей, которые попадут в нарастающий итог
b = Range("d4").CurrentRegion
For i = 1 To UBound(a, 1)
d1.Add a(i, 1), 0
Next
'прохожусь по статьям в массиве b. Если есть ключ сущестует, тогда
'к итему с 0 суммой прибавляется сумма привязанная к этому ключу
For i = 1 To UBound(b, 1)
If d1.Exists((a(1, 1))) Then d1(a(1, 1)) = d1(a(1, 1)) + b(i, 2)
Next
'массив для вставки сложенных в нарастании итемов (сумм) по ключам
'ReDim c(1 To UBound(a, 1), 1 To 1)
c = d1(a(1, 1))
Stop
End Sub
|
Изменено: - 03.11.2022 07:26:11
