上一篇文章中给大家分享了VBA基本语法中的算术运算符,比较运算符。 今天就给大家分享一下另外两个比较重要的运算符,一个逻辑运算符和一个通配符。 什么是逻辑运算符? 逻辑运算符一般是应用于判断逻辑运算式的真或者是假,返回值只能是真(True)或者假(False)。 And这是逻辑与运算,表达式A与表达式B当表达式A和表达式B的值都是真(True)时返回值也为真(True),否则返回值是假(False)。 Or这是逻辑或运算,表达式A或表达式B当表达式A和表达式B中有一个表达式的值为真(True),返回值就为真(True),否则返回值(False)。 Not这是逻辑非运算,Not表达式A,表达式A的值为真(True)时返回False,否则返回True。 Xor这是逻辑异或,表达式A异或表达式B返回的值不相同时,返回真(True),否则返回False。 Eqv这是逻辑等价运算,表达式A等价表达式B,表达式A和表达式B返回的值相同时,返回真(True),否则返回False。 举例子要使用的数据表格: 逻辑与和或举例: 代码1: Subhhand() IfWorksheets(sheet31)。Range(C2)80AndWorksheets(sheet31)。Range(E2)70Then Worksheets(sheet31)。Range(G2)。Font。ColorRGB(180,0,0) EndIf EndSub 代码2: Subhhor() IfWorksheets(sheet31)。Range(C3)60OrWorksheets(sheet31)。Range(E3)70Then Worksheets(sheet31)。Range(G3)。Font。ColorRGB(0,255,0) EndIf EndSub 逻辑异或举例子: Subxor1() IfWorksheets(sheet31)。Range(C4)80XorWorksheets(sheet31)。Range(E4)60Then Worksheets(sheet31)。Range(G4)。Font。ColorRGB(0,0,255) EndIf IfWorksheets(sheet31)。Range(C5)80XorWorksheets(sheet31)。Range(E5)90Then Worksheets(sheet31)。Range(G5)。Font。ColorRGB(0,0,255) EndIf IfWorksheets(sheet31)。Range(C6)90XorWorksheets(sheet31)。Range(E6)90Then Worksheets(sheet31)。Range(G6)。Font。ColorRGB(0,0,255) EndIf EndSub 一起看看通配符 通配符是VBA程序中不可缺少的,作用也是很大的。 表示任意多个字符。 ?表示任意的一个字符。 表示任意的一个数字。 〔charlist〕表示位于charlist中的任意一个字符。 〔!charlist〕表示不在charliat中的任意一个字符。 通配符举例子: 代码: Subtpf() DimiAsInteger Fori2To8 IfWorksheets(sheet31)。Cells(i,2)。ValueLike李Then Worksheets(sheet31)。Cells(i,8)Worksheets(sheet31)。Cells(i,2)。Value Worksheets(sheet31)。Cells(i,8)。Font。ColorRGB(0,0,255) EndIf Next EndSub 今天就先给大家分享到这里,喜欢的请关注我,谢谢! 明天继续分享这些符号的优先级,然后在举一些例子。