Vba-nested-if-statements

VBA-ネストされたIfステートメント

別のIfまたはElseIfステートメント内のIfまたはElseIfステートメント。 内側のIfステートメントは、最も外側のIfステートメントに基づいて実行されます。 これにより、VBScriptは複雑な条件を簡単に処理できます。

構文

次に、VBScriptのネストされた If ステートメントの構文を示します。

If(boolean_expression) Then
   Statement 1
   .....
   .....
   Statement n

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

例

デモのために、関数を使用して正数のタイプを見つけましょう。

Private Sub nested_if_demo_Click()
   Dim a As Integer
   a = 23

   If a > 0 Then
      MsgBox "The Number is a POSITIVE Number"

      If a = 1 Then
         MsgBox "The Number is Neither Prime NOR Composite"
      ElseIf a = 2 Then
         MsgBox "The Number is the Only Even Prime Number"
      ElseIf a = 3 Then
         MsgBox "The Number is the Least Odd Prime Number"
      Else
         MsgBox "The Number is NOT 0,1,2 or 3"
      End If
   ElseIf a < 0 Then
      MsgBox "The Number is a NEGATIVE Number"
   Else
      MsgBox "The Number is ZERO"
   End If
End Sub

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

The Number is a POSITIVE Number
The Number is NOT 0,1,2 or 3