2. Цикл Do While … Loop (цикл с предусловием)

Общий вид алгоритма конструкции аналогичен алгоритму цикла While.

Синтаксис оператора следующий:

 

Do {While | Until} <логическое выражение>

P₁

P₂

.

[Exit Do]

.

P_N

Loop

 

где Do (выполнить), While (пока), Until (не раньше), Exit Do (выход из Do), Loop(петля) – зарезервированные слова, P₁, P₂, P_N – операторы.

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

Если логическое выражение после служебного слова While имеет значение True, то выполняются операторы P₁, P₂, P_N , после чего проверка логического выражения повторяется. Если логическое выражение имеет значение False, то происходит выход из цикла. Если условие в заголовке цикла не является истинным с самого начала, цикл Do не выполняется ни разу.

3. Цикл Do … While Loop (цикл с постусловием)

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

В остальном данная конструкция аналогична конструкции Do While … Loop.

Общий вид алгоритма конструкции следующий:

 

 

P1

 

 

 

P2

 

 

Pn

 

 

 

 

Лог. выражение

Да Нет

 

 

Синтаксис оператора следующий:

 

Do

P₁

P₂

.

[Exit Do]

.

P_N

Loop {While | Until} <логическое выражение>

5. Адресация ячеек

Основное назначение большинства прикладных программ – это обработка данных, вводимых пользователем. При программировании на VBA данные, введенные пользователем, можно хранить на рабочих листах. На них же можно записывать результаты обработки данных. Для выполнения указанных действий необходимо разобраться с адресацией ячеек посредством VBA.

Для доступа к листам активной рабочей книги применяется коллекция объектов Sheets (в случае работы с несколькими рабочими книгами, в программной коде также необходимо явно указывать соответствующую рабочую книгу). С помощью данной коллекции можно обратиться к нужному нам рабочему листу:

Sheets(«Наименование листа»)

Данный оператор возвращает объект типа Worksheet – рабочий лист, который в свою очередь имеетсвойство Cells типа Range (область), позволяющее выбрать конкретные ячейки рабочего листа:

Cells(<номер строки>, <номер столбца>)

Номер строки и столбца могут задаваться с помощью переменных, это позволяет обращаться к разным ячейкам таблицы в цикле.

Например, для ввода числа 34 в ячейку «A7» листа «Лист 1» необходима команда:

Sheets(«Лист 1»).Cells(7, 1) = 34

Для считывания значения ячейки «A7» листа «Лист 1» применяется команда:

x=Sheets(«Лист 1»).Cells(7, 1)

Во многих случаях (при больших объемах программного кода, в котором используется частое обращение к ячейкам) удобнее организовывать доступ к ячейкам с помощью объекта Range, который позволяет осуществлять доступ к определенным диапазонам ячеек. Например:

Dim Область As Range

‘ объявляем переменную Область типа Range

Set Область = Sheets(«Лист 1»).Range(«A1:C10»)

‘ Для присвоения переменной ссылки на объект применяется инструкция Set. В данном примере переменной Область присваивается ссылка на объект Range, определяющий указанный диапазон ячеек

Область(7, 1) = 34

x=Область(7, 1)

‘ далее в тексте программы к нужной ячейке рабочего листа «Лист 1» можно обращаться с помощью переменной Область как к массиву, указывая соответствующие номер строки и номер столбца.