VBA逻辑运算符

下表列出了所有VBA支持的逻辑运算符。假设变量A=10和变量B=0，则：

运算符	描述	示例
AND	所谓逻辑与运算符。如果这两个条件为真，则表达式才为真。	a<>0 AND b<>0 的值为ꃺlse.
OR	所谓逻辑OR运算符。如果有任何的两个条件为真，则条件为真。	a<>0 OR b<>0%uA0%uA0的值为%uA0true.
NOT	所谓逻辑非运算符。它反转操作数的逻辑状态。如果条件为真，那么逻辑NOT运算符将使它假。	NOT(a<>0 OR b<>0)%uA0%uA0的值为ꃺlse.
XOR	所谓逻辑排斥。这不是与/或运算符的组合。如果一个且只有一个，表达式的计算结果为真，结果是真。	(a<>0 XOR b<>0)%uA0%uA0的值为ꃺlse.

示例 :

试试下面的例子就明白了所有VBA中可用的逻辑运算符，创建一个按钮，并添加以下函数：

Private Sub Constant_demo_Click()
  Dim a As Integer
  a = 10
  Dim b As Integer
  b = 0
      
  If a <> 0 And b <> 0 Then
     MsgBox ("AND Operator Result is : True")
  Else
     MsgBox ("AND Operator Result is : False")
  End If

  If a <> 0 Or b <> 0 Then
     MsgBox ("OR Operator Result is : True")
  Else
     MsgBox ("OR Operator Result is : False")
  End If

  If Not (a <> 0 Or b <> 0) Then
     MsgBox ("NOT Operator Result is : True")
  Else
     MsgBox ("NOT Operator Result is : False")
  End If

  If (a <> 0 Xor b <> 0) Then
     MsgBox ("XOR Operator Result is : True")
  Else
     MsgBox ("XOR Operator Result is : False")
  End If
End Sub

将它保存为 html 和Internet Explorer打开它，那么上面的脚本会产生以下结果：

AND Operator Result is : False

OR Operator Result is : True

NOT Operator Result is : False

XOR Operator Result is : True

零教程

全部教程

VBA教程

示例 :