Функция InputBox

Функция InputBox применяется для ввода чисел или текста. Эта функция отображает диалоговое окно ввода, содержащее поле ввода и поясняющий текст. Синтаксис функции Окна ввода (InputBox) следующий:

InputBox(Приглашение[, Заголовок ] [, НачЗначение]),

где:

Эта функция требует обязательного задания только аргумента Приглашение.

Приглашение - это любой текст, который должен, находится в Окне ввода. Его назначение - служить подсказкой пользователю, какую информацию он должен ввести в специальное поле ввода, находящееся в этом окне.

Заголовок - это надпись в строке заголовка Окна ввода.

НачЗначение - это значение, которое будет отображаться (по умолчанию) в поле ввода, пока пользователь не введет свое значение. Если этот аргумент опустить, то поле ввода отображается пустым.

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

VBA автоматически приписывает этой информации тип Variant.

Пример диалогового окна ввода показан на рисунке

Текст: InputBox "Введите число", "Какое число задумано?"

Использование объединенных текстовых строк

Если надо объединить несколько текстовых строк в одну, используется символ конкатенации & (амперсенд). С помощью амперсенда можно объединять и числовые значения. При этом числа будут сначала преобразованы в строки. Результат тоже будет строкой.

II. Выполните задание, следуя указаниям

Рассчитайте площадь прямоугольника используя объединение строк. Стороны прямоугольника вводятся через окна ввода. Результат выполнения программы выводится через окно сообщений.

Public Sub Объединение()

Dim Storona1 As Single, Storona2 As Single, Rezultat As Single

Storonal = InputBox("Введите первую сторону прямоугольника", "Площадь прямоугольника")

Storona2 = InputBox("Введите вторую сторону прямоугольника", "Площадь прямоугольника")

Rezultat = Storonal * Storona2

MsgBox "Площадь прямоугольника =" & Rezultat & "квадратных сантиметров"

End Sub

III. Выполните самостоятельно задания.

1. Экранная форма приложения содержит три текстовых поля и командную кнопку «ПУСК». После нажатия на эту кнопку последовательно появляются Окна для ввода вашей фамилии, имени и отчества. После ввода данных все три текстовых поля пользовательской формы должны быть заполнены.

2. Дополните предыдущую программу таким образом, чтобы введенная информация отображалась как в экранной форме, так и в окне вывода.

IV. Ответьте на вопросы.

Контрольные вопросы

1. Использование функции MsgBox.

2. Использование функции InputBox.

3. Использование объединенных текстовых строк.

Форма отчета: Файл с выполненным заданием. Ответы на контрольные вопросы.

ПРАКТИЧЕСКАЯ РАБОТА №9
Тема: Операции и функции VBA