VBA - InputBox

В InputBox functionпредлагает пользователям ввести значения. Если после ввода значений пользователь нажимает кнопку ОК или нажимает клавишу ВВОД на клавиатуре, функция InputBox вернет текст в текстовом поле. Если пользователь нажимает кнопку «Отмена», функция возвращает пустую строку («»).

Синтаксис

InputBox(prompt[,title][,default][,xpos][,ypos][,helpfile,context])

Параметр Описание

Prompt- Обязательный параметр. Строка, отображаемая как сообщение в диалоговом окне. Максимальная длина приглашения составляет примерно 1024 символа. Если сообщение занимает более одной строки, то строки можно разделить с помощью символа возврата каретки (Chr (13)) или символа перевода строки (Chr (10)) между каждой строкой.
Title- Необязательный параметр. Выражение String, отображаемое в строке заголовка диалогового окна. Если заголовок оставлен пустым, имя приложения помещается в строку заголовка.
Default- Необязательный параметр. Текст по умолчанию в текстовом поле, который пользователь хотел бы отобразить.
XPos- Необязательный параметр. ПоложениеXось представляет собой расстояние подсказки от левой стороны экрана по горизонтали. Если оставить поле пустым, поле ввода центрируется по горизонтали.
YPos- Необязательный параметр. ПоложениеYось представляет собой расстояние подсказки от левой стороны экрана по вертикали. Если оставить поле пустым, поле ввода будет центрировано по вертикали.
Helpfile- Необязательный параметр. Выражение String, определяющее файл справки, который будет использоваться для предоставления контекстно-зависимой справки для диалогового окна.
context- Необязательный параметр. Числовое выражение, определяющее номер контекста справки, присвоенный автором справки соответствующему разделу справки. Если указан контекст, также должен быть предоставлен файл справки.

пример

Давайте вычислим площадь прямоугольника, получая значения от пользователя во время выполнения с помощью двух полей ввода (одно для длины и одно для ширины).

Function findArea() 
   Dim Length As Double 
   Dim Width As Double 
   
   Length = InputBox("Enter Length ", "Enter a Number") 
   Width = InputBox("Enter Width", "Enter a Number") 
   findArea = Length * Width 
End Function

Вывод

Step 1 - Чтобы выполнить то же самое, вызовите, используя имя функции и нажмите Enter, как показано на следующем снимке экрана.

Step 2- После выполнения отображается Первое поле ввода (длина). Введите значение в поле ввода.

Step 3 - После ввода первого значения отображается второе поле ввода (ширина).

Step 4- После ввода второго числа нажмите кнопку ОК. Область отображается, как показано на следующем снимке экрана.