Функции взаимодействия с пользователем

Для организации диалога с пользователем VBA представляет две встроенные функции - MsgBox и InputBox. Окно сообщений MsgBox выводит сообщения для пользователя, а окно ввода InputBox обеспечивает возможность получения информации от пользователя.

Функция MsgBox() выводит на экран диалоговое окно, содержащее сообщение, устанавливает режим ожидания нажатия кнопки пользователем, а затем возвращает значение типа Integer, указывающее, какая кнопка была нажата.

Формат функции MsgBox:

MsgBox (Prompt [, Buttons] [, Title] [, HelpFile, Context])

Назначение параметров:

Prompt – строковое выражение, отображаемое как сообщение в диалоговом окне;

Title – строковое выражение, отображаемое в строке заголовка диалогового окна. Если этот параметр опущен, в строку заголовка помещается имя приложения, из которого запускается программа VBA;

HelpFile – строковое выражение, определяющее имя файла справки, содержащего справочные сведения о данном диалоговом окне; обычно это файл, который вы уже должны были создать с помощью Windows Help Compiler. Если этот параметр указан, необходимо также указать параметр Context;

Context – числовое выражение, определяющее номер соответствующего раздела справочной системы. Если этот параметр указан, необходимо указать также параметр HelpFile;

Buttons – числовое выражение, которое задает количество и тип кнопок в диалоговом окне MsgBox. Buttons указывает также кнопку по умолчанию в диалоговом окне и содержит ли это диалоговое окно стандартные значки Windows для предупредительных сообщений и запросов пользователя. Значения Buttons можно получить из справочной системы.

Простой пример использования функции MsgBox:

Sub sample2()

MsgBox "Видите ли вы две кнопки?", vbYesNo + vbInformation, "Сообщение"

End Sub

В данном примере MsgBox применяется не в виде функции, а в виде процедуры (т.е. не возвращает никакого значения). Следовательно, код выбранной кнопки нигде не сохраняется и не может быть использован. Чтобы определить, какая кнопка была нажата, MsgBox необходимо вызвать как функцию, т.е. сохранить возвращаемое значение в переменную (Листинг 2).

Листинг 2. Использование MsgBox

Sub sample3()

Dim res ' объявляем переменную

' вызываем MsgBox и сохраняем значение в переменной

res = MsgBox("Видите ли вы две кнопки?", vbYesNo + vbInformation, "Сообщение") Debug.Print res ' печатаем полученное значение

End Sub

При выполнении этого макроса, когда пользователь выбирает кнопку Yes или No в переменной res сохраняется число, соответствующее выбранной кнопке.

Вместо возвращаемых функцией MsgBox целочисленных значений удобнее пользоваться предопределенными константами VBA. В таблице 7 приведены возвращаемые значения констант функции MsgBox.

Таблица 7 – Возвращаемые значения функции MsgBox

Дополним код листинга 2 проверкой возвращенного значения (листинг 3).

Листинг 3. Проверка возвращаемого значения MsgBox

Sub sample4()

' вызываем MsgBox и сохраняем значение в переменной

res = MsgBox("Видите ли вы две кнопки?", vbYesNo + vbInformation, "Сообщение")

' проверяем, какая кнопка нажата

If res = vbYes Then: MsgBox "Вы нажали Yes", "Результат выбора"

Else: MsgBox "Вы нажали No", "Результат выбора"

End If

End Sub

Функция InputBox() выводит на экран диалоговое окно, содержащее сообщение и поле ввода, устанавливает режим ожидания ввода текста, а затем возвращает значение типа String, содержащее текст, введенный в поле. Формат функции InputBox:

InputBox (Prompt [, Title] [, Default] [, XPos] [, Ypos] [, HelpFile, Context])

Назначение параметров:

Prompt – строковое выражение, отображаемое как сообщение в диалоговом окне;

Title – строковое выражение, отображаемое в строке заголовка диалогового окна. Если этот параметр опущен, в строку заголовка помещается имя приложения;

Default – строковое выражение, отображаемое в поле ввода и используемое по умолчанию, если пользователь не введет другую строку. Если этот параметр опущен, поле ввода изображается пустым;

Xpos и Ypos – числовые выражения, которые указывают местоположение окна ввода и являются координатами верхнего левого угла диалогового окна; Xpos – горизонтальное расстояние от левого края окна; Ypos – вертикальное расстояние от верхнего края окна. Если эти параметры опущены, диалоговое окно выравнивается по центру экрана;

HelpFile – строковое выражение, определяющее имя существующего файла справки, содержащего справочные сведения о данном диалоговом окне. Если этот параметр указан, необходимо также указать параметр Context;

Context – числовое выражение, определяющее номер соответствующего раздела справочной системы. Если этот параметр указан, необходимо указать также параметр HelpFile.

Приведем пример использования функции InputBox для получения имени пользователя.

Sub sample5()

Dim username As String

username = InputBox("Введите ваше имя ", "Пример 5")

MsgBox ("Здравствуйте, "+username)

End Sub

В результате выполнения этого макроса на экран последовательно выводятся диалоговые окна ввода и вывода (см. рисунок 1).

Рисунок 1 – Интерактивные функции VBA.

Пример 1.1 [1]: Перевести минуты в часы.

Sub lr1()

Const min_1h = 60

Dim min As Integer

Dim Hours As Single

min = Val(InputBox("Введите количество минут"))

Hours = min/min_1h

MsgBox min & " минут составляет " & Hours & " час (а, ов)"

End Sub

Поиск по сайту: