/ / Excel VBA робити до циклу

Excel VBA Do Until Loop

Хоча не дуже часто використовується на цьому сайті, ви можете опинитися в ситуації, коли ви хочете використовувати Робити до циклу в Excel VBA. Код, поміщений між Do Until і Loop, буде повторюватися, поки частина після Do Until не буде істиною.

Помістіть на вашій робочій клавіші команду та додайте наступні кодові рядки:

Dim i As Integer
i = 1

Do Until i > 6
    Cells(i, 1).Value = 20
    i = i + 1
Loop

Результат, коли ви натискаєте кнопку команди на аркуші:

Excel VBA Do Until Loop

Пояснення: доки я не перевищує 6, Excel VBA поміщає значення 20 в комірку на перетині рядка 1 та стовпчика 1 і збільшує значення i на 1. В результаті значення 20 буде розміщене в стовпці A шести разів (не семи, оскільки Excel VBA припиняється, коли я дорівнює 7).

Також читайте: