VBA if...elseif...else语句

if 语句之后有一个或多个elseif 语句，由布尔表达式，接着是默认else语句，其中，当所有的条件为假时执行 else 语句。

语法 :

if elseif else语法在VBScript 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