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

Posted 2022-07-09 sunyllove

一个If语句，后面可以跟一个或多个由布尔表达式组成的elseif语句，然后是一个默认的else语句，当所有条件变为false时执行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 = 10
   y = 10

   If x > y Then
      MsgBox ("X 大于 Y 的值")
   ElseIf y > x Then
      MsgBox ("Y 大于 X 的值")
   Else
      MsgBox ("X 和 Y 的值相等")
   End If
End Sub

执行上面示例代码，得到以下结果