VBA比較運算子

2019-10-16 23:13:00

VBA支援的比較運算子如下所示。

假設變數A=10,變數B=20,則 -

運算子 描述 範例
= 檢查兩個運算元的值是否相等。如果是,那麼條件是真。 (A = B)結果為:False
<> 檢查兩個運算元的值是否不相等。如果值不相等,則條件為真。 (A <> B)結果為:True
> 檢查左運算元的值是否大於右運算元的值。如果是,那麼條件是真。 (A > B)結果為:False
< 檢查左運算元的值是否小於右運算元的值。如果是,那麼條件是真。 (A < B)結果為:True
>= 檢查左運算元的值是否大於或等於右運算元的值。 如果是,那麼條件是真。 (A >= B)結果為:False
<= 檢查左運算元的值是否小於或等於右運算元的值。如果是,那麼條件是真。 (A <= B)結果為:True

範例

嘗試以下範例以了解VBA中可用的所有比較運算子。

Private Sub Constant_demo_Click()
   Dim a: a = 10
   Dim b: b = 20
   Dim c

   If a = b Then
      MsgBox ("Operator Line 1 : True")
   Else
      MsgBox ("Operator Line 1 : False")
   End If

   If a<>b Then
      MsgBox ("Operator Line 2 : True")    
   Else
      MsgBox ("Operator Line 2 : False")    
   End If

   If a>b Then
      MsgBox ("Operator Line 3 : True")    
   Else
      MsgBox ("Operator Line 3 : False")    
   End If

   If a<b Then
      MsgBox ("Operator Line 4 : True")    
   Else
      MsgBox ("Operator Line 4 : False")    
   End If

   If a>=b Then
      MsgBox ("Operator Line 5 : True")    
   Else
      MsgBox ("Operator Line 5 : False")    
   End If

   If a<=b Then
      MsgBox ("Operator Line 6 : True")
   Else
      MsgBox ("Operator Line 6 : False")
   End If

End Sub

當執行上面的指令碼時,會產生類似下面的結果。

Operator Line 1 : False

Operator Line 2 : True

Operator Line 3 : False

Operator Line 4 : True

Operator Line 5 : False

Operator Line 6 : True