Вы можете использовать функцию InputBox в Excel VBA, чтобы предложить пользователю ввести значение. Поместите командную кнопку на листе и добавьте строки следующего кода:

  1. Во-первых, объявить переменную MyValue типа Variant.

Dim myValue As Variant

Примечание: мы используем переменную типа Variant здесь, потому что переменная Variant может содержать значения любого типа. Таким образом, пользователь может вводить текст, цифры и т.д.

  1. Добавьте следующую строку кода, чтобы показать окно ввода.

myValue = InputBox("Give me some input")

InputBox Function in Excel VBA

  1. Записать значение MyValue в ячейку A1.

Range("A1").Value = myValue

Результат, когда пользователь вводит значение 5 и нажимает на кнопку OK.

InputBox Function Result

  1. Функция InputBox имеет несколько дополнительных аргументов. Следующий код линия показывает поле ввода с названием отображается в строке заголовка и имеет значение по умолчанию. Значение по умолчанию будет использоваться, если никакой другой вход не предусмотрен.

myValue = InputBox("Give me some input", "Hi", 1)

InputBox Function in Excel VBA

Результат, когда пользователь только нажимает на кнопку OK.

InputBox Function Result

Примечание: Наведите курсор на InputBox в редакторе Visual Basic и нажмите F1 для получения справки о других дополнительных аргументах.