VBA逻辑运算符_代码驿站

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

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

示例 :

试试下面的例子就明白了所有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

我要分享文章