1) Функция «Окно ввода» (InputBox).
Синтаксис функции следующий:
InputBox (Приглашение[,Заголовок][,НачЗначение], где
Приглашение – подсказка пользователю, какую информацию необходимо ввести в окно ввода.
Необязательный аргумент Заголовок – надпись в строке заголовка Окна ввода.
Назначение – значение, вводимое по умолчанию, с которым пользователь может не согласиться.
Например:
a = InputBox("Введите значение суммы сделки")
2) Функция «Окно сообщения» (MsgBox)
Это функция не возвращает никакого значения, а выводит информацию о работе программы или ошибках.
Синтаксис функции следующий:
MsgBox(Prompt[, Buttons][, Title][, HelpFile][, Context])
Параметры
Prompt – строковое выражение не более 1024 символов, отображаемое в диалоговом окне (текст, который должен отображаться в окне»
Buttons – числовое выражение, определяющее какой рисунок будет отображаться в диалоговом окне, какие будут кнопки, а также устанавливает модальность диалогового окна и определяет кнопки по умолчанию. Если этот параметр опущен, принимается значение 0.
Title – текст заголовка диалогового окна. Если этот параметр опущен, то отображается название приложения.
HelpFile - строковое выражение, указывающее имя файла справки для диалогового окна.
Context - числовое выражение, указывающее номер контекста файла справки для диалогового окна.
Параметр Buttons, представленный целочисленным значением, определяет, какие кнопки и пиктограммы должны быть размещены в диалоговом окне. Формируется оно как сумма четырех слагаемых, первое из которых определяет совокупность кнопок, второе – тип иконки, третье определяет порядковый номер кнопки по умолчанию, четвертое – режим модальности. К последнему слагаемому прибегают крайне редко. А список наиболее употребительных констант и соответствующих числовых значений приведен в табл. 14
Таблица 14
|
Число |
Константа |
Пояснение |
|
Комбинации кнопок | ||
|
0 |
VbOKOnly |
Только кнопка <OK> |
|
1 |
VbOKCancel |
Кнопки <OK> и <Cancel> (Отмена) |
|
2 |
VbAbortRetryIgnore |
Кнопки <Abort> (Стоп), <Retry> (Повтор), <Ignore> (Пропустить) |
|
3 |
VbYesNoCancel |
Кнопки <Yes> (Да), <No> (Нет), <Cancel> (Отмена) |
|
4 |
VbYesNo |
Кнопки <Yes> (Да), <No> (Нет) |
|
5 |
VbRetryCancel |
Кнопки <Retry> (Повтор), <Cancel> (Отмена) |
|
Тип пиктограммы | ||
|
16 |
VbCritical |
Запрещающий знак в кружочке |
|
32 |
VbQuestion |
Вопросительный знак в кружочке |
|
48 |
VbExclamation |
Восклицательный знак в кружочке |
|
64 |
VbInformation |
Буква i в кружочке |
Например:
p = MsgBox("Перимтр, p = " & p, vbYesNoCancel, "Результат")
или
p = MsgBox("Перимтр, p = " & p, vbInformation + 0, "Результат")
Операторы языка VBA
Оператор – это наименьшая способная выполняться единица кода VBA. Оператор может объявлять или определять переменную, устанавливать параметр компилятора VBA или выполнять какое-либо действие в программе.
Арифметических операторов в VBA всего 7. Четыре стандартных: сложение (+), вычитание (-), умножение (*), деление (/) и еще три:
возведение в степень (^), например 2^3 = 8;
целочисленное деление (\). Делит первое число на второе, отбрасывая (не округляя) дробную часть. Например, 5\2 = 2;
деление по модулю (Mod). Делит первое число на второе, возвращая только остаток от деления. Например, 5 Mod 2 = 1.
Оператор присвоения в VBA – знак равенства. Можно записывать так:
Let nVar = 10
а можно еще проще:
nVar = 10
Во втором случае не путайте знак равенства с оператором равенства.
Выражение nVar = 10 значит «присвоить переменной nVar значение 10», а если строка выглядит так: If ( nVar = 10) то это значит «если значение переменной nVar равно 10».
Операторов сравнения в VBA всего 8:
равенство (=), например, If (nVar = 10);
больше, чем и меньше, чем (> и <), например, If (nVar > 10);
больше или равно и меньше или равно (>= и <=), например, If (nVar >= 10);
не равно (<>), например, If(nVar<>10);
сравнение объектов (Is). Определяет, ссылаются объектные переменные на тот же объект или на разные, например, If(obj1 is obj2);
подобие (Like). Сравнивает строковый объект с шаблоном и определяет, подходит ли шаблон.
Операторы сравнения всегда возвращают true или false – true, если утверждение истинно, и false, если ложно.
Очень часто при проверке нескольких условий используются логические операторы:
AND – логическое И, должны быть истинными оба условия;
OR – логическое ИЛИ, должно быть истинным хотя бы одно из условий;
NOT – логическое отрицание, возвращает TRUE, если условие ложно;
XOR – логическое исключение. В выражении E1 XOR E2 возвращает TRUE, если только E1 = TRUE или только E2 = TRUE, иначе – FALSE;
EQV – эквивалентность двух выражений, возвращает TRUE, если они имеют одинаковое значение;
IMP – импликация, возвращает FALSE, если E1 = TRUE и E2 = FALSE, иначе – TRUE.
Помнить нужно про AND, OR, NOT, остальные логические операторы используются редко.
Почти в любой программе VBA используются операторы конкатенации. В VBA их два – + или &. Рекомендуется всегда использовать &, потому что:
при использовании & производится автоматическое преобразование числовых значений в строковые – нет опасности допустить ошибку;
при использовании оператора + сложение строкового значения со значением типа Null дает Null.
Порядок применения операторов можно регулировать при помощи круглых скобок.
Если оператор не помещается в одну строку, его можно перенести на другую при помощи комбинации пробела и подчеркивания. Например, вместо
Результат.Text = Val(Число1.Text) + Val(Число2.Text)
можно записать
Результат.Text = Val(Число1.Text) _
+ Val(Число2.Text)
VBA допускает писать в одной строке несколько операторов, разделяя их двоеточиями, вот так:
Звук.Command = «Open» : Звук.Command = «Sound» : Звук.Command = «Close»
Это приятно экономит место по вертикали экрана.
Таблица 15