End Sub. Инструкция For-Each-Next с семействами

Next

Инструкция For-Each-Next с семействами

Преимущества For-Each-Next при работе с массивами бесспорны, но они мерки рядом с достоинствами этой структуры в обращении с объектами семейств. Рассмотрим простой пример.

Sub ForEachNextWorksheet()

Dim SheetVar As Worksheet

For Each SheetVar In ActiveWorkbook.Worksheets

MsgBox SheetVar.Name

В ForEachNextWorksheet происходит обращение к каждому рабочему листу из семейства Worksheets активной рабочей книги, в результате которого имена листов последовательно выводятся на экран.

Вы вправе изменить значения свойств Name рабочих листов в этом примере.

Sub ForEachNextWorksheet()

Dim SheetVar As Worksheet

For Each SheetVar In ActiveWorkbook.Worksheets

SheetVar.Name = "Work" & SheetVar.Name

MsgBox SheetVar.Name