Ввод и вывод данных с помощью диалоговых окон

Для ввода-вывода информации в 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