VBA - 如果 Elseif - Else 语句

If 语句后跟一个或多个 ElseIf 语句，其中包含布尔表达式，然后后跟一个默认 else 语句（在所有条件变为假时执行）。

语法

以下是 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

流程图

示例

为了进行演示，我们用一个函数来查找 Excel 中两个数字之间的最大值。

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