Vba-if-elseif-else-statement

VBA-If Elseif-Elseステートメント

ブール式で構成される1つ以上のElseIfステートメントが続き、その後にデフォルトのelseステートメントが続くIfステートメント。すべての条件がfalseになったときに実行されます。

構文

VBScriptのIf Elseif-Elseステートメントの構文は次のとおりです。

If(boolean_expression) Then
   Statement 1
   .....
   .....
   Statement n
ElseIf (boolean_expression) Then
   Statement 1
   .....
   ....
   Statement n
ElseIf (boolean_expression) Then
   Statement 1
   .....
   ....
   Statement n
Else
   Statement 1
   .....
   ....
   Statement n
End If

流れ図

VBScript ifステートメント

例

デモのために、関数の助けを借りて、Excelの2つの数値の中で最大のものを見つけましょう。

Private Sub if_demo_Click()
   Dim x As Integer
   Dim y As Integer

   x = 234
   y = 234

   If x > y Then
      MsgBox "X is Greater than Y"
   ElseIf y > x Then
      Msgbox "Y is Greater than X"
   Else
      Msgbox "X and Y are EQUAL"
   End If
End Sub

上記のコードが実行されると、次の結果が生成されます。

X and Y are EQUAL