| 768 | Выбор по умолчанию четвертой кнопки |
С помощью этой таблицы несложно подсчитать, что при вызове функции, отобразившей окно сообщения, показанное на рис. 11.3, значение аргумента кнопки было равным 531. Но кому хочется это значение считать? Легче напечатать следующий оператор:
intA = MsgBox("Нажмите кнопку", vbYesNoCancel + vbCritical
+ vbDefault Button3, "VBA для 'чайников'")
Третья из констант, использованных в выражении для аргумента кнопки, константа vbDefaultButton3, назначает третью кнопку (считая слева направо) кнопкой, выбираемой по умолчанию. В данном случае это кнопка Отмена. Если внимательно рассмотреть рис. 11.3, можно увидеть, что кнопка Отмена получила фокус ввода - надпись на ней очерчена пунктирной рамкой, и это означает, что именно эта кнопка будет активизирована, если вы нажмете клавишу пробела или <Enter>.
Смысл отображения кнопок в окне сообщения заключается в предоставлении пользователю возможности выбора действия. В данном случае пользователю не нужно ничего печатать - следует только щелкнуть на одной из кнопок. А вам нужно суметь выяснить, на какой из кнопок щелкнул пользователь.
Это просто, поскольку функция MsgBox возвращает целое значение, как раз соответствующее той кнопке, на которой щелкнул пользователь. Чтобы не нагружать свою память, вы можете сравнивать возвращаемое значение не с конкретными числами, а с предлагаемыми VBA именованными константами. Вот эти константы вместе с их действительными значениями.
vbOK 1
vbCancel 2
vbAbort 3
vbRetry 4
vbIgnore 5
vbYes 6
vbNo 7
Если в окне сообщения всего две кнопки, для выяснения, на какой из кнопок был щелчок, прекрасно подходит оператор If ... Then. Например:
If MsgBox ("Начинать?", vbYesNo) = vbYes Then
ЧтоНибудьСделать
Else
НэДелать Ничего
End If
Когда кнопок больше, приходится использовать оператор If . . .Then. . .Else If.
По умолчанию окно сообщения отображает в строке заголовка имя того VBA приложения, из которого выполняется программа (см. рис. 11.2). Этот заголовок можно изменить на любой другой, задав соответствующее значение аргумента заголовок в операторе вызова функции MsgBox (см. рис. 11.3).
Получение информации от пользователя
Если вам нужна от пользователя более конкретная информация, не укладывающаяся в рамки выбора из трех кнопок, используйте функцию Input Box. Вот ее формальная синтаксическая конструкция, из которой удалены некоторые необязательные аргументы, расширяющие возможности:
InputBox(сообщение[, заголовок] [, ответ])
Как видно из рис. 11.4, эта функция отображает диалоговое окно с полем текста, куда пользователь может впечатать некоторую, как предполагается, важную информацию. Чтобы передать эту информацию программе, присвойте возвращенное функцией Input Box значение строковой переменной: strB = InputBox ("Какие места предпочитаете?", "TWA", "У прохода")
Рис. 11.4. Простое окно ввода
Хотя с помощью окна ввода можно получить больше информации, чем с помощью окна сообщения, с окном ввода программисту работать легче - тут нет кнопок и пиктограмм, которые можно выбирать. Аргументы сообщение и заголовок точно такие же, как и в случае функции MsgBox. Вы можете облегчить задачу пользователю, задав значение аргумента ответ. Тем самым вы предложите ему ответ, принимаемый по умолчанию, - если предложенный вами ответ подойдет, пользователь сможет просто нажать клавишу <Enter>.
В случае переменной типа Boolean изменить ее значение на противоположное проще всего с помощью операции логического отрицания Not. При этом результат применения операции нужно просто присвоить той же самой переменной.
Например, оператор boolBlinking = Not (boolBlinking) делает значение переменной boolBlinking равным True, если значением было False, и, наоборот, равным False, если значением было True.
Забавы с математикой и деньгами
В VBA предлагается целый ряд функций для работы с числовыми значениями. Эти функции предназначены для решения ряда задач от совсем простых (например, возвращение абсолютного значения или знака числа) до достаточно сложных вычислений алгебраических и тригонометрических величин. А добрая дюжина финансовых функций VBA поможет удержать на плаву любой утопающий бизнес.
Я не собираюсь останавливаться здесь на всех этих функциях, а рассмотрю лишь, как исключение, несколько избранных из них. Да и эти последние я обсуждаю только потому, что их непросто обнаружить в системе справки VBA и поэтому вы могли бы иначе просто не узнать о них. Внимательно ознакомьтесь с приведенным ниже списком, чтобы знать, что в VBA есть, а чего - нет.
В табл. 11.7 приведены функции VBA, которые можно назвать математическими. Перед тем как использовать их, не забудьте снова просмотреть раздел "Конвертирование данных" выше в этой же главе.
Таблица 11.7. Математические функции VBA
Функция Возвращаемое значение
