В этой статье Вы научитесь создавать поле ввода в 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

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


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



We use cookies on our website. Some of them are essential for the operation of the site, while others help us to improve this site and the user experience (tracking cookies).

You can decide for yourself whether you want to allow cookies or not. Please note that if you reject them, you may not be able to use all the functionalities of the site.

Ok