Excel VBA编程逻辑运算符.docx

Excel VBA编程 逻辑运算符Excel VBA编程 逻辑运算符 逻辑运算符允许对一个或多个表达式进行运算，并返回一个逻辑值，其逻辑值为True或False。其中，在逻辑运算符中，Not运算符为单操作数运算符，作用是将操作数进行逻辑运算。其余运算符均为双操作数，用于比较两个运算符的逻辑值。 根据逻辑运算符的优先级的顺序来介绍在VBA中的逻辑运算符的功能，如表4-6所示。 表4-6 逻辑运算符的功能 运算符 Not 说明 取反 优先级 1 说明 示例 T F T F F F T T T F T F T F F T 结果 当操作时为假时，结果为真；Not F 当操作数为真时，结果为假。 Not T T And T 两个操作数均为真时，结果才F And F T And F 为真。 F And T T Or T 两个操作数中有一个为真时，T Or F F Or T 结果为真。 F Or F 两个操作时不相同，即一个为T Xor F 真一个为假时，结果才为真，T Xor T 结果则为假。 两个操作数相同时，结果才为T Eqv T T Eqv F 真。 第1个操作数为真，第2个操T Imp F 作数为假，其余结果均为真。 T Imp T And 与 2 Or 或 3 Xor Eqv Imp 异或 等价 蕴含 3 4 5 从上面的表格中，用户可以观察到逻辑运算符的优先级顺序依次为：NotAndOrXorEqvImp。另外，如果在同一行代码中多次使用相同的逻辑运算符，则从左到右进行运算。 例如，If x>1 And y<10 Then，表示如果x的值大于1且y的值小于10时，就执行Then后面的代码。 又如，打开“学生成绩表”工作簿，并选择选项卡，单击组中的Visual Basic按钮，进入VBE窗口。然后，在该窗口中，插入一个模块，并在模块中，输入如图4-13所示的代码。 输入 图4-13 使用And逻辑运算符 在编辑窗口中，输入代码如下： Sub a MsgBox ActiveSheet.Name = "Sheet2" And Range("A1") = 1 End Sub 其中，语句MsgBox ActiveSheet.Name=”Sheet2” And Range(“A1”)=1表示如果当前工作表名为Sheet2，并且当前工作表上的单元格A1的值为1时，弹出的对话框中的值显示True；反之，则显示为False，如图4-14所示。 结果 图4-14 运行结果 按F5功能键，即可得到如图4-14的运行结果。或者，单击VBE窗口中的按钮，也可运行程序。 提 示