End Sub. Здесь изменяются имена листов – перед каждым из них добавляется слово Work

Здесь изменяются имена листов – перед каждым из них добавляется слово Work. Для восстановления прежних имен введите следующий фрагмент кода:

Sub ForEachNextWorksheet()

Dim SheetVar As Worksheet

Dim x As Integer

x = 1

For Each SheetVar In ActiveWorkbook.Worksheets

SheetVar.Name = "Лист" & x

x = x + 1

MsgBox SheetVar.Name

Next

End Sub

Инструкцию For-Each-Next можно применять и для вызова методов объектов семейства. Следующая процедура закрывает все книги, оставляя лишь одну, в которой размещена сама процедура:

Sub ForEachNextWorkbook()

Dim Book As Workbook

For Each Book In Application.Workbooks

If Book.Name <> ThisWorkbook.Name Then

Book.Close

End If

Next

End Sub

В цикле имя каждой рабочей книги сравнивается с именем книги ThisWorkbook. Если имена не совпадают, для книги вызывается метод Close.

Управляющая инструкция While-Wend

Действие ее подобно действию For-Next, но группа инструкций выполняется не заданное число раз, а до соблюдения определенного условия. В программе WhileWend инструкция While-Wend использована для выделения определенного значения из последовательности случайных чисел.

Sub WhileWend()

Dim LotteryEntry As Integer

LotteryEntry = 0

While LotteryEntry <> 7

LotteryEntry = Int(10 * Rnd())

Beep

Wend

MsgBox "Выпал номер " & LotteryEntry & _

". Вы выиграли!"