Условный оператор с одной ветвью
Можно использовать оператор If без ветви Else. Структура такого оператора:
Пример 2
Проверить значение ячейки D3 электронной таблицы. Если оно больше 1000, следует вывести сообщение «Вычисления прекратить».
Программа:
Sub ОднаВетвь ( )
If Range(“D3”).Value > 1000 Then
MsgBox(“Вычисления прекратить”)
End If
End Sub.
Организация программ для проверки нескольких условий
В этом случае в теле (то есть внутри) одного условного оператора записывают другие условные операторы.
Пример 3
В
ычислить
Решение
Пишем программу
Sub ТриВетви ( )
Dim X,Z As Single
If X > 13 Then
Z = X – 8
Else
If X <= 0 Then
Z = X^4
Else
Z = 9*X
End If
End If
End Sub.
Пример 4
Составить программу вычисления
Значение Х находится в ячейке А1 листа Excel, а значение Y следует поместить в ячейку В2 того же листа.
Решение
1. Открыть Excel.
2. Записать в ячейку А1 число – 4.
3. Создать процедуру с именем Пример.
4. Ввести текст программы:
5. Нажать F5.
6. Щелкнуть по Ms Excel на Панели задач. Результат показан в табл. 13.
Таблица
13 Таблица 14 Таблица 15
7. Для проверки второй ветви программы:
ввести в А1 число 2;
перейти в редактор VBA;
нажать F5. Результат показан в табл. 14.
8. Для проверки третьей ветви программы:
ввести в А1 число 0;
перейти в редактор VBA;
нажать F5. Результат показан в табл.15.
Пример 5
Вычислить
Значение Х находится в ячейке А5 листа Excel с именем Первый, а значение Z нужно поместить в ячейку А5 листа Второй.
Обратите внимание! Исходные данные находятся на одном листе Excel, а результат следует поместить на другой!
Решение
1. Переименовываем два листа Excel:
Щелчок правой клавишей по Лист 1;
Команда Переименовать;
Ввести Первый;
Повторяем операции для Листа 2 (новое имя - Второй).
2. В ячейку А5 листа Первый заносим число 9 (проверим вторую ветку).
3. Создаем в VBA программу:
Sub Пример5 ( )
Dim X,Z As Single
‘ опишем листы Excel как объекты
Dim Первый, Второй As Object
‘ Определение класса объектов
Set Первый = WorkSheets(“Первый”)
Set Второй = WorkSheets(“Второй”)
‘ Считывание значения Х с листа Первый
Х = Первый.Range(“A10”).Value
‘ Проверка значения Х
If X >= 10 Then
Z = Log(X)
Else
If X < 1 Then
Z = Abs(X)
Else
Z = Sqr(X)
End If
End If
‘ Запись результата на лист Второй
Второй.Range(“A5”).Value = Z
End Sub
4. Проверка работы программы (F5).
5. Перейти на лист Второй Excel ( в ячейке А5 – число 3).