Next
Option Base 1
Управляющая инструкция For-Each-Next
Сейчас мы расскажем о, вероятно, самом мощном цикле VBA — For-Each-Next. Аналогичные структуры в других языках программирования встречаются очень редко. Инструкция For-Each-Next предназначена для выполнения одной и той же группы действий над каждым объектом семейства или элементом массива. Ниже приведен, простой пример этой инструкции:
Sub ForEachNext()
Dim Студенты(5) As String
Dim Студент As Variant
Студенты(1) = "Абрикосов"
Студенты(2) = "Богданов"
Студенты(3) = "Кузнецова"
Студенты(4) = "Милютин"
Студенты(5) ="Романова"
For Each Студент In Студенты
MsgBox Студент
В ForEachNext элементы массива Студенты заполняются фамилиями студентов, которые затем по очереди выводятся на экран в структуре For - Each - Next.
Обратите внимание, что, как и в случае For-Next, инструкции цикла выполняются определенное число раз, однако здесь Вам не придется заботиться об указании этого числа. Оно точно совпадает с количеством элементов массива (или объектов семейства). Этот пример можно переписать с помощью структуры For-Next:
|
|
Sub ForNext()
Dim Студенты(5) As String
Dim Count1 As Integer
Студенты(1) = "Абрикосов"
Студенты(2) = "Богданов"
Студенты(3) = "Кузнецова"
Студенты(4) = "Милютин"
Студенты(5) =" Романова "
For Count1 = 1 To UBound(Студенты)
MsgBox Студенты(Countl)