Операторы. Для объединения функций, переменных и значений в программном тексте Visual Basic служат специальные языковые элементы — операторы. Операторы Visual Basic образуют четыре общие категории: арифметические, логические, конкатенации и сравнения.
Арифметические операторы. В инструкциях Visual Basic доступны следующие арифметические операции: ^ (степень числа), * (умножение), / (деление), \ ( целочисленное деление ), Mod (деление по модулю), + (сумма), - (вычитание и унарный минус).
Логические операторы. Логические операции используются для комбинирования или модификации выражений типа True/False. Логические операции языка Visual Basic следующие: And (логическая конъюнкция), Eqv (логическая эквивалентность), Imp (логическая импликация), Not (логическое отрицание), Or (логическая дизъюнкция), Xor (логическое исключение).
Операторы конкатенации. Используются для строковой конкатенации двух выражений и имеют две разновидности & и +.
Операторы сравнения. В VBA используются следующие операторы сравнения: = (равно), <(меньше), <= (меньше или равно), >(больше), >= (больше или равно),<> (не равно), о ператор Is (используется для сравнения двух переменных, содержащих объектные ссылки, о ператор Like (используется для сравнения двух строк).
При сравнении можно использовать символы подстановки, символьные списки или символьные интервалы в любой комбинации. В следующей таблице приведены символы подстановки, допустимые в образце:
| Символ в образце | Чему соответствует |
| ? | Любой единичный символ. |
| * | Ноль или больше символов. |
| # | Любая единичная цифра (0 — 9). |
| [список_символов] | Любой отдельный символ из список_символов. |
| [! список_символов ] | Любой отдельный символ не из список_символов. |
Группа из одного или больше символов {список_символов), заключенных в квадратные скобки ([ ]), может использоваться для проверки совпадения любого единственного символа в строке и может содержать почти любой символьный код, включая цифры.
Чтобы проверить на совпадение специальные символы левая квадратная скобка ([), знак вопроса (?), знак номера (#) и звездочка (*), их нужно заключать в квадратные скобки. Правая квадратная скобка (]) не может использоваться для проверки внутри группы, но может использоваться вне группы как отдельный символ.
При использовании дефиса (-) для определения верхнего и нижнего пределов интервала в список_символов можно специфицировать интервал символов. Например, [A-Z] возвращает совпадение, если соответствующая символьная позиция в строке содержит любой из символов верхнего регистра в интервале A-Z. Внутри скобок можно включить несколько интервалов без разделителей.
Значение специфицированного интервала зависит от параметра оператора Option Compare и места локализации системы. Например, при использовании Option Compare Binary интервал [А-Е] соответствует А, В, С, D и Е. С Option Compare Text интервал [А-Е] соответствует А, а, В, b, С, с, D, d, Е, е.
Кроме сказанного, имеются следующие правила совпадения по образцу:
• восклицательный знак (!) в начале список_символов означает, что совпадение вернет True, если в строке имеются любые символы, за исключением символов в список_символов. Если восклицательный знак используется снаружи скобок, он сравнивается отдельно;
• если нужно сравнить дефис (-), он может устанавливаться либо в начале (после восклицательного знака, если таковой используется), либо в конце список_символов. В любой другой позиции дефис используется, чтобы идентифицировать интервал символов;
• когда специфицируется интервал символов, они должны вводиться в порядке возрастания (от самого низкого до самого высокого кода). [A-Z] — допустимый образец, но [Z-A] — нет;
• символьная последовательность [ ] рассматривается как строка нулевой длины ("").
Примеры:
Dim MyCheck
MyCheck = "aBBBa" Like "a*a" ' Возвращает True
MyCheck = "F" Like "[A-Z]" ' Возвращает True
MyCheck = "F" Like "[!A-Z]" ' Возвращает False
MyCheck = "a2a" Like "a#a" ' Возвращает True
MyCheck = "aM5b" Like "a [L-P]#[!c-e]" ' Возвращает True
MyCheck - "BAT123khg" Like "B?T*" ' Возвращает True
MyCheck = "CAT123khg" Like "B?Т*" ' Возвращает False
Старшинство операторов. Когда в выражении выполняется несколько операторов, каждая часть выражения оценивается и разрешается в предопределенном порядке, именуемом старшинством операторов.
Если выражение содержит операторы из более чем одной категории, вначале оцениваются арифметические операторы, затем операторы сравнения и последними оцениваются логические операторы. Все операторы сравнения имеют равное старшинство; то есть они оцениваются слева направо в том порядке, в котором они появляются. Арифметические и логические операторы оцениваются в следующем порядке старшинства:
| Арифметические | Сравнения | Логические |
| Возведение в степень (^) | Равенство (=) | Not |
| Отрицание (-) | Неравенство(< >) | And |
| Умножение и деление (*,/) | Меньше (<) | Or |
| Целочисленное деление (\) | Больше (>) | Xor |
| Деление по модулю (Mod) | Меньше или равно (<=) | Eqv |
| Сложение и вычитание (+,-) | Больше или равно (>=) | Imp |
| Строковая конкатенация (&) | Like | Is |
Если в одном выражении имеется умножение и деление, каждый из операторов равноправен и оценивается по порядку слева направо. Если в одном выражении имеется сложение и вычитание, каждый из операторов также равноправен и оценивается в порядке появления слева направо. Для переопределения порядка выполнения некоторых элементов выражения, которые требуется оценить прежде других, можно использовать круглые скобки. Операторы внутри круглых скобок всегда выполняются до операторов вне их. Однако внутри круглых скобок старшинство операторов выдерживается.
Оператор строковой конкатенации (&) — не арифметический оператор, но в старшинстве он следует за всеми арифметическими операторами и предшествует всем операторам сравнения.
Оператор Like равен в старшинстве всем операторам сравнения, но фактически этот оператор совпадения с образцом стоит особняком от операторов сравнения.
Оператор Is — оператор сравнения объектной ссылки. Он не сравнивает объекты или их значения; он лишь выясняет, относятся ли две объектные ссылки к одному объекту.
Команды. Команда — ключевое слово Visual Basic, которое выполняет некоторое действие, но не возвращает значение. Чтобы использовать операцию, в строке программного текста (инструкции) вводится ее имя. Это упоминание называется вызовом команды. Когда требуется, команде передаются параметры, часто в круглых скобках. Некоторые команды требуют круглых скобок; другие, наоборот, их не допускают.
Категории команд. Команды Visual Basic подразделяются на общие категории, основные из которых перечислены в следующей таблице:
| Категория | Описание |
| Управление выполнением | Управляет потоком выполнения программного кода. Позволяет определять циклы, переходы к специфицированной строке кода и управлять ошибками |
| Определение и управление переменными и константами | Объявление переменных и констант. |
| Комментарии | Позволяют определять комментарии кода |
| Определение процедур | Объявление процедур Visual Basic, внешних процедур DLL и завершение объявлений процедур, типов, свойств |
| Файловый ввод-вывод | Позволяют читать и записывать информацию в файлы операционной системы. |
| Управление директориями/файлами | Позволяют создавать, удалять и осуществлять навигацию между каталогами, блокировать или переименовывать файлы |
| Разные |
Выражения. Выражение Visual Basic может быть сформировано любыми из следующих элементов, отдельными или объединенными соответствующими операторами: константы; функции и процедуры; объектные свойства; переменные.
Оценка выражения. Порядок, в котором Visual Basic оценивает операции выражения, рассмотрены выше, в разделе "Старшинство операторов".
Выражение оценивается для получения значения, которое представляет это выражение. Оценка выражения включает вычисления в функциях и выполнение специфицированных инструкций. Когда выполнено вычисление в функции, функция заменяется ее возвращаемым значением. Так как выражение представляет значение, каждое выражение имеет тип данного. Отдельные элементы, составляющие выражение, также имеют типы данных.
Когда в выражении объединяются элементы различных типов, то для упрощения выражения и результата Visual Basic выполняет неявные преобразования типов данных.
Процедуры VBA
Задачи программирования можно упростить, разбивая программы на меньшие логические компоненты. Процедуры полезны при выполнении повторяющихся задач, таких, как часто используемые вычисления, манипулирование текстом и объектами и операции, связанные с обращением к базе данных. Программирование с применением процедур дает два главных преимущества:
• процедуры позволяют разбивать программы на дискретные логические единицы, каждую из которых отладить легче, чем целую программу без процедур;
• процедуры, используемые в одной программе, могут использоваться для построения других программ, обычно с незначительными модификациями либо вообще без них.
В Visual Basic для приложений используется несколько типов процедур:
• процедуры Sub выполняют некоторое действие, не возвращая значение;
• процедуры Function выполняют некоторое действие и по результатам его возвращают значение;
• процедуры Property могут возвращать и присваивать значения и устанавливать ссылки на объекты.
Процедуры Sub. Процедура Sub — блок кода, который выполняется в ответ на событие или по вызову. Если код в модуле разбит на процедуры Sub, его намного проще сопровождать или отлаживать.
Синтаксис определения процедуры Sub:
[ Private | Public] [Static] Sub имя _ процедуры (параметры)
Инструкции
End Sub
При каждом вызове процедуры выполняются инструкции между Sub и End Sub. Процедуры Sub могут быть помещены в стандартные модули, модули класса и модули формы и отчета.
Параметры процедуры подобны объявляемым переменным, которые передаются из вызывающей процедуры.
В VBA следует различать два типа процедур Sub — пользовательские процедуры и процедуры обработки событий.
Пользовательские процедуры. Пользовательская процедура сообщает приложению, как выполнить определенную задачу. После определения пользовательской процедуры она должна вызываться приложением явно. С другой стороны, процедура обработки события остается неактивной до тех пор, пока она не будет инициирована в ответ на события, вызванные пользователем или системой.
Зачем нужно создавать пользовательские процедуры? Одна из причин в том, что несколько различных процедур обработки событий могут выполнять какое-либо аналогичное действие. Хорошим стилем программирования будет поместить такие общие инструкции в отдельной процедуре и вызывать их из процедур событий. Это устраняет потребность в дублировании кода и упрощает сопровождение приложения.
Процедуры обработки событий. Когда объект Visual Basic распознает, что произошло событие, он автоматически вызывает встроенную процедуру, используя имя, соответствующее событию (эти события представлены в списке Процедура окна модуля). Так как имя устанавливает ассоциацию между объектом и кодом, можно сказать, что процедуры обработки событий присоединены к формам и элементам управления:
• имя процедуры обработки события для элемента управления строится из фактического имени элемента управления (специфицированного в свойстве Имя), символа подчеркивания (_) и имени события. Например, при щелчке командной кнопки, именованной Кнопка1, будет вызвана процедура события Кнопка1_Сlick();
• в имени процедуры обработки события для формы объединяется слово " Form" (для отчета — "Report"), символ подчеркивания и имя события. При щелчке на поле формы будет вызвана процедура Form_Click() (как и элементы управления, формы имеют уникальные имена, но в именах процедур обработки событий они не используются).
Для всех процедур обработки событий используется один общий синтаксис. Синтаксис для события элемента управления:
Private Sub имя-элемента-управления_имя-события (параметры)
Инструкции
End Sub
Синтаксис для события формы:
Private Sub Form _имя-события (параметры)
Инструкции
End Sub
Хотя процедуры обработки событий можно написать с самого начала, проще использовать заготовки кода, обеспечиваемые Access; они автоматически включают правильные имена процедур. Шаблон процедуры события можно получить в окне редактора кода, выбрав объект из списка Объект, а затем процедуру из списка Процедура.
Свойство Имя элемента управления рекомендуется назначить прежде, чем приступать к написанию для него процедур событий. Если имя элемента управления изменяется после создания для него процедур, нужно будет также в имена всех написанных процедур ввести соответствующее новое имя элемента управления. Иначе Access не сможет ассоциировать элемент управления с процедурой. Когда имя процедуры не соответствует имени элемента управления, Access рассматривает ее как главную процедуру.
Процедуры Function. Visual Basic для приложений включает большое количество встроенных функций, выполняющих стандартные операции. Это, например, такие функции, как Sqr, Cos или Chr. Кроме того, инструкцией Function можно объявлять пользовательские процедуры Function.
Как и процедура Sub, Function является отдельной процедурой, которая может принимать параметры, выполнять ряд инструкций и изменять значения параметров. В отличие от процедуры Sub, процедура Function может возвращать в вызывающую процедуру некоторое значение. Между процедурами Sub и Function имеется три различия:
• Обычно функция вызывается включением имени функции и ее параметров в правую часть инструкции или выражения:
возвращаемое значение = функция().
• подобно переменным, процедуры Function имеют типы данных. Тип данного функции определяет тип возвращаемого значения. (В отсутствие предложения As, тип функции — Variant);
• значение функции возвращается присвоением этого значения имени процедуры непосредственно в теле функции. Когда процедура Function возвращает значение, это значение может затем стать частью большего выражения.
Процедура Function вызывается так же, как и любая встроенная функция Visual Basic.
Создание новых процедур. Чтобы создать новую главную процедуру необходимо ввести заголовок процедуры в окне редактирования кода и нажать <Enter>. Заголовок процедуры предваряется ключевым словом Sub или Function. Например, можно ввести следующее:
Sub UpdateForm ()
или
Function SchetSumma () ' Можно даже без скобок
Access отвечает, завершая шаблон для новой процедуры (вводит скобки параметров и инструкцию End Sub или End Function).
Выбор существующих процедур. Для просмотра существующей пользовательской процедуры в текущем модуле, нужно в окне редактирования кода выбрать Общая область из списка Объект и затем выбрать процедуру в окне Процедура.
Для просмотра процедуры обработки события, нужно выбрать соответствующий объект из списка Объект в окне редактирования кода и затем выбрать событие в окне Процедура.
Для просмотра процедуры в другом модуле необходимо:
1. Из меню Вид выбрать Просмотр объектов или нажать кнопку Просмотр объектов на панели инструментов.
2. В списке Проект/Библиотека окна Просмотр объектов выбрать проект.
3. Выбрать модуль из списка Классы и найти процедуру в списке Компоненты.
4. Дважды щелкнуть процедуру или выбрать Описания в контекстном меню окна Просмотр объектов или нажать кнопку Описания. Откроется окно нужного модуля.
Вызов процедур. Методы вызова процедур варьируются в зависимости от типа вызывающей процедуры и от того, как процедура используется в приложении.
В следующих разделах показано, как вызывать процедуры Sub и Function.
Вызов процедур Sub. Процедура Sub отличается от процедуры Function тем, что процедура Sub не может вызываться вводом ее имени внутри выражения. Вызов Sub — автономная инструкция. Кроме того, в имени Sub не возвращается значение, как это имеет место для функции. Однако, подобно Function, Sub может изменять значения любой переданной ей переменной.
Вызвать процедуру Sub можно двумя способами:
' Обе следующие инструкции вызывают процедуру Sub Proc1
Call Proc1 (Argument1, Argument2)
Proc1 Argument1, Argument2
Следует отметить, что, когда используется синтаксис Call, параметры должны быть заключены в круглые скобки.
Если ключевое слово Call опущено, нужно также опустить круглые скобки вокруг параметров.
Вызовпроцедур Function. Обычно процедура Function, написанная программистом, вызывается аналогично встроенной функции Visual Basic, то есть с использованием ее имени в выражении:
' Все следующие инструкции вызовут функцию ToDec
Print 10 * ToDec
X = ToDec
If ToDec = 10 Then Debug.Print "Значение вне допустимого интервала"
X = Function1(10 * ToDec)
Можно также вызвать функцию аналогично процедуре Sub. Например, обе следующие инструкции вызывают функцию Year:
Call Year (Now)
Year Now
При вызове функции, таким образом, Visual Basic отбрасывает возвращаемое значение.
Вызовпроцедур других модулей. Процедуры Public в других модулях могут вызываться отовсюду в проекте. Возможно, потребуется специфицировать модуль, который содержит вызываемую процедуру. Это будет зависеть от того, в каком модуле размещена процедура: формы (отчета), класса или стандартном.
Процедуры в формах и отчетах. Все вызовы снаружи модуля формы должны указывать на модуль формы (или отчета), содержащий процедуру. Если, например, процедура, именованная Sub1, находится в модуле отчета Счет, то вызвать процедуру из этого модуля можно, используя такую инструкцию:
Call Report_Счет.Subl (параметры)
Процедуры в модулях классов. Как и при вызове процедуры формы, вызов процедуры в модуле класса должен квалифицироваться переменной, которая указывает на экземпляр класса. Например, DemoClass — экземпляр класса Class1:
Dim DemoClass as New Class1
DemoClass.Subl
Однако, в отличие от формы или отчета, имя класса не может непосредственно использоваться как спецификатор при обращении к экземпляру класса. Вначале должен быть объявлен экземпляр класса как объектная переменная (в нашем случае — DemoClass), и далее этот экземпляр должен адресоваться именем переменной.
Процедуры в стандартных модулях. Если имя процедуры уникально, включать имя модуля в вызове не требуется. Вызов изнутри или снаружи модуля будет адресован к этой уникальной процедуре.
Если два или больше модуля содержат процедуры с одинаковыми именами, придется квалифицировать их именем модуля. Вызов такой процедуры из модуля выполняет процедуру данного модуля. Например, если процедура с именем CommonName имеется в модулях Модуль1 и Модуль2, то вызов CommonName из Модуль2 запустит процедуру CommonName в Модуль2, но никак не процедуру CommonName в Модуль1.
Если из Модуль1 требуется вызвать процедуру CommonName, определенную в Модуль2, нужно использовать такую инструкцию:
Moдyль2.CommonName (параметры)
