VBA比較運算子 - tw511教學網

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