В этой статье Вы научитесь создавать поле ввода в VBA Excel - InputBox, в которое можно вносить различную информацию для вычислений.

Функция InputBox предлагает пользователям ввести значения. После ввода значений, если пользователь нажимает кнопку OK или нажимает ENTER на клавиатуре, функция InputBox возвращает текст в текстовое поле. Если пользователь нажмет кнопку «Отмена», функция вернет пустую строку («»).

Синтаксис

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

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

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

пример

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

Function findArea()
   Dim Length As Double
   Dim Width As Double
   
   Length = InputBox("Введите длину ", "Введите число")
   Width = InputBox("Введите ширину", "Введите число")
   findArea = Length * Width
End Function

Поле ввода InputBox по шагам

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

Поле ввода в VBA Excel - InputBox

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

Поле ввода в VBA Excel - InputBox

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

Поле ввода в VBA Excel - InputBox

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

Поле ввода в VBA Excel - InputBox

 С уважением, авторы сайта Компьютерапия


Понравилась статья? Поделитесь ею с друзьями и напишите отзыв в комментариях!




Cookies make it easier for us to provide you with our services. With the usage of our services you permit us to use cookies.
Ok