Конструкция If... Then... Else

определяет несколько блоков операторов, один из которых будет выполняться в зависимости от условия:

If условие1 Then.

выражение1.

ElseIf условие2 Then.

выражение2.

.. .

Else.

выражение-n.

End If.

При выполнении сначала проверяется условие1. Если оно ложно, VBA проверяет следующее условие2 и т. д., пока не найдет истинного условия. Найдя его, VBA выполняет соответствующий блок операторов и затем передает управление инструкции, следующей за оператором End if. В данную конструкцию можно включить блок оператора Else, который VBA выполняет, если не выполнено ни одно из условий.

Конструкция If. .. Then. .. ElseIf в действительности всего лишь специальный случай конструкции If. .. Then. .. Else. Заметим, что в данной конструкции может быть любое число блоков ElseIf, или даже ни одного. Блок Else можно включать независимо от присутствия или, наоборот, отсутствия блоков ElseIf.

Рассмотрим пример вычисления функции.

Sub пример1().

Dim a As Single, b As Single, x As Single.

Dim z As Double.

Call read («A1», a).

Call read («B1», b).

Let x = CSng (InputBox («введи x», «Ввод данных», 0)).

If x <= a Then.

z = Sin (x).

ElseIf x >= b Then.

z = Tan (x).

Else: z = Cos (x).

End If.

Call out («C1», z).

End Sub.

Заметим, что можно добавить любое число блоков Elself в конструкцию If. .. Then. Однако количество блоков Elself может стать настолько большим, что конструкция If. .. Then станет очень громоздкой и неудобной. В подобной ситуации следует применять другую конструкцию принятия решения — Select Case.