Инструкции 2

END IF

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

Несколько условий можно проверять, используя вложенные условные операторы следующей конструкции.

IF условие1 THEN

инструкции 1

ELSEIF условие2 THEN

Инструкции 2

ELSE

Инструкции 3

END IF

Служебное слово ELSE и инструкции, записанные после него,оператор может и не содержать. Тогда он имеет вид:

IF условие THEN инструкции 1

Если условие не выполняется, то инструкции 1 пропускаются и работает следующий оператор, записанный после условного.

Пример 4. На Листе Excel в ячейках A2:C2 находятся 3 числа. Найти наибольшее из них и записать в ячейку B3.

Sub пример4()

Dim a As Single, y As Single, max As Single

max = Worksheets("Лист1").Cells(2, 1).Value

a = Worksheets("Лист1").Cells(2, 2).Value

y = Worksheets("Лист1").Cells(2, 3).Value

If a > max Then max = a

If y > max Then max = y

Worksheets("Лист1").Cells(3, 1).Value = "максимум="

Worksheets("Лист1").Cells(3, 2).Value = max

End Sub

1.9.3. Оператор выбора

Синтаксис оператора:

Select Case тестовое _ выражение

Case список 1 значений выражения

инструкции 1

Case список 2 значений выражения

инструкции 2

..............

Case Else