Работа с циклами

Пример 2.

End Select

Case Else

Colr = "Не бывает"

Err1 ="Введите цифру от 1 до 3!"

В ячейку A1 текущего листа внесено целое число. В ячейку С4 внести значение Z исходя из условия:	Select Case Cells(1, 1) Case Is < 0 z = Cells(1, 1) ^ 2 Case 1, 3, 5 To 10 z = 33 Case 0 To 20 ' Без лишних проверок. z = 55 Case Is > 20 z = Cells(1, 1) / 2 End Select
Z =		Z^2, если A < 0 33, если A={1,3,5-10} 55, если A={0,2,4,11-20} Z/2, если A >20

Обратите внимание, что вместо предложения Case 0, 2, 4, 11 To 20 используется более простое предложение Case 0 To 20, поскольку значения 1, 3, 5-10 были проверены в предыдущем предложении Case.

Циклы – это фрагмент кода, который повторяется до наступления какого-либо события. Циклы устроены так, что некоторые команды выполняются вновь и вновь, пока не выполнится определенное условие – в результате, которого пользователь выйдет из цикла, либо цикл до завершения - повторится определенное число раз.

Программирование – слишком сложный процесс, чтобы его предпринимать ради расчета единственного варианта данных. Как правило, такие расчеты проводят для многих повторяющихся групп данных, т.е. предпринимают неоднократное повторение группы действий – циклы.

Как и для алгоритма ветвления, в VBA для реализации алгоритма цикла предусмотрены различные команды, представленные в табл. 11.5, которые в ряде ситуаций взаимозаменяемы.

Таблица 11.5

Принцип выбора команды цикла

Команда	Условия применения
For / Next	Заранее известное количество итераций.
Do While	Повтор, пока выполняется заданное условие.
Do Until	Повтор, пока не выполнится заданное условие.

Команда For / Next – предназначена для организации циклов с конечным числом повторений.

For <счетчик> = <начало> To <конец> [ Step <шаг>]

<набор команд>

[Exit For]

Next [<счетчик>]

Принцип работы команды состоит в следующем: переменная, используемая для подсчета номера итерации (счетчик) устанавливается в начальное значение. Выполняется набор команд, составляющих тело цикла. По команде Next управление передается снова команде For, в которой счетчик увеличивается на заданный шаг (Step) и проверяется на достижение величины, заданной в значении <конец>. Если это условие выполнится, управление в программе передается на команду, следующую за Next, иначе цикл повторяется.

Имя идентификатора <счетчик> после ключевого слова Next указывают, как правило, в сложных вложенных циклах для визуального контроля.

Инструкции [ Exit For ] не обязательны и применяются для экстренного выхода из For до достижения конца цикла (число таких альтернативных способов выхода из цикла не ограничено). Инструкция Exit For часто применяется вместе с проверкой некоторого условия (например, If...Then). Эта инструкция передает управление инструкции, непосредственно следующей за инструкцией Next.

Аргумент (Step) может быть как положительным, так и отрицательным. Если шаг не задан, он принимается равным 1.

Изменение значения переменной <счетчик> внутри цикла считается грубой ошибкой программирования.

Дата добавления: 2015-04-24