InputBox(Сообщение, Заголовок, Текст по умолчанию)
Сообщение – максимальная длина 1024 символа. Перенос текста – клавиша Enter.
Заголовок – выражение, которое отображается в верхней строке окна. Если этот аргумент опущен, в строке будет имя приложения, например, Microsoft Excel.
Текст по умолчанию – выражение, отображаемое в поле ввода, если пользователь не введет другую строку. Если аргумент опущен, поле ввода отображается пустым.
Например, оператор
Результат = InputBox(“Введите число от 1 до 3”,”Пример”,”1”)
выведет на экран окно рис. 13.
Рис. 13
При вводе программы
появится диалоговое окно рис. 14.
Рис. 14
Функция MsgBox
Выводит на экран диалоговое окно, содержащее сообщение;
Устанавливает режим ожидания нажатия пользователем кнопки;
Позволяет помещать в окне различные кнопки;
Сохраняет значение типа Integer, указывающее, какая кнопка была нажата.
Синтаксис функции MsgBox:
MsgBox(Сообщение, Кнопки, Заголовок).
Кнопки – выражение, показывающее, какие кнопки следует поместить в диалоговом окне. В табл. 12 показаны числовые значения, присваиваемые переменным ответа при нажатии различных кнопок.
Таблица 12
-
Выражение
Кнопки
Значение
VbOk
Ок
1
VbYes
Да
6
VbNo
Нет
7
VbCancel
Отмена
2
VbYesNo
Да, Нет
3
VbOkCancel
Ок, Отмена
4
Например, оператор
Ответ =MsgBox(“Обнаружена ошибка. Продолжить?”,VbYesNo”Пример2”)
выведет окно рис. 15.
Рис. 15
2.2. Операторы перехода
Изучаемые вопросы:
Операторы комментариев и присваивания;
Оператор безусловного перехода;
Оператор условного перехода.
2.2.1. Операторы присваивания
Синтаксис оператора присваивания для переменных
Работает так: вычисляется значение выражения в правой части оператора, и
результат присваивается переменной, стоящей в левой части. Например,
X = 3.14
Y = Cos(X)
Z = Y^6.
Синтаксис оператора присваивания для объектов
Например, опишем переменную Новый как объект и уточним, что это лист Excel:
Dim Новый As Object
Set Новый = WorkSheets(“Новый”)
или
Set Новый = WorkSheets(“Лист 1”).
2.2.2. Оператор безусловного перехода
Имеет
синтаксис:
GoTo
Метка оператора
Задает переход на указанную строку внутри программы. Например,
X =12
Y = X^2
GoTo M1
…
M1 Stop
2.2.3. Оператор условного перехода If (если)… Then (то)...Else (иначе)
Синтаксис оператора:
Оператор If работает так: проверяется записанное условие. Если условие выполняется – переход к Операторам 1. Если не выполняется – переход к Операторам 2. Например, фрагмент программы
Dim X,Y As Integer
X = 3
If X < 0 Then
Y = 2*X
Else
Y = X^2
End If
вычислит результат: 9.
Ф
рагмент
программы
Dim T,Z As Integer
T = -5
If T > 0 Then
Z = T^3
Else
Z = 13+T
End If
MsgBox(“Z= “ & Z)
Рис. 16
выведет диалоговое окно рис. 16:
Пример 1
Вычислить
Значение Х находится в ячейке С7 электронной таблицы, а результат следует поместить в ячейку F8 той же таблицы.
Решение
1. Открываем Excel.
2. Вводим в ячейку С7 число –3.
3. Сервис – Макрос – Редактор Visual Basic.
4. Insert – Module.
5. Insert – Procedure.
6. Вводим имя программы Ветвь.
7. Вводим текст программы:
8. Запускаем программу на вычисление (F5).
9. Переходим на лист Excel для проверки работы программы (Щелчок по Microsoft Excel на Панели задач). Результат показан на рис. 17:
Рис. 17
Проверим вторую ветвь программы
10. Вводим в ячейку С7 число 3.14.
11. Для перехода в VBA щелкнем по Microsoft VB на Панели задач.
12. Нажмем F5. Результат представлен на рис. 18.
Рис. 18