Цикл For Each

Для обработки группы однородных объектов или массивов применяется следующая конструкция цикла:

For Each Элемент In Группа (имя группы однородных объектов)

[Инструкции] или [блок Операторов]

Exit For

Next элемент

Sub Test()

'Подготовка таблицы

Cells(1, 1) = " Иванов"

Cells(2, 1) = " Сидоров"

Cells(3, 1) = " Петров"

Cells(4, 1) = " Малинин"

Cells(5, 1) = " Калинин"

'Dim vari As Variant

For Each vari In Range(" A1: A5")

MsgBox (" Здравствуйте " & vari)

Next vari

End Sub

Цикл While

While условие (Например, x< 20)

[Инструкции] или [блок Операторов]

Wend

Sub сумма()

Dim x, s As Double

x = 0

s = 0

While x < = 100

s = s + x

x = x + 1

Wend

MsgBox (" s=" + Str(s))

End Sub

Цикл Do While…Loop

выполняет циклы до тех пор, пока соблюдается какое-либо заданное условие. Необходимо отметить, что условие проверяется до того, как выполняется инструкция или группа операторов.

В этом случае синтаксис операторов цикла Do While...Loop имеет следующий вид:

Do While условие (Например, x< 20)

[Инструкции] или [блок Операторов]

Exit Do

Loop

Пример