If文とは？

ある条件の時に処理の流れを変えたい場合はIf文を使用します。

例えば、性別が男性のときは処理Aを、性別が女性の時は処理Bをといったように処理を分岐させることができます。

ここでは、以下について説明します。

• If文
• If〜Then〜Else文
• If〜ElseIf文

If文

1つの条件を判断して、その条件が成り立った場合に処理を実行させるにはIf文を使用します。

If 条件式　Then

  条件式が成り立った時（True）の場合に実行する処理

End If

例えば、変数 gendar の文字列が"男性"だった場合に、変数xに1を代入する場合は以下のようなコードを書きます。

  Option Explicit

Sub If文の例()

  Dim gender As String
  Dim x As Integer
  
  gender = "男性"
  x = 0

  If gender = "男性" Then
      x = 1
  End If

End Sub

IF〜Then〜Else文

If文の条件式が成り立たなかった場合に別の処理をさせたい場合は If〜Then〜Else文を使用します。

If 条件式　Then

  条件式が成り立った（True）の場合に実行する処理

Else

  条件式が成り立たなかった（False）場合に実行する処理

End If

例えば、変数 gendar の文字列が"男性"だった場合に変数xに1を代入し、男性以外の場合にxに2を代入する場合は以下のように書きます。

    Option Explicit
  
Sub If_Then_Else文の例()

  Dim gender As String
  Dim x As Integer
  
  gender = "男性"
  x = 0

  If gender = "男性" Then
      x = 1
  Else
      x = 2
  End If

End Sub
  

If〜Else If文

If文の条件式が成り立たなかった場合に、さらに別の条件式を判定して処理を分岐させたい場合は If〜Else If文を使用します。

If 条件式1　Then

  条件式1が成り立った（True）の場合に実行する処理

Else If 条件式2 Then

  条件式2が成り立った（True）の場合に実行する処理

Else

  条件式1も条件式2も成り立たなかった（False）場合に実行する処理

End If

例えば、変数 gendar の文字列が"男性"だった場合に変数xに1を代入し、女性の場合にxに2を代入する場合は以下のように書きます。

    Option Explicit
  
Sub If_ElseIf文の例()

  Dim gender As String
  Dim x As Integer
  
  gender = "男性"
  x = 0

  If gender = "男性" Then
      x = 1
  ElseIf gender = "女性" Then
      x = 2
  ELSE
      X = 0
  End If

End Sub