Кожна техніка, розглянута до цього, працювала лише з одним значенням за раз. Цикли дозволяють застосовувати одну й ту ж логіку до багатьох значень підряд — п’яти продуктів, п’ятисот замовлень, скільки б рядків не містила таблиця — без необхідності копіювати й вставляти один і той самий блок коду знову й знову.

For...Next

Повторює блок коду фіксовану, відому кількість разів:

Dim i As Long
For i = 1 To 5
    Debug.Print "Row " & i
Next i
 
' Step lets you skip or count backward
For i = 10 To 1 Step -1
    Debug.Print i
Next i

У першому циклі i починається з 1, код всередині виконується один раз із цим значенням, потім i автоматично збільшується на 1 і весь блок виконується знову — повторюється, поки i не перевищить 5, після чого цикл просто зупиняється і виконання продовжується після Next. Step змінює крок: Step -1 рахує у зворотному напрямку замість стандартного збільшення на 1, а Step 2 рахуватиме через два. Змінна циклу i не є особливим синтаксисом — це звичайна змінна типу Long, яку VBA оновлює за вас при кожному проході.

For Each

Проходить по кожному елементу колекції напряму, без необхідності знати їхню кількість чи керувати лічильником вручну:

Dim cell As Range
For Each cell In ThisWorkbook.Worksheets("Products").Range("B2:B6")
    Debug.Print cell.Value
Next cell

Тут cell по черзі приймає кожну окрему клітинку з діапазону B2:B6, і ви зчитуєте її вміст через .Value. Порівняйте це з For...Next: у For...Next ви рахуєте числа і використовуєте це число для пошуку; у For Each ви проходите безпосередньо по самих елементах, що виглядає природніше при роботі з діапазонами аркуша.

Do While

Повторюється, поки умова залишається True — цикл не знає наперед, скільки разів він виконається, що відрізняє його від For...Next:

Dim stock As Integer
stock = 134
Do While stock > 0
    stock = stock - 30    ' simulate selling in batches of 30
Loop
Debug.Print stock   ' whatever's left after the loop stops

VBA перевіряє stock > 0 перед кожним проходом циклу, включаючи перший. Простежте вручну: 134 → 104 → 74 → 44 → 14, потім умова перевіряється знову — 14 все ще більше 0, тому цикл виконується ще раз, отримуємо -16. Лише тоді stock > 0 повертає False, і цикл зупиняється зі stock на -16, а не рівно на 0 чи 14. Це варто уважно простежити вперше, оскільки це поширене джерело помилок на одну ітерацію: цикл Do While продовжує виконуватись, поки умова істинна на момент перевірки, навіть якщо дія всередині циклу виходить за межу, яку ви мали на увазі.

Do Until

Є також Do Until, який є дзеркальним відображенням Do While — він повторюється, поки умова є False, і зупиняється, щойно умова стає True, а не навпаки. Який з них виглядає природніше, залежить від того, як ви сформулюєте бізнес-правило вголос: "продовжувати, поки є залишки" підходить для Do While; "продовжувати, поки не закінчаться залишки" — для Do Until. Вони можуть давати однакову поведінку, просто сформульовану з різних боків.

Оператори виходу

Дозволяють вийти з циклу раніше, до досягнення його природної кінцевої умови:

For i = 1 To 100
    If i = 10 Then Exit For   ' stop the loop immediately
    Debug.Print i
Next i

Цей цикл налаштований рахувати до 100, але щойно i досягає 10, Exit For зупиняє його — нічого після Exit For не виконується, і виконання переходить одразу до рядка після Next i. Цей підхід використовують для пошуку у списку і зупинки, як тільки знайдено потрібне, замість непотрібної перевірки всіх решти елементів.

Об’єднання всього разом

Усі техніки з цього розділу — змінні, оператори, функції, умовна логіка і тепер цикли — поєднуються у процедурі, до якої цей розділ і вів:

Option Explicit
 
Sub CheckStockLevels()
 
    ' Sample data standing in for the Products table
    Dim products(1 To 5) As String
    Dim stockLevels(1 To 5) As Integer
    Dim reorderLevels(1 To 5) As Integer
    Dim i As Long
    Dim alertMessage As String
 
    products(1) = "Laptop Stand": stockLevels(1) = 58: reorderLevels(1) = 20
    products(2) = "Wireless Mouse": stockLevels(2) = 134: reorderLevels(2) = 30
    products(3) = "USB-C Hub": stockLevels(3) = 44: reorderLevels(3) = 15
    products(4) = "Monitor Arm": stockLevels(4) = 18: reorderLevels(4) = 10
    products(5) = "Keyboard": stockLevels(5) = 61: reorderLevels(5) = 20
 
    alertMessage = ""
 
    For i = 1 To 5
        Select Case stockLevels(i)
            Case Is <= reorderLevels(i)
                alertMessage = alertMessage & products(i) & _
                    " — REORDER NOW" & vbNewLine
            Case Is <= reorderLevels(i) + 10
                alertMessage = alertMessage & products(i) & _
                    " — watch closely" & vbNewLine
        End Select
    Next i
 
    If alertMessage = "" Then
        MsgBox "All products are adequately stocked."
    Else
        MsgBox "Stock Alerts:" & vbNewLine & alertMessage
    End If
End Sub

Запустіть це, і ви побачите, що Моніторне кріплення позначено як "уважно стежити" (18 одиниць проти рівня поповнення 10) — вручну простежте виконання циклу для i = 4, якщо хочете точно переконатися, чому саме цей товар потрапляє під другу умову Case, а не під першу. Ця процедура використовує масиви, цикл, Select Case і формування рядків, які працюють разом. Це вже майже логіка виробничого рівня, просто вона працює з тестовими даними, введеними безпосередньо в код, а не з реальною таблицею.

Завдання

1. Скопіюйте CheckStockLevels у свою книгу та запустіть. Переконайтеся, що повідомлення відповідає скріншоту.
2. Змініть залишок Wireless Mouse на 25 і перезапустіть — тепер він також має відображатися як "уважно стежити".
3. Додайте цикл Do While нижче, який імітує продаж 15 одиниць Laptop Stand за раз, поки залишок не зменшиться до 20 або менше, виводячи поточний залишок у Вікно негайного виконання після кожного продажу.
4. Завдання з підвищеною складністю: перепишіть цикл For i = 1 To 5, використовуючи For Each по Variant-масиву — чи залишиться логіка коректною?