VBA的运算符和表达式

/VBA的运算符和表达式本文从广义的角度将VBA的运算符进行了全面的归纳和总结，包括通常意义上的算术运算符、连接运算符、比较运算符和逻辑运算符，还包括了赋值运算符、点运算符以与Like运算符、AddressOf运算符等。同时，概述了表达式的知识。

提示学习是需要思考和实践的，只有举一反三，才能真正理解和掌握。因为VBA的一些运算符涉与到较强的逻辑关系，您在阅读本文时，可以不断思考它们之间的逻辑关系。同时，您可以在VBE编辑器的模块中测试本文中的一些语句和示例，以加深认识。

在使用VBA编程时，您一定会经常使用到VBA运算符，它是VBA程序的重要组成部分。在本文中，我将运算符分为两大类，一类是通常意义上的运算符，即：算术运算符、连接运算符、比较运算符和逻辑运算符；另一类是与语句相关的运算符，即：赋值运算符和点运算符。此外，还简略地介绍一下Like运算符和AddressOf运算符。

您通过使用运算符，对VBA各种元素进行连接，或者完成一些运算以形成了VBA表达式或语句。再进一步说，表达式是数字、字符串、常量、变量、对象成员、以与运算符的组合。

算术运算符和表达式

■算术运算符包括+(加法运算符)、-(减法运算符)、/(除法运算符)、\(整除运算符)、Mod(取模运算符)、^(乘幂运算符)，下面逐一进行介绍。

+加法运算符。形成数值表达式，并将数值或数值表达式相加。也可用于连接两个字符串变量，但建议用连接运算符进行连接。例如，结果=表达式1+表达式2。

-减法运算符。形成数值表达式，将数值或数值表达式相减。也可用在数值之前，用于表示负数。例如，结果=表达式1-表达式2。

*乘法运算符。形成数值表达式，将数值或数值表达式相乘。例如，结果=表达式1*表达式2。

/除法运算符。形成数值表达式，将两个数值或数值表达式相除，其中除数不能为零，否则会得到一个错误。例如，结果=表达式1/表达式2。

\整除运算符。将两个数值或数值表达式相除，并返回一个整数，即舍掉余数或者小数部分。例如，结果=表达式1\表达式2。例如，7\3的值为2。

Mod取模运算符。将两个数值或数值表达式相除，并只返回余数。例如，结果=表达式1Mod表达式2。例如，7Mod3的值为1。

^乘幂运算符。计算数值或数值表达式的乘幂。例如，结果=数值^指数。

■算术运算符的优先顺序

算术运算符的优先顺序依次为：乘幂运算符(^)——乘法和除法运算符(*、/，两者没有优先顺序)——整除运算符(\)——取模运算符(Mod)——加法和减法运算符(+、-，两者没有优先顺序)。若在同一代码中多次使用同一个算术运算符，则从左到右运算。使用括号可以改变优先顺序。

连接运算符和表达式

&连接运算符，用于连接字符串。它能把一些字符串变量连接在一起，形成一个新的字符串。在进行连接运算之前，任何非字符串变量或表达式都转换为字符串。例如，结果=字符串1&字符串2，其结果的数据类型为String类型。

+混合连接运算符，它运用很灵活，但会与加法运算符相混，给您的阅读带来不便。例如，结果=表达式1+表达式2，其结果的数据类型取决于表达式的数据类型。

下面对这两种连接运算符进行测试，测试表达式为：

结果=表达式1+表达式2

当两个表达式都是数值数据时，用&运算符会将两个数值数据连接，如5&1连接后为51，但用+运算符后，会将两数值相加得到其结果，如5+1进行连接后为6。当两个表达式都是字符串(Sting)时，将对两个字符串进行连接为一个字符串。当两个表达式为空时，+运算符的结果为0，而&运算符的结果为Null值。当一个表达式为数值类型数据，另一个表达式为字符串类型数据时，+运算符将产生类型不匹配的错误，而&运算符则将两个表达式连接。未声明变量时，当一个表达式为数字，另一个表达式为字母时，+运算符和&运算符的结果均为数字，如j=7,k=student,i=j+k与i=j&k的结果均为7。当两个表达式都为空时，+运算符结果为0，而&运算符结果为Null值。

提示您可以在VBE中调试，看看它们在各种情况下的区别。

比较运算符和表达式

