Глава 1. Типы данных, условные операторы и массивы VBA
1.1. Введение в VBA. Типы данных
.<Объект, входящий в первый объект>.<…>.<Тот объект, с которым нужно произвести действие>.<собственно действие>
Иными словами, каждая команда пишется как бы с «конца»: вначале определяется то, над чем надо произвести действие, – объект, а затем само действие – метод. Разделителями компонентов команды служат знаки «точка».
Например:
Application.activDocument.PageSetup.Orientation=wdOrientLandscape
Эта команда устанавливает альбомную ориентацию листа в документе.
Обзор типов данных VBA
Тип данных – это термин, относящийся к определенным видам данных, которые VBA сохраняет и которыми может манипулировать. Любое определение типа задает:
• область возможных значений типа;
• структуру организации данных;
• операции, определенные над данными этого типа.
VBA разделяет обрабатываемые данные на числа, даты, строки, логические значения и объекты (табл. 1).
Таблица 1
Типы данных VBA
Офисное программирование
Рассмотрим более подробно данные типы и выделим их яркие особенности.
VBA имеет шесть различных численных типов данных: Byte, Integer, Long, Single, Double и Currency. Численные типы данных используются для хранения (и манипулирования) чисел в различных форматах, в зависимости от конкретного типа. Численные типы предоставляют компактный и эффективный способ хранения чисел. Численный тип, заполняющий большую часть памяти (имеющий самый большой диапазон возможных значений), занимает не более восьми байтов памяти для хранения чисел, которые могут иметь до 300 цифр.
Числа с плавающей точкой (floating point numbers) могут иметь любое число цифр до или после десятичной точки (в пределах границ конкретного типа данных) и получили свое название вследствие того факта, что десятичная точка «плавает» из одной позиции в другую, в зависимости от того, сохраняется в памяти большое или малое значение. Числа 24.09156, –1207.7, –0.00225 и 444.67779 – это числа с плавающей точкой. Числа с плавающей точкой иногда называют также действительными (real) числами. Данные типы с плавающей точкой используются всякий раз, когда требуется сохранить число, имеющее дробную часть. VBA имеет два различных типа данных с плавающей точкой: Single и Double.
Хотя числа одинарной и двойной точности имеют большие диапазоны, чем другие численные типы данных, у них имеются два небольших недостатка. Операции, выполняемые над числами с плавающей точкой, немного медленнее подобных операций над другими численными типами данных. Кроме того, числа, хранимые как типы данных с плавающей точкой, могут быть подвержены ошибкам округления. Если число с плавающей точкой очень большое или очень малое, VBA отображает его в экспоненциальном представлении.
VBA-тип Currency – это число с фиксированной точкой (fixed-point number), т. е. десятичная точка всегда находится в одном и том же месте – справа от десятичной точки всегда имеются четыре цифры. Тип Currency используется для хранения чисел, когда точность крайне важна, что бывает при «денежных» вычислениях.
Любые текстовые данные, сохраняемые в программе VBA, называются строками (strings). Строки в VBA сохраняются с использованием типа данных String. Строки получили такое название, потому что текстовые данные обычно рассматриваются как строки символов. Строка может содержать текстовые символы любых типов: буквы алфавита, цифры, знаки пунктуации или различные символы. Строки в коде VBA всегда заключаются в двойные кавычки ("").
Существуют две категории строк: строки переменной длины, размер которых растет или уменьшается, и строки фиксированной длины, размер которых всегда остается одним и тем же. Все строки в VBA являются строками переменной длины, если только в программе не задается фиксированная длина.
Типы String играют важную роль во многих программах VBA. Большинство данных ввода пользователей (в диалоговых окнах, ячейках рабочих листов) – это строковые данные. Кроме того, поскольку на экране можно отображать только текст, все другие типы данных должны быть преобразованы в строковые данные перед тем, как они будут выведены на экран. Многие встроенные процедуры VBA используют строковые данные во всех или в некоторых своих аргументах.
VBA использует тип Date для хранения даты и времени. VBA-тип Date является типом последовательных дат (serial Dates). (Последовательные даты сохраняют дату как число дней от заданной стартовой даты.) Базовой датой для VBA-типа Date является 30 декабря 1899. VBA использует отрицательные числа для представления дат ранее 12/30/1899 и положительные – для дат после 12/30/1899. Число 0 представляет саму дату 12/30/1899. По этой схеме 1 января 1900 записывается числом 2 (01/01/1990 – это 2 дня после 12/30/1899), однако число –2 является датой 12/28/1899 (два дня до 12/30/1899).
Даты можно вычитать одну из другой, добавлять к дате или вычитать числа для изменения ее значения. Например, если необходимо определить количество дней между двумя датами, просто необходимо вычесть более раннюю дату из более поздней даты. Поскольку это значения типа Date, VBA «знает», что целью вычисления является получение разности в днях между двумя этими датами. Аналогично, если необходимо определить дату через 60 дней после определенной даты, необходимо прибавить 60 к этой дате.
Во многих языках программирования, в том числе и в VBA-программе, рабочая программа должна «принять» решение, являются ли истинными различные условия. Для упрощения тестирования условий и обеспечения сохранения результатов такого тестирования в VBA имеется логический тип данных. Логические значения True и False называют булевскими (Boolean) значениями. Логический тип данных VBA называют также типом Boolean.
Тип данных Variant – это особый тип данных, который может сохранять любые типы, приведенные в табл. 1, за исключением типа Object. VBA использует тип Variant для всех переменных, если в теле программы не объявлялся явно тип этих переменных.
Данные типа Variant принимают характеристики определенного типа, который они сохраняют в этот момент. Например, если данные типа Variant содержат строковые данные, Variant принимает характеристики типа String. Если данные типа Variant содержат численные данные, Variant принимает характеристики какого-либо численного типа, обычно Double, хотя типы Variant могут также иметь характеристики типов Integer, Long, Single или Currency.
Несмотря на то что типы Variant удобны и избавляют от некоторой части работы при написании процедур, они требуют большего объема памяти, чем любой другой тип данных, за исключением больших строк. Кроме того, математические операции и операции сравнения над данными типа Variant выполняются медленнее, чем подобные операции над данными любого другого типа.
Переменные
Переменная – это имя, которое разработчик программы дает области компьютерной памяти, используемой для хранения данных какого-либо типа. Переменная представляет числа, текстовые данные или другую информацию, которая точно не известна во время написания оператора, но будет в наличии и доступна при выполнении этого оператора.
Идентификатор – это имя переменной. При выборе имени переменной необходимо соблюдать следующие правила:
• имя переменной должно начинаться с буквы алфавита;
• после первой буквы имя переменной может состоять из любой комбинации цифр, букв или символов подчеркивания;
• имена переменных не могут содержать символов, используемых для математических операций, а также знака точки и пробела;
• имя переменной не должно превышать 255 символов;
• имя переменной не должно дублировать определенные ключевые слова vba.
Самым простым способом создания переменной является использование ее в операторе VBA. VBA создает переменную и тут же резервирует ячейку памяти для данной переменной.
Сохранение значения данных в переменной называется присваиванием переменной. Присваивание выполняется с помощью оператора присваивания, представляемого знаком (=). Например, А = 145.
Создание переменной путем ее использования в операторе называется неявным объявлением переменной. Все переменные, которые VBA создает неявным объявлением переменной, имеют тип данных Variant.
VBA предоставляет возможность выполнять явное объявление переменных. Объявлять переменные явно лучше в начале программы, как это делается во всех языках программирования.
Явно объявить переменную можно как в начале блока, так и в том произвольном месте, где возникла необходимость использовать новую переменную. При объявлении переменной определяются ее тип и область видимости – область, где имя переменной видимо и, значит, возможен доступ к ее значению. Переменные можно объявлять на двух уровнях – уровне процедуры и уровне модуля.
Для объявления переменных используются операторы Dim, Public, Private и Static. Первый можно использовать на обоих уровнях, Public, Private – на уровне модуля, Static – только на уровне процедуры.
Объявление простых переменных имеет следующий синтаксис:
Dim <имя переменной1, имя переменной2,…> As <имя типа>
или
Dim <имя переменной1> As <имя типа1>, <имя переменной2> As <имя типа2>,<имя переменной3> As <имя типа3>, …
Примечание. Все переменные, которые создаются просто ключевым словом Dim, являются переменными типа Variant. Если используется ключевое слово As, то объявляемая переменная называется типизированной.
Примеры объявлений типизированных констант:
Dim ключ As single
Dim стоимость Аs currency
Dim дата_рождения AS Date
Dim письмо Аs string
Явное объявление переменных имеет следующие преимущества:
• ускоряется выполнение кода, так как vba создает все объявленные явно переменные в модуле или процедуре перед выполнением кода процедуры;
• скорость выполнения кода увеличивается на то количество времени, которое необходимо для анализа и создания неявно объявляемых переменных;
• уменьшается количество ошибок в результате неправильного написания имени переменной;
• код становится легко читаемым и понятным, так как легко можно определить, какие переменные используются в этом модуле или процедуре.
Примечание. Имена переменных не «чувствительны» к состоянию регистра, т. е. переменные f и F в программе означают одно и то же.
Константы
Константа – это значение в программе VBA, которое не меняется. Существует несколько типов констант.
Именованные константы – константы, имеющие заданное имя; это имя имеет конкретное неизменяемое значение.
В отличие от переменной, необходимо всегда явно объявлять именованные константы, используя ключевое слово Const.
Следует помещать объявления констант на модульном уровне, чтобы у них была наибольшая область действия.
Литеральные константы – это константы, записываемые непосредственно в код.
Правила написания литеральных констант (String, Integer, Data, Boolean):
• строковые константы должны быть заключены в двойные кавычки ("");
• пустая строковая константа (нулевая строка) обозначается двумя двойными кавычками, между которыми ничего нет ("");
• строковая константа должна вся находиться на одной и той же строке. Нельзя использовать символ продолжения строки для продолжения литеральной (строковой) константы на другой строке.
Численные константы могут содержать любой из численных типов VBA.
Правила написания численных констант:
• численные константы должны состоять только из числовых символов от 0 до 9;
• численная константа может начинаться со знака минус и содержать десятичную точку;
• можно использовать экспоненциальное представление для численных констант;
• никакие другие символы или знаки в численных константах не допускаются.
Примеры:
142
– 789.3
5.55Е4
Константы Date необходимо помещать между знаками фунта (#). Независимо от того, в каком из форматов записывается литеральная константа Date, VBA переформатирует эту константу для соответствия одному из двух следующих форматов – в зависимости от того, содержит ли константа Date информацию о времени:
#2/5/02 9:17:00 PM#
#2/5/02#
Константы Boolean – существуют только две правильные константы типа Boolean: True и False.
Типизированные константы используются при явном задании типа константы. Объявление конкретного типа данных для константы может повысить точность вычислений. Для констант можно использовать типы данных Byte, Boolean, Integer, Long, Single, Double, Currency, Date, String.
Синтаксис:
Const имя_константы As type = value, name As type = value,…
где type – имя любого из типов данных VBA;
value – значение, присваиваемое константе.
Пример:
Const Pi As Double = 3.14
Внутренние константы называются также предопределенными константами. Внутренняя константа – это именованная константа, которая была определена разработчиками VBA. Внутренние константы все начинаются с букв vb для указания того, что они определяются языком VBA (табл. 2).
Таблица 2
Математические функции
Офисное программирование
Офисное программирование
1.2. Редактор VBA. Первое знакомство
Запуск редактора VBA
Как и любые среды программирования, редактор VBA необходимо сначала запустить. Для запуска можно использовать два способа:
1) активизировать любое приложение пакета MS Office (Word, Excel);
2) выполнить команду меню: Сервис + Макрос + Редактор Visual Basic.
Или:
1) активизировать любое приложение пакета MS Office (Word, Excel);
2) нажать комбинацию клавиш Alt+F11.
И в том, и в другом случае откроется редактор VBA (рис. 1).
В левой части окна редактора появляется строение разрабатываемого проекта (аналог с Проводником). Необходимо обратить внимание на два главных объекта окна: Normal и Project (Операции).
Офисное программирование
Рис. 1. Стартовое окно редактора VBA
Примечание. Операции – это имя сохраненного документа в приложении Word, т. е. в скобках будет указано имя сохраненного документа.
Объект Normal глобальный, т. е. при работе в редакторе VBA в данном объекте будут создаваться модули, формы и т. д., которые будут доступны всему приложению Word. При каждом запуске Word содержимое объекта Normal становится доступным. Вывод: в данном объекте ничего не надо создавать!
Объект Project содержит рядом имя созданного документа, т. е. дается подсказка, в каком документе необходимо работать и где создаются модули, процедуры, приложения.
Создание простейших программ
Пример 1. Создать программу, которая работает с глобальными переменными, рассчитывая выражение:
Офисное программирование
Результат выдается в диалоговое окно Msgbox.
Технология выполнения
1. Активизируйте приложение Word, создайте (сохраните) новый документ под именем Операции.
2. Выйдите в редактор VBA (Alt+F11).
3. Правой кнопкой мыши выделите Project(Document), где Document – название созданного документа, например Операции, и выберите команду Insert + Module (рис. 2). Если же имеется папка Modules, то добавьте в нее (рис. 6).
Офисное программирование
Рис. 2. Добавление нового модуля в папку Project
4. Дважды щелкните по классу Module1 (рис. 3). В результате в правой части редактора VBA активизируется модуль (появится курсор), в котором можно прописывать все создаваемые программы, причем при вводе заготовки создаваемого модуля (слово Sub) и его имени (list1 – от листинг, можно вписать любое имя) появляется окончание данного модуля End Sub.
Офисное программирование
Рис. 3. Создание модуля List1
При объявлении глобальных переменных (согласно условию задачи) необходимо поставить курсор перед словом Sub, нажать Enter и вписать необходимые переменные, обращая внимание на раскрывающийся список (рис. 4).
Офисное программирование
Рис. 4. Создание переменных 4. Напишите следующую программу.
Dim a As Double
Dim b, c, d As Double
Dim k As String
Const Pi As Double = 3.14
Sub list1()
a = 5
b = 25.6
c = Sin(a ^ 2) + Cos(b) + Pi
d = Sqr(c)
MsgBox (d)
End Sub
5. Запустите программу на выполнение, предварительно ее откомпилировав (проверив синтаксические ошибки). Для компиляции проекта выполните команду меню: Debug + Compile Project. Если ошибок нет, запустите приложение при помощи кнопки
Офисное программирование
Запуск панели инструментов или клавиши F5. Если все действия выполнены верно, то на экране появится диалоговое окно Msgbox с итоговым сообщением (рис. 5).
Офисное программирование
Рис. 5. Итоговый результат расчетов примера 1
Пример 2. Создать программу, которая производит сложение строковых переменных и результат выводит в диалоговое окно msgbox.
Технология выполнения
1. В том же документе Операции выделите правой кнопкой мыши папку Modules и выполните команду: Insert + Module (рис. 6).
Офисное программирование
Рис. 6. Добавление нового модуля
2. В результате появится новый модуль, где можно создать новую программу (модуль). Пропишите следующий код.
Dim a, b, c As String
Sub list2()
a = «Привет!»
b = « Пока не сложно?»
c = a + b
MsgBox (c)
End Sub
В данном примере переменным a и b присваиваются строковые значения (в кавычках!), после чего происходит сложение строк. Результат показан на рис. 7.
Офисное программирование
Рис. 7. Результат примера 2
3. Прокомпилируйте программу и запустите ее на выполнение.
Примечание. Если в одном документе находятся несколько модулей, то при запуске программ может появляться диалоговое окно выбора макроса (модуля), в котором необходимо выбрать макрос, выделить его и нажать кнопку «Run» (рис. 8).
Офисное программирование
Рис. 8. Выбор макроса на выполнение
1.3. Изменение порядка выполнения операторов
Операторы и выражения
Выражение – это значение или группа значений, выражающая отдельное значение. Каждое выражение вычисляется до отдельного значения. Выражения состоят из одной или более следующих частей:
• константы (литеральные или именованные);
• переменные (любого типа данных);
• операторы;
• массивы;
• элементы массива;
• функции.
Операторы – используются для объединения, сравнения или других действий над определенными значениями в выражении. При использовании оператора в выражении элементы данных, над которыми этот оператор выполняет действие, называются операндами: большинству операторов требуются два операнда.
Выражение используется для выполнения вычислений и сравнения значений, для предоставления переменных в качестве аргументов различным функциям и процедурам VBA. Используются следующие типы выражений:
• выражение типа даты – вычисляется до значения типа date;
• численное выражение – вычисляется до любого числа;
• строковое выражение – имеет результатом значение типа string;
• логическое выражение – вычисляется до значения типа boolean.
Очень важно контролировать и знать тип выражения, потому что если выражения содержат несовместимые типы, VBA выдает ошибку времени исполнения – ошибку несовпадения типов (type-mismatch). При обработке выражения, содержащего различные типы данных, VBA сначала пытается устранить любое различие типов, преобразуя значения в выражении в совместимые типы данных. Если устранить какие-либо различия преобразованием типов не удается, отображается ошибка времени исполнения и процедура прекращает выполняться.
Рассмотрим основные арифметические операторы, используемые в VBA (табл. 3).
Таблица 3
Арифметические операторы
Офисное программирование
Рассмотрим данные операторы более подробно.
Сложение
Оператор сложения (+) выполняет простое сложение. Оба операнда должны быть численными выражениями или строками, которые VBA может преобразовать в число. Оператор сложения можно также использовать для выполнения арифметических операций с данными типа Date.
Вычитание
Используется либо для вычитания одного числа из другого, либо для обозначения унарного минуса.
Унарный минус (unary minus) – это знак минус, который помещают перед числом (выражением) для указания того, что это отрицательное число (выражение). Поместить унарный минус перед числом или выражением означает то же, что умножить это число на минус 1.
Умножение
Оператор умножения (*) перемножает два числа; результатом выражения умножения является произведение двух операндов. Оба операнда в выражении умножения должны быть численными выражениями или строками, которые VBA может преобразовать в число.
Деление
Оператор деления (/) называют оператором деления чисел с плавающей точкой или действительных, чтобы отличать от оператора целочисленного деления. Оператор деления с плавающей точкой выполняет обычное арифметическое деление двух операндов. В выражениях деления первый операнд делится на второй операнд; результатом деления является частное. Оба операнда в выражении деления с плавающей точкой должны быть численными выражениями или строками, которые VBA может преобразовать в числа.
Целочисленное деление
Выражения, использующие оператор целочисленного деления (\), всегда имеют результатом целое число без дробной части. Оба операнда в выражении целочисленного деления должны быть численными выражениями или строками, которые VBA может преобразовать в числа.
Деление по модулю
Деление по модулю (mod) дополняет целочисленное деление. В делении по модулю выражение возвращает только остаток операции деления как целое. Оба операнда в выражении деления по модулю должны быть численными выражениями или строками, которые можно преобразовать в число.
Возведение в степень
Оператор возведения в степень (^) возводит число в степень. Оба оператора в выражении возведения в степень должны быть численными выражениями или строками, которые VBA может преобразовать в числа. Операнд слева от оператора возведения в степень может быть отрицательным числом, только если операнд справа является целым. Если какой-либо операнд является равным Null, то результатом выражения возведения в степень также будет Null; иначе результат выражения будет иметь тип Double.
Оператор Like
Оператор Like дает возможность выполнять особый тип операции сравнения строк, и его можно использовать только со строками.
Оператор Like тестирует строку для определения того, совпадает ли она с заданным шаблоном.
Синтаксис:
выражение1 like выражение2,
где выражение1 – любое строковое выражение VBA;
выражение2 – строковое выражение, специально созданное для задания шаблона, который оператор Like сравнивает с выражением1.
Результатом выражения Like является True, если первый операнд (выражение1) совпадает с шаблоном во втором операнде (выражение2); иначе результатом выражения будет False. Оба операнда в этом выражении должны быть строковыми выражениями, или VBA отобразит сообщение об ошибке несовпадения типов.
Шаблон, с которым должна сравниваться строка, задается с использованием различных специальных символов. В табл. 4 содержатся методы и символы для создания образцов совпадения для оператора Like.
Таблица 4
Символы совпадения с образцом для оператора Like
Офисное программирование
Логические операторы
Чаще всего логические операторы используются для объединения результатов отдельных выражений сравнения, чтобы создать сложные критерии для принятия решений в процедуре, или для создания условий, при которых группа операторов должна повторяться (табл. 5).
Таблица 5
Логические операторы
Офисное программирование
Сложное (составное) выражение – это любое выражение, образованное из двух или более выражений. Приоритеты выполнения операций при вычислении сложных выражений такие же, как и в любом языке программирования.
Изменение порядка выполнения операторов
Рассмотренные операторы выполняются в линейном порядке. При использовании VBA-операторов изменение порядка выполнения операторов определяется условием или набором условий, при которых VBA выполняет ту или иную ветвь кода процедуры.
Оператор условного перехода – это структура, которая выбирает ту или иную ветвь кода процедуры на основе некоторого предопределенного условия или группы условий.
Оператор безусловного перехода – это оператор, просто изменяющий последовательность выполнения кода процедуры независимо ни от какого конкретного условия. Условный переход используется гораздо чаще, чем безусловный.
Простейшими VBA-операторами изменения порядка выполнения кода являются операторы If … Then и If … Then … Else.
Оператор If … Then позволяет выбрать единственную альтернативную ветвь кода в процедуре или функции.
Синтаксис:
If условие Then оператор(ы),
где условие – любое логическое выражение;
оператор(ы) – один, несколько или ни одного оператора VBA.
Вторая форма синтаксиса оператора If … Then называется блоком оператора if. В блоке оператора If… Then условие и операторы записываются в отдельных строках, причем заканчивается данный оператор ключевыми словами End If.
Синтаксис:
If условие Then
оператор 1
оператор 2
….
Оператор n
End If
Выбор одной из двух различных ветвей операторов в зависимости от определенного условия обеспечивает оператор
If … Then … Else
и If … Then … ElseIf.
Синтаксис однострочного оператора If … Then … Else:
If условие Then оператор1 Else оператор2,
где условие – любое допустимое логическое выражение;
операторы – один или несколько операторов VBA, которые должны находиться в одной и той же строке.
Блок операторов If … Then … Else легче читать и понимать, и поскольку можно располагать операторы в разных строках внутри блока оператора If … Then … Else, он не имеет ограничения по размеру и числу операторов, которые можно помещать в альтернативные ветви.
Синтаксис:
If условие Then
Оператор1
Else
Оператор2
End If
VBA, как и многие языки программирования, имеет условный оператор перехода для использования в случаях, когда необходимо выбирать из большего количества различных ветвей кода: оператор Select Case. Данный оператор работает во многом так же, как и оператор If. Ключевые слова Select Case используются со многими операторами Case, где каждый оператор Case проверяет появление другого условия и выполняется только одна из ветвей Case. Ветвь Case может содержать один, несколько или ни одного оператора VBA.
Синтаксис:
Select Case выражение
Case условие_1
Оператор_1
Case условие_2
Оператор_2
…..
Case условие_N
Оператор_N
[Case Else
Оператор_N+1
End Select,
где выражение – любое численное или строковое выражение;
условие_1, условие_2, условие_N – (каждый) представляет список логических выражений, отделенных запятыми;
оператор_1, оператор_2, оператор_N, оператор_N+1 – (каждый) представляет один, несколько или ни одного оператора.
В Select Case можно включать столько операторов Case условия, сколько необходимо.
Примечание. Написание неоднострочных операторов в программах производится именно так (в столбец), либо редактор будет выдавать ошибку написания.
Оператор безусловного перехода всегда изменяет порядок выполнения операторов в процедуре или функции vba. При этом vba не проверяет никаких условий, а просто переходит к выполнению кода с другого места.
Оператор GoTo имеет следующий синтаксис:
GoTo метка
Метка – любое обозначение или номер строки в той же процедуре или функции, которая содержит оператор GoTo. При выполнении оператора GoTo VBA немедленно переходит к выполнению оператора в строке, определенной с помощью метки.
Пример 3. Создать программу, которая, используя инструкцию if … then, выполняет следующие действия: если переменной а присваивается значение больше нуля, то находится сумма чисел а и b, если меньше нуля, то находится произведение. Результат выводится в стандартное диалоговое окно msgbox.
Технология выполнения
1. В документе Операции (пример 2) выделите правой кнопкой мыши папку Modules и выполните команду: Insert + Module (рис. 6).
2. В появившемся модуле пропишите программу и запустите на выполнение.
Dim a, b, c As Integer
Sub poradok()
a = -5
b = 25
If a > 0 Then
c = a + b
MsgBox (c)
End If
If a < 0 Then
с = a * b
MsgBox (с)
End If
End Sub
В данной программе переменной а присвоено значение меньше нуля, следовательно, должна выполниться нижняя инструкция If (рис. 9).
Офисное программирование
Рис. 9. Результат работы при а < 0
3. Измените программу, поменяв значение а на положительное:
Dim a, b, c As Integer
Sub poradok()
a = 5
b = 25
If a > 0 Then
c = a + b
MsgBox (c)
End If
If a < 0 Then
c = a * b
MsgBox (c)
End If
End Sub
Примечание. Данную программу можно составить, используя полный блок инструкции If Then Else (рис. 10).
Офисное программирование
Рис. 10. Результат работы при а > 0
Dim a, b, c As Integer
Sub poradok()
a = 5
b = 25
If a > 0 Then
c = a + b
MsgBox (c)
Else
c = a * b
MsgBox (c)
End If
End Sub
Повторение действий: циклы
Процесс выполнения всех операторов, заключенных в структуру цикла, один раз называется итерацией (iteration) цикла. Некоторые структуры цикла организуются так, что они всегда выполняются заданное количество раз. Структуры цикла, всегда выполняющиеся заданное количество раз, называются циклами с фиксированным числом итераций (fixed iteration). Другие типы структур цикла повторяются переменное количество раз в зависимости от некоторого набора условий. Поскольку количество раз повторений этих гибких структур цикла является неопределенным, такие циклы называются неопределенными циклами (indefinite loops).
Существуют два основных способа создания неопределенного цикла. Можно построить цикл так, что VBA будет тестировать некоторое условие (детерминант цикла) перед выполнением цикла. Если условие для повторения цикла не равно True, VBA пропускает все операторы в цикле. Можно также построить цикл таким образом, что VBA будет тестировать условие детерминанта цикла после выполнения операторов в цикле.
Самой простой структурой цикла является фиксированный цикл. VBA предоставляет две различные структуры фиксированного цикла: For… Next и For Each … Next. Обе структуры фиксированного цикла называются циклами For, потому что они всегда выполняются для (for) заданного количества раз.
Использование цикла For… Next
Цикл For…Next используется, когда необходимо повторить действие или ряд действий заданное количество раз, известное до начала выполнения цикла.
Цикл For…Next имеет следующий синтаксис:
For а = Start To End [Step StepSize]
операторы
Next [а],
где а – любая численная переменная VBA, обычно переменная типа Integer или Long;
Start – любое численное выражение, определяет начальное значение для переменной а;
End – это также численное выражение, определяет конечное значение для переменной а.
По умолчанию VBA увеличивает переменную а на 1 каждый раз при выполнении операторов в цикле (считает количество циклов). Можно задавать другое значение (StepSize), на которое будет изменяться а, включая необязательное ключевое слово Step. При включении ключевого слова Step необходимо задавать значение для изменения переменной а.
Операторы представляют один, несколько или ни одного оператора VBA. Эти операторы составляют тело цикла For; VBA выполняет каждый из этих операторов каждый раз при выполнении цикла.
Ключевое слово Next сообщает VBA о том, что достигнут конец цикла; необязательная переменная а после ключевого слова next должна быть той же самой переменной а, которая была задана после ключевого слова For в начале структуры цикла.
Включайте необязательную переменную а после ключевого слова next для улучшения читабельности программного кода (особенно при использовании вложенных циклов for next) и для повышения скорости выполнения кода (иначе vba придется потратить время на определение того, какая переменная является правильной, для ее изменения после достижения ключевого слова next).
Цикл For Each … Next
Второй цикл For, который имеется в VBA, – это цикл For Each … Next. В отличие от цикла For…Next, цикл For Each … Next не использует счетчик цикла. Циклы For Each … Next выполняются столько раз, сколько имеется элементов в определенной группе, такой как коллекция объектов или массив. Другими словами, цикл For Each … Next выполняется один раз для каждого элемента в группе.
Цикл For Each … Next имеет следующий синтаксис:
For each а in группа
операторы
Next [а],
где а – это переменная, используемая для итерации по всем элементам в определенной группе;
группа – это объект коллекции или массив. Если группа – это объект коллекции, то а должна быть переменной типа variant, object или заданным объектным типом, таким как range, worksheet, document, paragraph и т. д.
Если группа – это массив, то а должна быть переменной типа variant;
операторы – один, несколько или ни одного оператора VBA, составляющих тело цикла.
Примечание. Примеры на использование циклов будут рассмотрены в части II.>Свойства объекта UserForm