Уважаемые гуру форума, подскажите пожалуйста, есть ли АЛЬТЕРНАТИВНОЕ решение у задачи. Ситуация такая: словарем создается массив данных, который записывается в листбокс:
Код |
---|
For i = 1 To UBound(x) 'цикл на формирование списка документов If Month(x(i, 2)) & Year(x(i, 2)) = Month(Me.Mes.Value & "." & Me.God.Caption) & Me.God.Caption Then 'совпадение по месяцу и году расходного документа temp = x(i, 1) & "|" & x(i, 2) & "|" & x(i, 3) & "|" & x(i, 4) 'номер док-та|дата док-та|наименование товара д/договора|потребитель .Item(temp) = .Item(temp) + x(i, 7) * x(i, 8) End IfNext i On Error Resume Next ReDim Arr_data(1 To .Count, 1 To 5) For Each k In .Keys Data = Split(k, "|") j = j + 1 Arr_data(j, 1) = Format(Data(1), "dd.mm.yy") 'дата документа Arr_data(j, 2) = CStr(Data(0)) 'номер документа Arr_data(j, 3) = Data(3) 'потребитель Arr_data(j, 4) = Format(CDbl(Split(.Item(k), "-")(0)), "0.00") Arr_data(j, 5) = Data(2) 'наименование товара для договора (столбец нулевой длины) Next k Me.Data.Clear Me.Data.List = Arr_data End With |
Все работает правильно. Но возник такой вопрос: информация из столбца D (наименование товара для договора) используется в дальнейшем только для 1 вида документов и родилась такая мысль: убрать этот столбец полностью, а информацию из него поместить в комментарий к ячейке. Поясню, при вводе нового документа расхода я вношу в соответствующую ячейку комментарий (в примере ячейки Е2 и Е5) с обобщенным наименованием товара для договора. Как в дальнейшем мне извлечь эту информацию из комментария и поместить ее в массив Arr_Data? Что-то типа temp = x(i, 1) & "|" & x(i, 2) & "|" информация из комментария & "|" & x(i, 4). Можно ли так сделать? Сейчас все работает, так что если такой вариант невозможен, то ничего страшного. Заранее спасибо всем откликнувшимся.