Цикл For...Next используется когда необходимо повторить действия заранее заданное кол-во раз.
Цикл For…Next имеет следующий синтаксис:
For i = Start To End [Step StepSize]
//операторы//
Next [i]
i – численная переменная VBA (счетчик)
Start – численное выражение, определяет начальное значение для переменной
End – это также численное выражение, определяет конечное значение для переменной.
Цикл по счетчику выделяется ключевыми словами For и Next. После начального For указывается имя переменной, данная переменная (i) будет счетчиком, после знака равенства идёт начальное значение счетчика, а после ключевого слова To - конечное значение счетчика. По умолчанию счётчик работает с шагом равным единице. Можно задавать другое значение (StepSize), на которое будет изменяться «i», включая необязательное ключевое слово Step. При включении ключевого слова Step необходимо задавать значение для изменения переменной «i».
Пример №1: В нижеуказанном примере, на активном листе, по ячейкам А1:А10 проставляется значение от одного до десяти.
Sub example1 ()
Dim i As Long
For i = 1 To 10
ActiveSheet.Range("A" & i).Value = i
Next i
End Sub
Пример №2: В следующем примере скрываются первый и второй листы книги. Sub example2 ()
Dim i As Long
For i = 1 To 2
Sheets(i).Visible = False
Next i
End Sub
Пример №3: Рассмотрим вариант цикла с Step (шагом) через одну ячейку, в данном случае будут заполнены ячейки через одну (А1,А3,А5,А7,А9). Sub example3 ()
Dim i As Long
For i = 1 To 10 Step 2
ActiveSheet.Range("A" & i).Value = i
Next i
End Sub
|