Добавить материал

и получить 10 документов
и свидетельство СМИ

Изображение пользователя Шибеко Марина Николаевна Шибеко Марина Николаевна

Microsoft Excel

  • doc
  • 14.05.2020
Публикация в СМИ для учителей

Публикация в СМИ для учителей

Бесплатное участие. Свидетельство СМИ сразу.
Мгновенные 10 документов в портфолио.

Добавить материал
Иконка файла материала 48. Microsoft Excel.doc

Цикл For...Next

     Цикл 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 проставляется значение от одного до десяти.

view plainprint?

1.        Sub example1 ()  

2.        Dim i As Long   

3.        For i = 1 To 10   

4.        ActiveSheet.Range("A" & i).Value = i   

5.        Next i   

6.        End Sub  

Пример №2:
В следующем примере скрываются первый и второй листы книги. 

view plainprint?

1.        Sub example2 ()  

2.        Dim i As Long  

3.        For i = 1 To 2   

4.        Sheets(i).Visible = False   

5.        Next i   

6.        End Sub  

Пример №3:
Рассмотрим вариант цикла с Step (шагом) через одну ячейку, в данном случае будут заполнены ячейки через одну (А1,А3,А5,А7,А9). 

view plainprint?

1.        Sub example3 ()  

2.        Dim i As Long   

3.        For i = 1 To 10 Step 2   

4.        ActiveSheet.Range("A" & i).Value = i   

5.        Next i  

6.        End Sub  

 

Скачано с www.znanio.ru

Цикл For...Next Цикл

Материалы на данной страницы взяты из открытых источников либо размещены пользователем в соответствии с договором-офертой сайта. Вы можете сообщить о нарушении.

Посмотрите также