Аннотация
В этой статье содержатся примеры процедур Microsoft Visual Basic для приложений, которые можно использовать для работы с несколькими типами массивов.
Дополнительная информация
Корпорация Майкрософт предоставляет примеры программирования только для иллюстраций без гарантий, выраженных или подразумеваемых. Это включает, помимо прочего, подразумеваемые гарантии товарной пригодности или пригодности для конкретной цели. В этой статье предполагается, что вы знакомы с демонстрируемым языком программирования и средствами, используемыми для создания и отладки процедур. Инженеры службы поддержки Майкрософт могут помочь объяснить функциональность конкретной процедуры, но они не будут изменять эти примеры, чтобы предоставить дополнительные функциональные возможности или создать процедуры в соответствии с вашими конкретными требованиями. ПРИМЕЧАНИЕ. В Visual Basic для приложений процедурах слова после апострофа (') являются комментариями.
Заполнение массива и его последующее копирование на лист
-
Откройте новую книгу и вставьте лист модуля Visual Basic.
-
Введите следующий код на листе модуля.
Sub Sheet_Fill_Array() Dim myarray As Variant myarray = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10) Range("a1:a10").Value = Application.Transpose(myarray) End Sub
-
Выберите Лист1.
-
В меню Сервис наведите указатель мыши на пункт Макрос и выберите пункт Макросы.
-
В диалоговом окне Макрос щелкните Sheet_Fill_Array и нажмите кнопку Выполнить.
Для получения значений с листа и заполнения массива
-
Введите значения на листе 1 в ячейках A1:A10.
-
На листе модуля Visual Basic введите следующий код:
Sub from_sheet_make_array() Dim thisarray As Variant thisarray = Range("a1:a10").Value counter = 1 'looping structure to look at array While counter <= UBound(thisarray) MsgBox thisarray(counter, 1) counter = counter + 1 Wend End Sub
-
Выберите Лист1.
-
В меню Сервис наведите указатель мыши на пункт Макрос и выберите пункт Макросы.
-
В диалоговом окне Макрос щелкните from_sheet_make_array и нажмите кнопку Выполнить.
Передача и получение массива
-
На листе модуля введите следующий код:
Sub pass_array() Dim thisarray As Variant thisarray = Selection.Value receive_array (thisarray) End Sub Sub receive_array(thisarray) counter = 1 While counter <= UBound(thisarray) MsgBox thisarray(counter, 1) counter = counter + 1 Wend End Sub
-
Выберите Лист1 и выделите диапазон A1:A10.
-
В меню Сервис наведите указатель мыши на пункт Макрос и выберите пункт Макросы.
-
В диалоговом окне Макрос щелкните pass_array и нажмите кнопку Выполнить.
Сравнение двух массивов
-
Создайте два именованных диапазона на Листе 1. Назовите один диапазон1, а другой диапазон2.
Например, выделите диапазон ячеек A1:A10 и назовите его range1; выделите диапазон ячеек B1:B10 и назовите его range2. -
Введите следующий код на листе модуля.
Sub compare_two_array() Dim thisarray As Variant Dim thatarray As Variant thisarray = Range("range1").Value thatarray = Range("range2").Value counter = 1 While counter <= UBound(thisarray) x = thisarray(counter, 1) y = thatarray(counter, 1) If x = y Then MsgBox "yes" Else MsgBox "no" End If counter = counter + 1 Wend End Sub
-
Выберите Лист2.
-
В меню Сервис наведите указатель мыши на пункт Макрос и выберите пункт Макрос.
-
В диалоговом окне Макрос щелкните compare_two_array и нажмите кнопку Выполнить.
Вы увидите одно окно сообщений для каждого сравнения.
Заполнение динамического массива
-
На листе модуля введите следующий код:
Sub fill_array() Dim thisarray As Variant number_of_elements = 3 'number of elements in the array 'must redim below to set size ReDim thisarray(1 To number_of_elements) As Integer 'resizes this size of the array counter = 1 fillmeup = 7 For counter = 1 To number_of_elements thisarray(counter) = fillmeup Next counter counter = 1 'this loop shows what was filled in While counter <= UBound(thisarray) MsgBox thisarray(counter) counter = counter + 1 Wend End Sub
-
В меню Сервис наведите указатель мыши на пункт Макрос и выберите пункт Макросы.
-
В диалоговом окне Макрос щелкните fill_array и нажмите кнопку Выполнить.
ПРИМЕЧАНИЕ. Изменение переменной "number_of_elements" определяет размер массива.