Vba цикли - for next і for each в excel, exceltip

Цикл For Loop в VBA - один з найпопулярніших циклів в Excel. Даний цикл має дві форми - For Next і For Each In Next. Дані оператори використовуються для послідовного переміщення по списку елементів або чисел. Для завершення циклу ми можемо в будь-який момент використовувати команду виходу. Давайте докладніше розглянемо кожен з цих циклів.

VBA цикл For Next

Цикл For Next повинен виглядати так:

For лічильник = начало_счетчіка To конец_счетчіка
'Якийсь дію
Next лічильник

Те що ми робимо тут, по суті, це створюємо цикл, який використовує змінну лічильник як хранитель часу. Встановлюємо його значення рівним начало_счетчіка. і збільшуємо (або зменшуємо) на 1 під час кожного витка. Цикл буде виконуватися до тих пір, поки значення лічильник не стане рівним конец_счетчіка. Коли обидва ці значення зійдуться, цикл виконається останній раз і зупиниться.

Sub прімер_цікла1 ()
For лічильник = 1 to 10
j = лічильник
Next лічильник
msgbox "Значення лічильника на останньому витку одно" - лічильник
End Sub

Останнє значення змінної лічильник буде рівним 11

VBA зворотний цикл For Loop з інструкцією STEP

Якщо у вас з'явилася необхідність переміщатися від більшого значення до меншого - ви можете використовувати цикл в зворотному напрямку. Ось приклад зворотного циклу:

Sub прімер_цікла2 ()
For лічильник = 10 to 1 Step -1
j = лічильник
Next лічильник
msgbox "Значення лічильника на останньому витку одно" - лічильник
End Sub

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

Як ви могли помітити, ми можемо використовувати інструкцію Stepn для роботи циклу як вперед, так і в зворотному напрямку. За замовчуванням значення Step дорівнює 1, але воно може бути змінено, якщо необхідно пропускати будь-які значення, тоді значення n буде більше одного, або переміщатися в зворотному напрямку, тоді n буде негативним.

VBA цикл For Each ... Next

Цикл For Each ... Next має наступний цикл:

For Each елемент_группи In группа_елементов
'Якийсь дію
Next елемент_группи

Тут змінна елемент_группи належить до группе_елементов (залізна логіка.). Я маю на увазі, що об'єкт группа_елементов повинен бути колекцією об'єктів. Ви не зможете запустити цикл For Each для окремо об'єкта (Microsoft відразу сповістить вас про це 438-й помилкою).

Даний цикл перебирає всі елементи будь-якої колекції, починаючи з самого першого. Ви можете використовувати даний цикл, якщо вам необхідно, наприклад, обійти всі листи в книзі, об'єкти на аркуші, зведені таблиці і т.д.

Sub прімер_цікла4 ()
For Each sht In ActiveWorkbook.Worksheets
MsgBox sht.Name
Next sht
End Sub

... або всіх зведених таблиць на аркуші

Sub прімер_цікла ()
For Each pvt In ActiveSheet.PivotTables
MsgBox pvt.Name
Next pvt
End Sub

Переривання циклу VBA

Якщо вам необхідно вийти з циклу до моменту, як буде досягнута умова завершення циклу, скористайтеся командою EndFor в зв'язці з інструкцією IF. У прикладі, наведеному нижче, ми вийдемо з циклу до моменту досягнення умови завершення, в даному циклі вихід буде здійснений за умови, коли змінна лічильник буде дорівнює 3.

Sub прімер_цікла5 ()
For лічильник = 0 To 5
MsgBox лічильник
If (лічильник = 3) Then Exit For
Next лічильник
End Sub

Пропуск частини циклу в For Each

Пропускати частина циклу, а потім повертатися назад - погана практика. Проте, давайте розглянемо приклад:

Sub прімер_цікла6 ()
Dim j As Integer
For i = 0 To 5
b:
If (j = 3) Then GoTo a:
j = i
Next i
a:
j = 4
GoTo b:
MsgBox ( "Значення j =" - j)
End Sub

Тут ми пропустили одну ітерацію (коли j = 3). Як ви думаєте, який результат видасть програма? 3? 5? Ну ... насправді, жоден з варіантів не вірний. Цикл буде виконуватися нескінченно, поки пам'ять комп'ютера, не переповниться.

Однак можливість пропустити крок циклу без наслідків існує. Ви можете збільшити значення лічильника на 1 (або інше значення), що призведе до пропуску операцій, які перебувають між цими значеннями. Ось приклад:

Sub прімер_цікла7 ()
For i = 0 To 5
i = i + 1
MsgBox i
Next i
End Sub

Але знову ж таки, це погана практика написання коду, і може привести до небажаних наслідків при написанні коду в майбутньому. Замість цього, при необхідності пропуску деяких ітерацій, спробуйте використовувати функцію If або Select Case.

Вам також можуть бути цікаві такі статті

Вітаю! Підкажіть чи можна як небудь зробити, щоб цикл переміщався по стовпцю і шукав найменше значення, видаляв його і знову шукав і знову видаляв. Зупинитися повинен лише тоді, коли сума значень в цьому стовпці не дорівнюватиме або менше, якогось базового значення.