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

В процессе работы могут возникать ситуации, когда для ввода данных целесообразно использовать вызываемое отдельно диалоговое окно. Решить эту задачу поможет следующий макрос (листинг 3.12).

Листинг 3.12. Диалоговое окно ввода данных

Sub InputDialog()

Dim strInput As String

' Вызов стандартного диалогового окна ввода данных

strInput = InputBox(«Введите данные», «Ввод данных»)

End Sub

При запуске этого макроса на экране отобразится диалоговое окно (рис. 3.5).

Рис. 3.5. Диалоговое окно ввода данных

При необходимости можно задать текст, который будет отображаться в поле ввода диалогового окна по умолчанию (с помощью аргумента Default), а также определить параметры расположения окна на экране (аргументы XPos и YPos). Пример соответствующего макроса приведен в листинге 3.13.

Листинг 3.13. Значение по умолчанию

Sub NewInputDialog()

Dim strInput As String

' Вызов стандартного диалогового окна ввода со значением _

по умолчанию

strInput = InputBox(«Введите данные», «Ввод данных», _

«Значение по умолчанию», 200, 200)

End Sub

Окно, выводимое на экран при выполнении данного макроса, представлено на рис. 3.6.

Рис. 3.6. Текст по умолчанию в окне ввода данных

Работа в данном окне ведется по обычным правилам Windows.