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

Для перебора элементов массива удобно использовать цикл 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

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

Предыдущая статья Все статьи Следующая статья