原文链接：http://mp.weixin.qq.com/s/d3I9eKc6klDZHJfR7-njwQ
文中图片、表格、视频等无法显示，请移步公众号查看
VBA基础系列【数据操作及运算】
更新提示
新增VBA教程PDF版17本，见底部菜单
新增王佩丰Excel2010教程，编号为B7
同样是后台回复编号获取链接和密码
在讲解变量操作与运算之前，先看一个小例子：
Sub test()
Dim x As Byte
Dim y As Boolean
Dim c
x= 1
y= 1
c= x + y
Debug.Print "x+y=" & c
End Sub
这个例子中代码的意思就不用说了，看上去是将x和y这两个变量都赋值了1，然后求和，那输出的和是多少呢？
答案是：
这当然不会是电脑计算出错了，原因肯定在我们开始定义的数据类型，x是Byte型数据，而y是Boolean型数据。那么用“+”运算后的c是什么类型呢？在代码最后添加一句Debug.Print TypeName(c)可以看到立即窗口中输出是“Integer”
所以，原因就在于我们对x和y实行“+”运算的时候，电脑先强制转换了数据类型，然后再计算。在实际工作中，我们接触的最多的还是同类型的数据操作和运算。
1、数学运算（主要针对数值型数据）
该运算主要是数学计算
可以实行该操作的数据有：Byte、Integer、Long、Single、Double、Currency、Date、Decimal，另外Boolean、Variant、String也可以进行部分运算。
以下例子中假设变量A等于5，B等于10
操作
描述
实例
+
两个变量相加
A + B = 15
-
两个变量相减
A - B w= -5
*
两个变量相乘
A * B= 50
/
数学除法
B / A =2
%
取相除后的余数
B % A =0
^
幂运算
B ^ A =100000
此外还有一个比较特殊的是“\”(注意和除法区分，两个符号是相反的)，是整除运算符，相除之后只保留整数部分，比如4.2\2=2。因为强制转换Int(4.2/2)也能达到同样的效果，为了避免记混淆，相除取整一般用后者。
2.比较运算
该运算比较两个变量的大小关系，输出的是Boolean类型。
可以实行该操作的数据有：Byte、Integer、Long、Single、Double、Currency、Date、Decimal，另外Boolean类型默认True
String类型中按英文字母表排序，大写字母小于小写字母。
以下例子中同样假设变量A等于5，B等于10
操作
说明
实例
=
判断两个值是否相等，如果相等，则返回“True”，否则，返回“False”
(A = B)：False.
<>
判断两个值是否相等，如果不相等，则返回“True”，否则，返回“False”
(A <> B)：True.
>
判断符号左边的值是否大于右边，如果是，返回“True”；否则，返回“False”。
(A > B)：False.
<
判断符号左边的值是否小于右边，如果是，返回“True”；否则，返回“False”。
(A < B)：True.
>=
判断符号左边的值是否大于或等于右边，如果是，返回“True”；否则，返回“False”。
(A >= B)：False.
<=
判断符号左边的值是否小于或等于右边，如果是，返回“True”；否则，返回“False”。
(A <= B)：True.
3.逻辑运算
主要用于Boolean的运算，比如True和False，可以判断两个比较运算之间的关系。输出的还是Boolean类型。
以下例子中同样假设变量A等于5，B等于10
Operator
Description
Example
AND
称为“和”与运算，或者“与”，如果给出的两个条件都是“True”，则返回“True”。
a<>0 AND b<>0：False.
OR
称为“或”与运算，如果给出的两个条件中，只要有一个是“True”，则返回“True”。
a<>0 OR b<>0：true.
NOT
称为“否”与运算，用来反转或否定原来的值，如果原来的值为“True”，则返回“False”；如果原来的值为“False”，则返回“True”。（可理解为“颠倒黑白”）
NOT(a<>0 OR b<>0)：false.
XOR
当两个条件有且只有一个为“True”时，返回“True”，否则，返回“False”。
(a<>0 XOR b<>0)：true.
4.包含运算与等效
VBA中并没有直接的包含关系的判断，“In”和“Not In”主要是在后期的循环、数组、以及SQL中用到，所以这里不细讲。一些特殊类型的包含关系是用函数来判断的，比如：
判断“Today isWednesday”这句话中是否包含“is”可以用Instr函数来完成
Sub t2()
sen = "Today isWednesday"
word = "is"
Debug.Print InStr(sen,word) > 0
End Sub
5.链接操作
主要用于字符串操作
以下例子中假设A=“Excel”，B=“VBA”
操作符
描述
实例
+
链接符号两边的值
A + B将得到“ExcelVBA”
&
链接符号两边的值
A + B将得到“ExcelVBA”
{"+O�g���
网友评论