Ввод и вывод данных с помощью диалоговых окон
Для ввода-вывода информации в MS EXCEL можно использовать диалоговые окна сообщений.
Диалоговое окно ввода имеет следующий вид (см. рис. 9):
Рис. 9
Для создания этого окна ввода нужно воспользоваться функцией InputBox, которая имеет следующий синтаксис:
InputBox("Сообщение" [,"Заголовок"],[,"По умолчанию"])
Здесь:
Сообщение – строка символов или строковая переменная, содержащая текстовое сообщение пользователю.
Заголовок – заголовок выводимого диалогового окна.
По умолчанию – значение, присваиваемое по умолчанию.
[ ] – наличие этих скобок говорит о том, что параметр, указанный в этих скобках может быть не задан.
Возвращаемое функцией InputBox значение имеет тип String. Однако если переменная, которой присваивается возвращаемое функцией значение, описана с помощью оператора Dim, то в результате присваивания тип описываемой переменной не изменится. Т.е.
Dim b As Single
b = InputBox("b=", "Окно ввода")
В этом примере b – это переменная вещественного типа, после выполнения второго оператора тип переменной b не изменился.
Диалоговое окно вывода может иметь следующий вид (см. рис. 10):
Рис. 10
Для создания окна вывода можно воспользоваться функцией MsgBox. Функция позволяет выводить как числовые, так и текстовые сообщения на экран. Окно может иметь кнопки: OK, Cancel, Yes, No. Синтаксис записи функции имеет следующий вид:
MsgBox <Сообщение>[, Атрибуты] [, Заголовок]
Здесь:
Сообщение – это текст, который выводится (записывается в кавычках). Если необходимо объединить текст и значение переменной или вывести две текстовые строки в одном текстовом окне сообщений, то нужно использовать операцию конкатенации (&) (например, объединение текста и значения переменной: "b=" & b).
Заголовок – это заголовок выводимого окна.
Атрибуты – задаются системными константами, которые определяют количество выводимых кнопок и стиль стандартного значка. В таблице 4 приведены некоторые системные константы:
Таблица 4
-
Константа
Описание
vbOKOnly
Наличие кнопки ОК
vbOKCancel
Наличие кнопки ОК и Cancel
vbYesNoCancel
Наличие кнопок Yes, No и Cancel
vbYesNo
Наличие кнопок Yes и No
vbCritical
Значок критического сообщения
vbQuestion
Значок – Вопрос с предупреждением
vbExclamation
Значок – Предупреждение
vbInformation
Значок – Информационное сообщение
[ ] – наличие этих скобок говорит о том, что параметр, указанный в этих скобках может быть не задан.
Рассмотрим пример макроса ввода-вывода
Sub Ввод_Вывод()
Dim n As Single
n = InputBox("ВВЕДИТЕ N", "ОКНО ВВОДА")
MsgBox "Вы ввели " & n, vbOKOnly , "ОКНО ВЫВОДА "
End Sub
В ответ на запрос (см. рис. 11)
рис. 11
программа выдает сообщение (см. рис. 12)
рис. 12