Логические операторы позволяют нам проверить условие на соответствие заданному параметру. При тождественном событии запускается определеная процедура, а при невыполнении условия, следует иная процедура решений. Такие решения нам позволяет получить оператор If – Then (Если - То).
Запись его выглядит так: 

          If        Then

             

          Else

 

          End If

If - это начало условия, Если
Then – при выполнении условия (иначе – знак равно), То
Else - это равносильно понятию В ДРУГОМ СЛУЧАЕ
End If - это закрытие логического оператора 

Пример22.         

Sub Primer()

       If Cells(1, 1) = 1 Then

              Cells(1, 2) = 1

       Else

              Cells(1, 2) = 0

       End If

End Sub

Расшифруем код, приведенный в Примере22.

Если ячейка А1 = 1, то В1 = 1, в другом случае В1 = 0.

Пример23.         

          Sub Primer()

          Да = MsgBox("Желаете продолжать?", vbYesNo, "Решение")

              If Да = vbYes Then

                  MsgBox "Поехали далее", vbInformation, "Решение"

              Else

                  MsgBox "Увидимся в следующий раз", vbInformation, "Решение"

              End If

          End Sub

Следующая глава > >