[ステートメント] If...Then...Else

If...Then...Elseステートメントは条件式の真偽によって処理を選択します。

( 構文1 ) If [条件式] Then [条件式が正しい場合の処理] Else [条件式が間違っている場合の処理]
( 構文2 ) If [条件式] Then
[条件式が正しい場合の処理]
Else
[条件式が間違っている場合の処理]
End If

「Else」以降の処理は必要がなければ省略可能です。条件式や処理が単純であれば( 構文1 )が良いでしょう。( 構文2 )では複数の処理が記述できます。また、最後の行にEnd Ifが必要になります。

Sub Sample1()
  If Range("A1").Value = 100 Then
    MsgBox "A1の値は100です"
  Else
    MsgBox "A1の値は100以外です"
  End If
End Sub

また以下のように Else If キーワードを使って「条件式が間違っている場合の処理」に条件式をつけることができます。

Sub Sample2()
  Dim val1
  val1 = Range("A1").Value
  If val1 = 100 Then
    MsgBox "A1の値は100です"
  ElseIf val1 = 50 Then
    MsgBox "A1の値は50です"
  ElseIf val1 = 10 Then
    MsgBox "A1の値は10です"
  Else
    MsgBox "A1の値は100でも50でも10でもありません"
  End If
End Sub