Функция InputBox

Функция возвращает значение, введенное пользователем.Возможна запись функции InputBox как встроенной функции Visual Basic и как метода объекта Application.

Синтаксис функции InputBox как функции Visual Basic

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

· prompt – текст сообщения;

· title – заголовок окна сообщения;

· default – значение по умолчанию, которое высвечивается в поле ввода диалога;

· xpos – число, указывающее отступ в твипсах по горизонтали от начала экрана до левого верхнего угла диалога. Если параметр опущен, то диалог центрован по горизонтали;

· ypos – число, указывающее отступ в твипсах по вертикали от начала экрана до левого верхнего угла диалога. Если параметр опущен, то диалог опущен приблизительно на одну треть экрана;

· helpfile – имя файла, содержащего подсказку по высвечиваемому сообщению;

· context – числовой номер контекстного Help’а.

Важно

ü prompt – обязательный аргумент, остальные возможны.

ü Диалоговое окно имеет всегда две кнопки OK и Cancel.

ü Еслинажата кнопка OK или клавиша Enter, то функция возвращает то, что введено в поле ввода диалога.

ü Если нажата кнопка Cancel, то возвращается пустая строка ("").

ü Возвращаемое функцией значение всегда имеет тип String.

ü Если предполагается ввод чисел, то введенное значение необходимо преобразовать в числовое, используя функции преобразования строк в число.

Метод InputBox объекта Application предназначен для ввода непосредственно в объекты приложения Microsoft Excel.

Синтаксис метода InputBox объекта Application

expression.InputBox(Prompt[,Title][,Default][,Left][,Top][,HelpFile,HelpContextId][,Type])

· expression – выражение, представляющее объект Application. Указание обязательно;

· Prompt, Title, Default, HelpFile – имеют тот же смысл, что и в первой форме записи;

· Left – число, указывающее отступ в точках по горизонтали от начала экрана до левого верхнего угла диалога. Если параметр опущен, то диалог центрован по горизонтали;

· Top – число, указывающее отступ в точках по вертикали от начала экрана до левого верхнего угла диалога. Если параметр опущен, то диалог опущен приблизительно на одну треть экрана;

· HelpContextId – имеет такое же значение какпараметр context в формефункции VBA;

· Type – тип возвращаемых данных. Если аргумент опущен, то возвращаемое функцией значение имеет тип String. В качестве типа может использоваться любое из перечисленных в таблице значений или их сумма.

Type	Описание
	Формула
	Число
	Текст (строка символов)
	Логическое значение (True or False)
	Ссылка на ячейку как объект Range
	Значение ошибки, например, #N/A
	Массив значений

Важно

ü Диалоговое окно имеет всегда две кнопки OK и Cancel.

ü Еслинажата кнопка OK или клавиша Enter, то функция возвращает то, что введено в поле диалога.

ü Если нажата кнопка Cancel, то возвращается False.

ü Если предполагается ввод чисел, то введенное значение необходимо преобразовать в числовое, используя функции преобразования строк в число.

ü Если вводится ссылка на ячейку, помните, что столбец задается буквой латинского алфавита.

Примеры

1. Заполнение произвольного интервала ячеек введенным числом.

Sub fill_range() Dim num As Single, cell_1 As Variant, cell_2 As Variant num = Val(Application.InputBox("Введичисло")) Worksheets("Лист1").Activate Set cell_1 = Application.InputBox(prompt:="Введиначалоинтервала", Type:=8) Set cell_2 = Application.InputBox(prompt:=" Введиконецинтервала", Type:=8) Range(cell_1, cell_2).Value = num End Sub

Процедура запрашивает начальный и конечный адреса интервала ячеек и число, которым необходимо заполнить заданный интервал. Функция Val преобразует введенное значение в число.

Адреса интервалов вводятся как ссылки на ячейки, например, B12. Оператор Set устанавливает ссылку на первую cell_1 и последнюю cell_2 ячейки интервала. Запись Range(cell_1, cell_2).Value означает обращение к свойству Value каждой ячейки интервала.

2. Процедура запрашивает ввод числа, выводит его квадрат и, в зависимости от выбранной командной кнопки, продолжает выполнение или заканчивает работу.

Sub numbers() Dim p As Single, reply As Integer Do p =Val(InputBox("Введитечисло")) If p=0 Then Exit Sub reply = MsgBox("кв.корень= " & Sqr(p) & "Продолжить?", vbYesNo) Loop Until reply = vbNo End Sub

Введенное значение в преобразованном виде сохраняется в переменной p. Если нажата кнопка Cancel, то значение p равно 0 и происходит немедленный выход из процедуры.

В процедуре используется цикл типа Do... Loop Until для ввода чисел до тех пор, пока пользователь не нажмет кнопку No. Цикл выполняется, по крайней мере, один раз.