78

2.12.3. Циклы

Циклы предназначены для многократного выполнения группы инструкций. ВVBA для организации циклов используются инструкции For...

Next, White…Wend, Do …Loop и For Each…Next.

2.12.3.1. Инструкция For… Next

Эта инструкция повторяет выполнение группы инструкций указанное число раз.

Формат инструкции For… Next

For Счетчик = Начало То Конец [Step Шаг] [Инструкции1]

[Exit For] [Инструкции2]

Next [Счётчик]

Формат инструкции For… Next содержит следующие элементы:

Пример1

В приведённой ниже процедуре TestFor подсчитывается сумма нечётных чисел в заданном диапазоне, причём числа формируются в цикле с нарастанием на 1.

Option Explicit_________________________________________________

Sub TestFor()

'Подсчёт суммы нечётных чисел в заданном диапазоне

Dim i As Integer

Dim n As Integer

Dim Sum As Integer

Dim r As Integer

n = InputBox("Ведите количество чисел", "Количество нечётных чисел") r = 0

For i = 1 To n Step 2 '(сумма нечётных чисел от 1 до n) Sum = Sum + i

r = r + 1

79

Next i

MsgBox Prompt:="Сумма " & r & " нечётных чисел в диапазоне от 1 до " & n & _" равна " & Sum, Buttons:=vbExclamation, _

Title:="Количество нечётных чисел" End Sub

Ниже приведены диалоговые окна, появляющиеся при выполнении мак-

роса TestFor.

Пример2

В приведённой ниже процедуре TestFor1 подсчитывается сумма нечётных чисел в диапазоне A1:J10 таблицы Excel.

В этой процедуре используются два цикла: внешний цикл с параметром цикла i и вложенный цикл с параметром цикла j.

Option Explicit_________________________________________________

Sub TestFor1()

'Подсчёт суммы нечётных чисел в заданном диапазоне

Dim i As Integer

Dim j As Integer

Dim m As Integer

Dim n As Integer

Dim Sum As Integer

Dim r As Integer

n = InputBox("Ведите количество чисел в столбце", _ "Количество нечётных чисел")

m = InputBox("Ведите количество чисел в строке", _ "Количество нечётных чисел")

r = 0

For i = 1 To n Step 2 '(сумма нечётных чисел от 1 до n)

80

For j = 1 To m Step 1 Sum = Sum + Cells(i, j) r = r + 1

Next j Next i

MsgBox Prompt:="Сумма " & r & " нечётных чисел в диапазоне" _

&Chr(13) + Chr(10) _

&" от 1 до " & n * m & " равна " & Sum, Buttons:=vbExclamation End Sub

Впроцедуре TestFor2 реализован алгоритм ввода данных с клавиатуры в ячейки рабочего листа; заполнение производится последовательно столбец за столбцом двумя циклами.

Sub TestFor2() Dim i As Integer Dim j As Integer Dim m As Integer Dim n As Integer

m = InputBox("Ведите количество чисел в столбце", _ "Количество нечётных чисел")

n = InputBox("Ведите количество чисел в строке", _ "Количество нечётных чисел")

For i = 1 To n Step 1 '(сумма нечётных чисел от 1 до n) For j = 1 To m Step 1

Cells(j, i) = InputBox("Ведите значение в ячейку " & Chr(64 + i) & j, _ "Ввод данных в таблицу")

Next j Next i End Sub

Впроцедуре TestFor2 функция Chr(64 + i) возвращает (выдаёт значение) строку, содержащую символ, код которого указан в качестве аргумента. Код 65 соответствует латинской букве A, 66 – букве B и т.д. Ниже показано диалоговое окно, соответствующее функции InputBox во вложенном цикле цикле процедуры TestFor2.

2.12.3.2. Инструкция While…Wend

Инструкция While…Wend выполняет некоторую последовательность инструкцийдотехпор,пока заданноеусловиеимеетзначениеTrue(Истина).

Формат инструкции While…Wend

81

While Условие [Инструкции]

Wend

