Ако искате да получите информация от потребителя, можете да използвате функцията INPUTBOX.
Тази функция показва диалогов прозорец, който позволява на потребителя да попълни всичко и връща съдържанието като низ.
Понякога искате да решите какво трябва да попълни потребителят, вместо да приемате каквато и да е информация. Това е, когато използвате INPUTBOX-метода:
Sub DecideUserInput () Dim bText As String, bNumber As Integer 'тук е INPUTBOX-функцията: bText = InputBox ("Вмъкване в текст", "Това приема всеки вход")' тук е INPUTBOX-метод: bNumber = Приложение. InputBox ("Вмъкване на число", "Това приема само числа", 1) MsgBox "Вмъкнали сте:" & Chr (13) & _ bText & Chr (13) & bNumber,, "Резултат от INPUT-кутии" End Sub
Методът INPUTBOX има трети аргумент Тип, който решава какво може да се вмъкне на потребителя в диалоговия прозорец INPUTBOX.
Типът може да бъде един от следните:
Тип :
Приет вход: 0 A формула 1 A число 2 Текст 4 Логическа стойност (True или False) 8 Препратка към клетка, напр. a Range-object 16 Стойност на грешка, напр. #N/A 64 Масив от стойности
Когато стартираме макроса, ще видим следните полета за въвеждане:
По този начин можем да получим резултата чрез полето за съобщения.