Простой вопрос о массивах - можно ли задать динамический многомерный массив?
Я написал так:
- Код: Выделить всё
Dim Row As Single
Dim ArrDimension As Single
Dim arrBalanceRows() As Single
Row = 2
ArrDimension = 0
Do While Sheets("B").Cells(Row, 1).Value <> ""
If UserForm1.cbbClients.Value = Sheets("B").Cells(Row, 1).Value And Sheets("B").Cells(Row, 3).Value = 0 Then
ArrDimension = ArrDimension + 1
ReDim Preserve arrBalanceRows(1 To ArrDimension, 1 To ArrDimension)
End If
Row = Row + 1
Loop
не работает - точнее - выдает ошибку (в строке ReDim Preserve arrBalanceRows(1 To ArrDimension, 1 To ArrDimension)).
Заранее спасибо.
С почтением,
Brudda
