Домашняя страница Undo Do Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Статьи об Excel

МЕНЮ САЙТА
  • 1
  • 2
  • 3

КАТЕГОРИИ РАЗДЕЛА
Циклы [4]
Циклы VBA
Операторы ветвления [2]
Модули классов [2]
Создание, поля, свойства, события, когда использовать
Работа с приложениями и библиотеками [2]
Создание надстроек для ексель на .net, вызов компонентов .net

ОПРОСЫ
Какой версией Excel Вы пользуетесь?
Всего ответов: 35788
Главная » Статьи » Программирование на VBA » Циклы

Цикл 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 проставляется значение от одного до десяти.
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
Категория: Циклы | Добавил: LightZ (30.03.2012)
Просмотров: 7488 | Комментарии: 5 | Теги: NexT, for, циклы vba, Цикл For...Next, ВБА | Рейтинг: 5.0/7


Всего комментариев: 5
+2   Спам
1    ratboy   (31.03.2012 12:41)
   Отлично, жду продолжения

0   Спам
2    LightZ   (01.04.2012 11:52)
   Сенк, на днях закончу с циклами

+2   Спам
3    Серго   (07.04.2012 12:37)
   Спасибо!
Просто и понятно!

0   Спам
4    Павел   (23.04.2013 17:30)
   Какими операторами цикл создается чтобы next был вначале.

0   Спам
5    LightZ   (23.04.2013 21:30)
   Такого не бывает.

Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]
Яндекс цитирования
© 2010-2016 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!