End Sub. Количество повторений операций цикла определяется количеством элементов массива

Next

End Sub

Next

Количество повторений операций цикла определяется количеством элементов массива.

Country – переменная типа Variant, которой присваиваются значения элементов массива;

Примечание: в инструкции For – Each – Next значения элементов массива можно использовать, но нельзя изменять.

Пример 2: доступ к элементам двумерного массива

Sub ForEachNext2DArray()

Dim Studentnames(2, 2) As String

Dim NameVar As Variant

Studentnames(1, 1) = "Kate"

Studentnames(1, 2) = "Mike"

Studentnames(2, 1) = "Paul"

Studentnames(2, 2) = "Mary"

For Each NameVar In Studentnames

MsgBox NameVar

Доступ ко всем элементам массива не зависит от его размерности.

Пример 3: операции с объектами (обращение к каждому рабочему листу из класса Worksheets активной рабочей книги, в результате которого имена листов последовательно выводятся на экран)

Sub ForEachNextWorksheet()

Dim SheetVar As Worksheet

For Each SheetVar In ActiveWorkbook.Worksheets

MsgBox SheetVar.Name

Next

Дата добавления: 2014-01-07