VBA基本语法之逻辑运算符、通配符，有什么作用，它们该怎么使用

上一篇文章中给大家分享了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：

Sub hhand()

If Worksheets("sheet31").Range("C2") > 80 And Worksheets("sheet31").Range("E2") > 70 Then

Worksheets("sheet31").Range("G2").Font.Color = RGB(180, 0, 0)

End If

End Sub

代码2：

Sub hhor()

If Worksheets("sheet31").Range("C3") > 60 Or Worksheets("sheet31").Range("E3") > 70 Then

Worksheets("sheet31").Range("G3").Font.Color = RGB(0, 255, 0)

End If

End Sub

逻辑异或举例子：

Sub xor1()

If Worksheets("sheet31").Range("C4") > 80 Xor Worksheets("sheet31").Range("E4") > 60 Then

Worksheets("sheet31").Range("G4").Font.Color = RGB(0, 0, 255)

End If

If Worksheets("sheet31").Range("C5") > 80 Xor Worksheets("sheet31").Range("E5") > 90 Then

Worksheets("sheet31").Range("G5").Font.Color = RGB(0, 0, 255)

End If

If Worksheets("sheet31").Range("C6") > 90 Xor Worksheets("sheet31").Range("E6") > 90 Then

Worksheets("sheet31").Range("G6").Font.Color = RGB(0, 0, 255)

End If

End Sub

一起看看通配符

通配符是VBA程序中不可缺少的，作用也是很大的。

“*” 表示任意多个字符。

“？”表示任意的一个字符。

“#”表示任意的一个数字。

[charlist]表示位于charlist中的任意一个字符。

[!charlist]表示不在charliat中的任意一个字符。

通配符举例子：

代码：

Sub tpf()

Dim i As Integer

For i = 2 To 8

If Worksheets("sheet31").Cells(i, 2).Value Like "李*" Then

Worksheets("sheet31").Cells(i,8)=Worksheets("sheet31").Cells(i, 2).Value

Worksheets("sheet31").Cells(i, 8).Font.Color = RGB(0, 0, 255)

End If

Next

End Sub

今天就先给大家分享到这里，喜欢的请关注我，谢谢！

明天继续分享这些符号的优先级，然后在举一些例子。