Excel-VBA基础（10）：VBA中的运算符及应用示例

表达式中的常量、变量、函数等都依靠运算符连接，VBA中的运算符分为4类：算术运算符、比较运算符、逻辑运算符、连接运算符。下面将分别介绍。

1．算术运算符

VBA中共有7种运算符，如下表所示。

示例如下：

Sub Sameple2241()

Dim I As Integer, J As Long

Dim K As Single

I = 2

J = 3

K = I + J '结果等于5

K = J – I '结果等于1

K = I * J '结果等于6

K = I / J '结果等于0.667

K = I \ J '结果等于0

K = I ^ J '结果等于8

K = -I '结果等于-2

K = J Mod I '结果等于1

End Sub

2．比较运算符

在VBA中，有7种比较运算符，如下表所示。

示例如下：

Sub Sameple2242()

Dim I As Integer, J As Long

Dim H As Object, F As Object

Dim s1 As String, s2 As String, s3 As String

Dim K As Boolean

I = 2

J = 3

s1 = "abcde"

s2 = "cdefg"

s3 = "dc"

K = I > J '结果等于False

K = J >= I '结果等于True

K = I < J '结果等于True

K = I <= J '结果等于True

K = I <> J '结果等于True

K = (I = J) '结果等于False

K = F Is H '结果等于True

K = s2 Like "cd*" '结果等于True

K = s1 Like "da*" '结果等于False

End Sub

3．逻辑运算符

VBA中，有6种逻辑运算符，如下表所示。

示例如下：

Sub Sameple2243()

Dim A As Integer, B As Integer, C As Integer, D, MyCheck

A = 10: B = 8: C = 6: D = Null ' 设置变量初值

MyCheck = A > B Xor B > C ' 返回 False

MyCheck = B > A Xor B > C ' 返回 True

MyCheck = B > A Xor C > B ' 返回 False

MyCheck = B > D Xor A > B ' 返回 Null

MyCheck = Not (A > B) ' 返回 False

MyCheck = Not (B > A) ' 返回 True

MyCheck = Not (C > D) ' 返回 Null

MyCheck = A > B Or B > C ' 返回 True

MyCheck = B > A Or B > C ' 返回 True

MyCheck = A > B Or B > D ' 返回 True

MyCheck = B > D Or B > A ' 返回 Null

MyCheck = A > B And B > C ' 返回 True

MyCheck = B > A And B > C ' 返回 False

MyCheck = A > B And B > D ' 返回 Null

MyCheck = A > B Eqv B > C ' 返回 True

MyCheck = B > A Eqv B > C ' 返回 False

MyCheck = A > B Eqv B > D ' 返回 Null

MyCheck = A > B Imp B > C ' 返回 True

MyCheck = A > B Imp C > B ' 返回 False

MyCheck = B > A Imp C > B ' 返回 True

MyCheck = B > A Imp C > D ' 返回 True

MyCheck = C > D Imp B > A ' 返回 Null

End Sub

4．连接运算符

符号“&”和“＋”的作用是将两个表达式作为字符串强制连接在一起，语法格式是：
result = expression1 & expression2或
result = expression1 ＋ expression2
5．运算符的优先级别
在编写程序时，经常用到比较复杂的表达式，表达式中包含了大量的变量和运算符，运算符的优先顺序是：算术运算符、比较运算符、逻辑运算符。所有比较运算符的优先顺序都相同，也就是说，要按它们出现的顺序从左到右进行处理。
各种运算符的运算优先顺序如下表所示。