VBA if...elseif...else語句

2019-10-16 23:12:52

一個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

執行上面範例程式碼,得到以下結果 -