VBA 逻辑 Operators：Excel VBA 中的 AND、OR、NOT、IF NOT
夏洛特·米勒
Excel VBA 逻辑 Opera职权范围
假设您要处理客户订单。为此，您首先要检查订购的产品是否存在。如果存在，您还需要检查库存数量是否足够。在这种情况下，逻辑运算符就派上用场了。逻辑运算符用于评估多个条件。
下表列出了主要的 Excel VBA 逻辑运算符 AND、OR、NOT：
| S / N | Opera器 | 描述 | 例如： | 输出 |
|---|---|---|---|---|
| 1 | AND | AND：用于组合多个条件。如果所有条件都为真，AND 计算结果为真。如果任何条件为假，AND 计算结果为假 | 如果 true = true 并且 false = true 那么 | false |
| 2 | OR | OR：用于组合多个条件。如果任何条件计算结果为真，则 OR 返回真。如果所有条件都为假，则 OR 返回假 | 如果 true = true 或 true = false 则 | true |
| 3 | 不是 | NOT：这个函数的作用类似于反函数。如果条件为真，则返回 false；如果条件为假，则返回 true。 | 如果不是（真）则 | false |
VBA 逻辑 Operators 示例源代码
为了简单起见，我们将比较硬编码数字。
从“插入选项”向工作表添加 ActiveX 按钮。
如下图所示设置属性
下表显示了您需要更改的属性以及需要更新的值。
| S / N | 通过积极争取让商标与其相匹配的域名优先注册来维护 | 物业 | 价值观 |
|---|---|---|---|
| 1 | 命令按钮 1 | 姓名 | 按钮AND |
| 标题 | AND Opera托尔 (0 = 0) | ||
| 2 | 命令按钮 2 | 姓名 | 或 |
| 标题 | OR Operator（1 = 1）或（5 = 0） | ||
| 3 | 命令按钮 3 | 姓名 | btn不 |
| 标题 | 不是 Opera否 (0 = ) |
将以下代码添加到 btnAND_Click
Private Sub btnAND_Click()
If (1 = 1) And (0 = 0) Then
MsgBox "AND evaluated to TRUE", vbOKOnly, "AND operator"
Else
MsgBox "AND evaluated to FALSE", vbOKOnly, "AND operator"
End If
End Sub
VBA 如果并且 Opera器
- “如果（1 = 1）且（0 = 0）则” if 语句使用 AND 逻辑运算符将两个条件 (1 = 1) 和 (0 = 0) 组合在一起。如果两个条件都为真，则执行 'Else' 关键字上方的代码。如果两个条件都不为真，则执行 'Else' 关键字下方的代码。
将以下代码添加到 btnOR_Click
Private Sub btnOR_Click()
If (1 = 1) Or (5 = 0) Then
MsgBox "OR evaluated to TRUE", vbOKOnly, "OR operator"
Else
MsgBox "OR evaluated to FALSE", vbOKOnly, "OR operator"
End If
End Sub
VBA 如果或 Opera器
- “如果（1 = 1）或（5 = 0）则” if 语句使用 OR 逻辑运算符将两个条件 (1 = 1) 和 (5 = 0) 组合在一起。如果任何一个条件为真，则执行 Else 关键字上方的代码。如果两个条件都为假，则执行 Else 关键字下方的代码。
将以下代码添加到 btnNOT_Click
Private Sub btnNOT_Click()
If Not (0 = 0) Then
MsgBox "NOT evaluated to TRUE", vbOKOnly, "NOT operator"
Else
MsgBox "NOT evaluated to FALSE", vbOKOnly, "NOT operator"
End If
End Sub
VBA 如果不是 Opera器
- “如果不是（0 = 0）那么” VBA If Not 函数使用 NOT 逻辑运算符来否定 if 语句条件的结果。如果条件为真，则执行“Else”关键字下方的代码。如果条件为真，则执行 Else 关键字上方的代码。
