Управляюча структура For Next

Ця структура дозволяє виконати визначені дії необхідну кількість разів.

Приклад:

Sub TestForNext()

Dim iCount As Integer, i As Byte

For iCount = 1 To 100 Step 2

i = i + 1

Next

MsgBox "Кількість повторень: " & i

End Sub

Коментарі:

For – ключове слово, що визначає початок циклу;

iCount – змінна, що визначає кількість повторень циклу;

1 – початкове значення лічильника;

To – ключове слово, що відокремлює початкове та кінцеве значення лічильника;

100 – кінцеве значення лічильника;

Step – ключове слово, що визначає крок лічильника;

2 – крок лічильника (число);

Next – ключове слово, при досягненні якого значення лічильника змінюється на величину кроку, після чого керування знов переходить до початку циклу.

У структурі For Next ключове слово Step необов’язкове. При його відсутності, крок виконання лічильника дорівнюватиме 1.

^{Зауваження!} Крок лічильника обов’язково повинен бути числом. Якщо крок лічильника вказано у вигляді від’ємного числа, тоді значення лічильника з кожним циклом буде зменшуватись.

Приклад (зі зверненим відліком):

Sub TestForNext2()

Dim iCount As Integer, i As Byte

For iCount = 300 To 1 Step -3

i = i + 1

Next iCount

MsgBox "Кількість повторень: " & i

End Sub

Зверніть увагу на:

Next iCount – у коді присутня змінна (лічильник), який розташовано після ключового слова. Подібний синтаксис використовується, як правило, для візуального визначення кінця циклу, якщо в VBA коді достатньо багато подібних конструкцій.

Цикл із передмовою – цикл, що виконується поки істинна деяка умова, зазначена перед його початком. Ця умова перевіряється до виконання тіла циклу, тому тіло може бути не виконано жодного разу (якщо умова із самого початку невірна). У VBA реалізується оператором While Wend, звідси його друга назва – while-цикл. Також можна скористатись оператором Do Loop.