Перебор элементов массива

Для перебора элементов массива удобно использовать цикл For...Next. В первом параметре переменной-счетчику присваивается значение нижней границы массива, а во втором параметре — значение верхней границы. После ключевого слова Step можно указать шаг на который будет изменяться значение переменной-счетчика. По умолчанию шаг равняется значению 1. Внутри цикла доступ к элементу осуществляется с помощью круглых скобок, внутри которых указывается переменная-счетчик. Выведем значения всех элементов массива в прямом и обратном порядке:

Dim Массив As Variant, i As Integer
Массив = Array(1, 2, 3, 4, 5)
' Выводим значения в прямом порядке
For i = LBound(Массив) To UBound(Массив)
   Debug.Print Массив(i)
Next i
' Выводим значения в обратном порядке
For i = UBound(Массив) To LBound(Массив) Step -1
   Debug.Print Массив(i)
Next i

Выполнить перебор элементов массива позволяет также цикл For Each...Next:

Dim Массив As Variant, Элемент As Variant
Массив = Array(1, 2, 3, 4, 5)
For Each Элемент In Массив
   Debug.Print Элемент
Next

На каждой итерации цикла переменной Элемент будет присваиваться значение текущего элемента массива. Обратите внимание на то, что переменная будет содержать копию значения элемента массива, поэтому любое изменение этой переменной внутри цикла не затронет значение самого элемента.

Visual Basic for Applications (VBA)
Самоучитель по VBA

Помощь сайту

Yandex-деньги: 410011140483022

ПАО Сбербанк:
Счет: 40817810855006152256
Реквизиты банка:
Наименование: СЕВЕРО-ЗАПАДНЫЙ БАНК ПАО СБЕРБАНК
Корреспондентский счет: 30101810500000000653
БИК: 044030653
КПП: 784243001
ОКПО: 09171401
ОКОНХ: 96130
Скриншот реквизитов

Поиск по сайту в Яндексе