Формат инструкции While…Wendсодержит следующие элементы:

Если Условие имеет значение True, то выполняется весь набор инструкций, расположенных до инструкции Wend. После этого управление возвращается инструкции While и опять проверяется условие. Если Условие имеет значение True, то снова выполняются все инструкции до Wend, В противном случае выполнение программы передается на инструкцию, следующую за инструкцией Wend.

Циклы While...Wend могут иметь любую глубину вложенности. При этом каждая инструкция Wend соответствует предшествующей инструк-

ции While.

Пример

Подсчёт суммы четных чисел от 0 до 10.

Sub TWW()

Dim k As Integer

Dim i As Integer

While k < 10

k = k + i

i = i + 2

Wend

MsgBox "i=" & i & " k=" & k

End Sub

Ниже приведён результат выполнения процедуры TWW.

2.12.3.3. Инструкция Do... Loop

Для выполнения инструкциb For необходимо задать параметры. Эти параметры могут вычисляться или задаваться во время выполнения программы, как в последней процедуре, которые точно определяют, сколько раз должен выполняться инструкция цикла. Иногда это свойство

82

инструкции For является ограничительным, и в этом случае VBA предлагает другую инструкцию – Do... Loop, которая также может организовать повторяющиеся вычисления, но момент прекращения вычислений здесь определяется с помощью логических условий.

Существует два типа инструкции Do: Do While и Do Until. Первый из них повторяет выполнение блока инструкции до тех пор, пока заданное логическое условие истинно. Второй инструкция, Do Until, выполняет циклические вычисления до тех пор, пока изначально ложное логическое условие не станет истинным. Формат этих инструкций следующий:

Формат1

Do [{While | Until} условие] [инструкции]

[Exit Do] [инструкции]

Loop

Формат2

Do

[инструкции] [Exit Do] [инструкции]

Loop [{While | Until} условие]

Формат инструкции Do …Loop содержит следующие элементы:

В теле инструкции (цикла) может быть любое количество инструкций Exit Do, которые являются дополнительными средствами для окончания цикла (выхода из инструкции Do … Loop). Инструкция Exit Do часто используется внутри Do … Loop с применением инструкции If…Then , который проверяет некоторое дополнительное условие для выхода из цикла.

Различие между этими двумя форматами состоит в следующем. В соответствии с форматом 1 логическое условие помещается в начало цикла. В этом случае, если логическое условие не выполняется, то инструкции цикла не выполняются ни разу. Во втором формате логическое условие помещено в конце цикла. Поэтому инструкции цикла в любом случае будут выполнены хотя бы один раз. Инструкция Exit Do используется для экстренного выхода из цикла; обычно для этого применяются условные инструкции If и Select Case.

Пример

В процедуре DWU пользователю предлагается ввести свое имя или выйти из программы. Здесь значение vbYesNo функции MsgBox присваивается переменной iResponse, которое анализируется инструкцией

83

If…Then…Else, и в случае равенства его внутренней константе vbYes (нажата кнопка Ok в диалоговом окне функции MsgBox) и переменная sName имеет пустое значение, выдаётся сообщение "Вы не ввели имя", и происходит выход из процедуры по инструкции Exit Sub. (Инструкция If…Then…Else будет рассмотрена позже). Если же имя введено (даже пробел!), то произойдёт выход из цикла по условию sName <> "", и выводится диалоговое окно с введённым именем.

Sub DWU()

Dim sName As String Dim iResponse As Integer sName = ""

Do While sName = ""

sName = InputBox("Введите свое имя: ") If sName = "" Then

iResponse = MsgBox("Вы хотите выйти из программы?", vbYesNo) If iResponse = vbYes Then

MsgBox "Вы не ввели имя " Exit Sub

End If End If Loop

MsgBox "Вы ввели имя " & sName End Sub

При запуске процедуры DWU выводится окно,

и если имя введено, то выводится окно с сообщением введённого имени.

Если же имя не введено и нажата кнопка OK или Cancel, то выводится диалоговое окно