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

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

If условие1 Thenвыражение1ElseIf условие2 Thenвыражение2... Elseвыражение-nEnd 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 SingleDim z As DoubleCall read("A1", a)Call read("B1", b)Let x = CSng(InputBox("введи x", "Ввод данных", 0))If x <= a Thenz = Sin(x)ElseIf x >= b Thenz = Tan(x)Else: z = Cos(x)End IfCall out("C1", z)End Sub

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