InputBox Function

Отображает приглашение, по которому пользователь может ввести текст. Введенное значение присваивается переменной.

Инструкция InputBox является удобным методом ввода текста через диалоговое окно. Подтвердите ввод, нажав кнопку "ОК" или клавишу ВВОД. Результат передаётся как возвращаемое значение функции. Если это диалоговое окно закрыть с помощью кнопки "Отмена", InputBox возвращает строку нулевой длины ("").

Синтаксис

InputBox (Сообщение As String[, Заголовок As String[, По_умолчанию As String[, позиция_X As Integer, позиция_Y As Integer]]]])

Возвращаемое значение:

String

Параметр:

Сообщение. Строковое выражение, отображаемое как сообщение в диалоговом окне.

Заголовок. Строковое выражение, отображаемое в заголовке диалогового окна.

По_умолчанию. Строковое выражение, по умолчанию отображаемое в текстовом поле, если нет других выводимых данных.

позиция_X. Выражение из целых чисел, которое указывает горизонтальную позицию диалогового окна. Эта позиция является абсолютной координатой и не имеет отношения к окну приложения Office.

позиция_Y. Выражение из целых чисел, которое указывает вертикальную позицию диалогового окна. Эта позиция является абсолютной координатой и не имеет отношения к окну приложения Office.

Если значения позиция_X и позиция_Y не указаны, диалоговое окно размещается в середине экрана. Позиция указывается в твипах.

Пример:

Sub ExampleInputBox
Dim sText As String
    sText = InputBox ("Введите фразу:","Уважаемый пользователь")
    MsgBox ( sText , 64, "Подтверждение фразы")
End Sub