■比较运算符包括<(小于)、>(大于)、=(等于)、>=(大于或等于)、<=(小于或等于)、<>(不等于)，用于数据元素的比较，其一般的语法为：

结果=表达式1<比较运算符>表达式2

结果为True(1)、False(0)或者为Null。其中比较运算符可以单独使用，也可以两两结合使用。如果表达式1或者表达式2本身为Null时才会产生Null的结果。

下面结合上述语法，对这些比较运算产生的结果为True或False时所需要的条件进行说明：

>表达式1大于并且不等于表达式2时，其结果为True；否则，为False。

<表达式1小于并且不等于表达式2时，其结果为True；否则，为False。

=表达式1等于表达式2时，其结果为True；否则，为False。

>=表达式1大于或者等于表达式2时，其结果为True；否则，为False。

<=表达式1小于或者等于表达式2时，其结果为True；否则，为False。

<>表达式1不等于表达式2时，其结果为True；否则，为False。

比较运算符可用于数值比较或字符串变量比较，也可用于数值与字符串的比较。如果其中一个表达式是数值，另一个是字符串，则数值表达式总是“小于”字符串表达式；如果都是字符串，则最大的字符串就是最长的字符串；如果字符串一样长，则小写的大于大写的。

还有一个比较运算符，即Is运算符，可用于判断两个对象变量是否指向同一个对象，其语法为：

结果=对象1Is对象2

如果对象1和对象2都指向同一个对象，其结果为True；否则，结果为False。

还可以用Is运算符来判断一个对象变量是否符合要求，例如，条件判断语句IfobjVarIsNothingThen表明，如果对象变量objVar没有对象引用，则为True，执行Then后面的语句。

■比较运算符的优先顺序。如果多个比较运算符出现在同一行代码中，则按从左到右的顺序计算。

逻辑运算符和表达式

■逻辑运算符允许对一个或多个表达式进行运算，并返回一个逻辑值。VBA的逻辑运算符包括：And(逻辑与)、Or(逻辑或)、Not(逻辑非)、Eqv(与或)、Imp(蕴含)、Xor(异或)。

And执行逻辑与运算，即如果表达式1和表达式2都是True，则结果返回True；只要其中一个表达式为False，其结果就是False；如果有表达式为Null，则结果为Null。其语法为：

结果=表达式1And表达式2

例如，Ifx>1Andy<10Then，表示如果x的值大于1且y的值小于10时，就执行Then后面的代码。又如，语句MsgBoxActiveSheet.Name=”Sheet2”AndRange(“A1”)=1表示如果当前工作表名为Sheet2并且当前工作表上的单元格A1的值为1时，消息框将显示True。

Or执行逻辑或运算，即如果表达式1或者表达式2为True，或者表达式1和表达式2都为True，则结果为True；只有两个表达式都不是True时，其结果才为False；如果有表达式为Null，则结果也是Null。其语法为：

结果=表达式1Or表达式2

例如，Ifx>1Ory<10Then，表示如果x的值大于1，或者y的值小于10，则执行Then后面的代码。又如，语句MsgBoxRange(“A1”)=1OrRange(“B1”)=2表示如果当前工作表中的单元格A1中的值为1或者单元格B1中的值为2时，消息框将显示True。

Not对一个表达式进行逻辑非运算，即如果表达式为True，则Not运算符使该表达式变成False；如果表达式为False，则Not运算符使该表达式变成True；如果表达式为Null，则Not运算符的结果仍然是Null。其语法为：

结果=Not表达式

例如，IfNotIsError(x)Then，如果IsError返回False则执行Then后面的代码，表示x中不包含错误。

又如，语句Selection.Font.Bold=NotSelection.Font.Bold，其中Bold属性的值为True或False，使用Not运算符会将值False改为True，将值True改为False，这样可用于切换所选单元格是否“加粗”。这也是VBA程序编写时的一个技巧，我们可以运用Not运算符模仿工具栏“加粗”、“斜体”等按钮的工作模式，如当我们点击“加粗”按钮时，所选单元格中的字体将加粗显示，再次单击“加粗”按钮，单元格中的字体又正常显示了。

Eqv执行与或运算，即判断两个表达式是否相等，当两个表达式都是True或者都是False时，结果返回True；若一个表达式为True而另一个表达式为False时，结果返回False。其语法为：

结果=表达式1Eqv表达式2

