Условная компиляция

Операторы повтора

Перечислим операторы повтора VBA

Оператор	Действие
For – Next	Синтаксис: For Счетчик = Начало То Конец [Step Шаг] [Инструкции] [Exit For] [Инструкции] Next [Счетчик] Повторяет выполнение группы инструкций, пока Счетчик изменяется от начального значения до конечного с указанным шагом. Если шаг не указан, то он полагается равным 1. Альтернативный способ выхода из цикла предоставляет инструкция Exit For
For Each - Next	Синтаксис: For Each Элемент In Группа [Инструкции] [Exit For] [Инструкции] Next [Элемент] Повторяет выполнение группы инструкций для каждого элемента массива или семейства. Альтернативный способ выхода из цикла предоставляет инструкция Exit For
Do Untill – Loop	Синтаксис: Do [While Условие] [Инструкции] [Exit Do] [Инструкции] Loop Повторяет выполнение набора инструкций, пока условие имеет значение True. Условие проверяется после выполнения инструкции по крайней мере один раз. Альтернативный способ выхода из цикла предоставляет инструкция Exit Do
Do – Loop While	Синтаксис: Do [Инструкции] [Exit Do] [Инструкции] Loop [While Условие] Повторяет выполнение набора инструкций, пока условие имеет значение True. Сначала выполняется инструкция, а потом проверяется условие. Альтернативный способ выхода из цикла предоставляет инструкция Exit Do
Do While – Loop	Синтаксис: Do [While Условие] [Инструкции] [Exit Do] [Инструкции] Loop Повторяет выполнение набора инструкций, пока условие не примет значение True. Условие проверяется после выполнения инструкции по крайней мере один раз. Альтернативный способ выхода из цикла предоставляет инструкция Exit Do
Do – Loop Untill	Синтаксис: Do [Инструкции] [Exit Do] [Инструкции] Loop [While Условие] Повторяет выполнение набора инструкций, пока условие не примет значение True. Сначала выполняется инструкция, а потом проверяется условие. Альтернативный способ выхода из цикла предоставляет инструкция Exit Do
While - Wend	Синтаксис: While Условие [Инструкции] Wend Выполняет последовательность инструкций, пока заданное условие имеет значение True

В VBA имеются две инструкции компилятора, с помощью которых можно обеспечить условную компиляцию некоторых фрагментов исходного кода. Для условной компиляции необходимо определить условные константы компилятора, значениями которых будет руководствоваться компилятор при обработке программы. Константы должны быть определены в разделе глобальных объявлений модуля.

Синтаксис:

#Const имяКонстанты = выражение

Аргументы

имяКонстанты	Имя константы; должно соответствовать стандартным соглашениям об именах переменных
выражение	Константа в явном представлении, другая условная константа компилятора или любая их комбинация, которая включает любые арифметические или логические операторы, за исключением Is

Чтобы указать компилятору, какие фрагменты кода компилировать при разных условиях, используется инструкция #if. Оператор if является объектом компилирования в отличие от инструкции #if, которая является служебной пометкой в тексте, принимаемой компилятором к сведению.

Синтаксис:

#If выражение Then

инструкции

[#Elself выражение-n Then

[инструкции__е!зеif] ]

[#Else

[инструкции_е!зеif ] ]

#End If

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

#Const WinPl =1

‘

‘ если Windows95, то Const WinPl = 1

‘ если Windows NT, то Const WinPl =2

#If WinPl = 1 Then ФайлЗаставка = Start95.bmp"

#If WinPl = 2 Then ФайлЗаставка = "StartNT.bmp"