Как скопировать диапазон ячеек в массив памяти ОЗУ?

[Олег*]

Может быть некорректно вопрос сформулировал, сейчас попробую объяснить, о чем веду речь.

Вот, допустим, есть у нас большой диапазон ячеек. В приложенном примере, это диапазон A1:Z300. В каждой ячейке этого диапазона находится число, полученное в результате определенных вычислений. Мне хотелось бы  скопировать этот диапазон в массив памяти МойМассив(). Сейчас я это делаю с помощью циклов (см. в приложенном примере). Но если диапазон достаточно большой, то это занимает довольно много времени.

Вопрос состоит в том, чтобы найти (если это возможно) какой-нибудь более быстрый  способ для копирования диапазона ячеек рабочего листа в массив памяти ОЗУ. Если это возможно, то подскажите, пожалуйста, как это можно сделать? А если невозможно, ну значит так и буду продолжать копировать с помощью программных циклов

[Serge 007]

...найти какой-нибудь более быстрый  способ для копирования диапазона ячеек рабочего листа в массив памяти ОЗУ...

Код Выделить Развернуть

Dim MyArray
     MyArray = Array(Range("a1:z300").Value)

[_Boroda_]

Все бы было еще проще,
МойМассив() = Range("A1:Z300")
если бы не округление МойМассив(Y, X) = Round(Sheets("Лист1").Cells(Y, X), 2)

[Олег*]

Код Выделить Развернуть

Dim MyArray
     MyArray = Array(Range("a1:z300").Value)

Спасибо, но пока не понятно, как потом обращаться к конкретному члену этого массива? Какой массив создается при таком способе: одномерный, двумерный, статический, динамический?

Сейчас специально погуглил в поисках материалов по функции Array. Информации очень мало...

Все бы было еще проще,
МойМассив() = Range("A1:Z300")
если бы не округление МойМассив(Y, X) = Round(Sheets("Лист1").Cells(Y, X), 2)

И при таком подходе та же самая непонятка - какой это будет массив:  одномерный, двумерный, статический, динамический? Как с ним дальше-то работать?

[_Boroda_]

Запустите по F8

Код Выделить Развернуть

Private Sub Workbook_Open()
 Dim X As Long
 Dim Y As Long
 Dim МойМассив()

 МойМассив() = Range("A1:Z300")
 MsgBox "Массив в памяти создан. Для проверки: значение в ячейке B5 = " & _
            МойМассив(5, 2) & " .Это значение считано из созданного массива в памяти ОЗУ"
End Sub
двумерный, статический
работать как и собирались со своим, только нужно учитывать, что в этом нет округления

[Олег*]

Запустите по F8

Код Выделить Развернуть

Private Sub Workbook_Open()
 Dim X As Long
 Dim Y As Long
 Dim МойМассив()

 МойМассив() = Range("A1:Z300")
 MsgBox "Массив в памяти создан. Для проверки: значение в ячейке B5 = " & _
            МойМассив(5, 2) & " .Это значение считано из созданного массива в памяти ОЗУ"
End Sub
двумерный, статический
работать как и собирались со своим, только нужно учитывать, что в этом нет округления

Классно! Действительно работает!
А округление мне и не нужно совсем, это я просто для примера заполнил диапазон случайными числами, а потом округлил их исключительно для эстетики

[_Boroda_]

Дык в этом же и вся загвоздка и была.

[Олег*]

Кстати, любопытно отметить, что работает именно в таком виде, т.е. вот так:

Код Выделить Развернуть

Private Sub Workbook_Open()
Dim X As Long
Dim Y As Long
Dim МойМассив()

МойМассив() = Range("A1:Z300")

А если выбрать массив другого типа, в смысле, не Variant, а, например, Long, то работать уже отказывается.

И ещё вот так вот тоже не работает:

Код Выделить Развернуть

Private Sub Workbook_Open()
Dim X As Long
Dim Y As Long
Dim МойМассив()

МойМассив() = [МойДиапазон]

Наверно, в этом случае диапазон передается по значению, а Экселю нужно по ссылке...

[kuklp]

Код Выделить Развернуть

МойМассив() = [МойДиапазон].Value

[Олег*]

Код Выделить Развернуть

МойМассив() = [МойДиапазон].Value

Понял, спасибо.
Получается, наоборот, по значению хочет получить, а если именованный диапазон ему "скормить"  в голом виде ,тогда по ссылке получается и он выплевывает

[kuklp]

Все верно. Нам ведь надо получить динамический массив значений. Так тоже будет правильно:

Код Выделить Развернуть

МойМассив() = Range("A1:Z300").valueЛучше всегда явно указывать нужное свойство.

[Михаил С.]

двумерный, статический

двумерный, динамический

[Олег*]

двумерный, статический

двумерный, динамический

Спасибо за уточнение.