Developing.ru

Код: Выделить всё

Sub test()
1.Объявить двухмерный массив,например aMyArray, с диапазоном "A1:B10", в разных элементах которого будут разные типы данных (числа, названия чего-то и т.д.);

2.Указать ссылку на него;

3.Обратиться к элементам этого массива, например в следующем случае:
    Объект_Name.Свойство1 = aMyArray("значение элем. массива,например, ячейки "A9")
    Объект_Name.Свойство2 = aMyArray("значение элем. массива,например, ячейки "B5")
    Объект_Name.Свойство3 = aMyArray("значение элем. массива,например, ячейки "A2")
    Объект_Name.Свойство4 = aMyArray("значение элем. массива,например, ячейки "B10")
          .
          .
          .
'и т.д. ещё для 16-ти оставшихся свойств объекта...

4.Очистить сохранённые в памяти значения массива aMyArray для того, чтобы использовать этот же массив в другой процедуре, если удачно отработает test()
End Sub

Код: Выделить всё

Sub test()
    Dim aMyArray ' объявлять массив не обязательно
    aMyArray = [a1:b10]
    Debug.Print aMyArray(1, 1)
    Debug.Print aMyArray(9, 2)
    Erase aMyArray ' очищать массив тоже не обязательно, т.к. массив объявлен в процедуре
End Sub

Код: Выделить всё

Sub test2()
    Объект_Name.Свойство1 = [a9]
    Объект_Name.Свойство2 = [B5]
End Sub

Код: Выделить всё

Sub test3()
    Dim aMyArray: aMyArray = [a1:b10]
    With Объект_Name
        .Свойство1 = aMyArray(1, 1)
        .Свойство2 = aMyArray(9, 2)
    End With
End Sub

Код: Выделить всё

Sub test4()
    Dim aMyArray: aMyArray = [a1:b10]
    With Объект_Name
        .Properties("Свойство2") = aMyArray(2, 2)
        For i = 1 To 10
            .Properties(aMyArray(i, 1)) = aMyArray(i, 2)
        Next
    End With
End Sub

Код: Выделить всё

    Объект_Name.Свойство1 = Application.Workbooks("Книга1.xls").Worksheets("Лист1").Range(A9)
    Объект_Name.Свойство2 = Application.Workbooks("Книга1.xls").Worksheets("Лист1").Range(B5)

Код: Выделить всё

Sub test()
Dim aMyArray: aMyArray = Application.Workbooks("Книга1.xls").Worksheets("Лист1").[B1:A10]
    With Объект_Name
        .Свойство1 = aMyArray(1, 1)
        .Свойство2 = aMyArray(9, 2)
    End With
End Sub

Код: Выделить всё

Dim aMyArray As Variant    ' (напишите в первой строке модуля) - массив доступен только из этого модуля
' или так:
'Public aMyArray As Variant    ' (напишите в первой строке модуля) - массив доступен из любого модуля

Sub test()
    aMyArray = Application.Workbooks("Книга1.xls").Worksheets("Лист1").[B1:A10]
    With Объект_Name
        .Свойство1 = aMyArray(1, 1)
        .Свойство2 = aMyArray(9, 2)
    End With
End Sub