Imp执行逻辑蕴含运算，其语法为：

结果=表达式1Imp表达式2

当两个表达式都为True和两个表达式都为False时，其结果为True；当表达式1为True，表达式2为False时，其结果为False；当表达式1为False，表达式2为True时，其结果为True；当表达式1为False，表达式2为Null时，其结果为True；当表达式1为True，表达式2为Null时，其结果为Null；当表达式1为Null，表达式2为True时，其结果为True；当表达式1为Null，表达式2为False时，其结果为Null；当两个表达式都为Null时，其结果为Null。上面的表述可能有点绕口，概括地说，不管表达式1，当表达式2为真时，其结果为True；当两个表达式都为False，或者表达式1为False，表达式2为Null时，其结果为True；当表达式1为True，表达式2为False时，结果为False；其它情况则为Null。

Xor执行逻辑异或运算，用于判断两个表达式是否不同。若两个表达式都是True或都是False时，其结果就是False；如果只有一个表达式是True，其结果就是True；如果两个表达式中有一个是Null，其结果是Null。其语法为：

结果=表达式1Xor表达式2

■逻辑运算符的优先顺序

逻辑运算符的优先顺序依次为：Not——And——Or——Xor——Eqv——Imp。如果在同一行代码中多次使用相同的逻辑运算符，则从左到右进行运算。

运算符的优先顺序

如果您不了解运算符的优先级别(即哪个运算符优先运算，哪个运算符最后才运算)，您的表达式可能会出现意想不到的结果。在前面的小节中，介绍了同一类运算符的优先顺序。如果在一行代码中包括多个运算符，则其进行运算的优先顺序是不相同的。运算符的优先级会影响到表达式的最终结果。

当一行代码中包括几类运算符时，其优先顺序为：算术运算符——连接运算符——比较运算符——逻辑运算符。

如果您要改变同类或不同类运算符的优先顺序，可以使用括号，括号内的表达式总比括号外的优先进行运算。

Like运算符

Like运算符用于判断给定的字符串是否与指定的模式相匹配，其语法为：

结果=字符串Like模式

其中，字符串为要与模式相比较的字符串，如果字符串与指定的模式相匹配，则结果为True；否则，其结果为False。如果字符串或者模式Null，则结果为Null。

在模式中可使用一些特殊字符，其它的字符都能与它们相匹配，这些字符有：?代表任意一个字符；*代表0或多个字符；#代表任意一个数字(0-9)；[charlist]代表字符列表中的任意一个字符；[!charlist]代表不在字符列表中的任意一个字符；[]代表空字符串(“”)。

Charlist将模式中的一组字符与字符串中的一个字符进行匹配，可以包含任何一种字符，包括数字；在Charlist中使用连字号(-)产生一组字符来与字符串中的一个字符相匹配，如[A-D]与字符串相应位置的A、B、C或D匹配；在Charlist中可以产生多组字符，如[A-DH-J]；各组字符必须是按照排列顺序出现的；在Charlist的开头或结尾使用连字号(-)或以与连字号自身相匹配，例如[-H-N]与连字号(-)或H到N之间的任何字符相匹配；在Charlist中的一个字符或者一组字符前加上！号，表明与该字符或该组字符之外的所有字符匹配，如[！H-N]与字符H-N范围之外的所有字符匹配；而在[]外使用！号则只匹配其自身。要使用任何特殊字符作为匹配字符，只需将它放在[]中即可，例如[？]表明要与一个问号进行匹配。下面给出一个例子。

打开一个工作簿，选择菜单“工具——宏——VisualBasic编辑器”或按Alt+F11组合键，打开VBE编辑器。在VBE编辑器中，选择菜单“插入——用户窗体”，新建一个用户窗体，点击控件工具箱中的“文本框”控件和“按钮”控件，在用户窗体上放置一个“文本框”和一个“按钮”，并在用户窗体中对它们的大小和位置进行合理调整，双击刚创建的“按钮”控件，并输入下面的代码：

PrivateSubCommandButton1_Click()

DimsEndAsString,sPatternAsString

sEnd="inOffice"

sPattern="[FW]*"&sEnd

IfTextBox1.TextLikesPatternThen

MsgBox"输入正确"

Else

MsgBox"输入错误"

EndIf

EndSub

本代码中[FW]*表示字符以F或W开头的字符串，使用&连接符将其与变量sEnd所代表的字符串“i