VBA基础 - 数据类型
概要
学习一种新语言, 数据类型和关键字是第一步.
数据类型
常用的数据类型如下:
| 类型 | 存储空间 | 范围 |
|---|---|---|
| Boolean | 2 bytes | True 或者 False |
| Byte | 1 byte | 0 ~ 255 |
| Integer | 2 bytes | -32768 ~ 32768 |
| Long | 4 bytes | -2147483648 ~ 2147483647 |
| LongLong | 8 bytes | -2147483648 ~ 2147483647 |
| String | 10 bytes + string length | 0 ~ 20 亿个字符 |
| Object | 4 bytes | 可以赋值给任何对象引用 |
| Single | 4 bytes | -3.402823E38 ~ -1.401298E-45 (对负值) |
| 1.401298E-45 ~ 3.402823E38 (对正值) | ||
| Double | 8 bytes | -1.79769313486231E308 ~ -4.94065645841247E-324 (对负值) |
| 4.94065645841247E-324 ~ 1.79769313486231E308 (对负值) | ||
| Date | 8 bytes | 100 年 1 月 1 日 ~ 9999 年 12 月 31 日 0:00:00 ~ 23:59:59 |
| Variant | 16 bytes | 任意值, 性能较低 |
VBA 中提供了一系列 函数 用于类型之间的转换
运算符
运算符是和数据类型同样, 是使用最多的部分.
| 类型 | 运算符 | 说明 | 示例 |
|---|---|---|---|
| 算术运算符 | * | 乘法 | MyValue = 2 * 2 ' Returns 4. |
| ^ | 乘方 | MyValue = 2 ^ 2 ' Returns 4. | |
| / | 除法运算, 返回浮点型结果 | MyValue = 10 / 4 ' Returns 2.5. | |
| \ | 除法运算, 返回整数结果 | MyValue = 100 \ 3 ' Returns 33. | |
| Mod | 求余数 | MyResult = 10 Mod 3 ' Returns 1. | |
| + | 加法 | MyNumber = 2 + 2 ' Returns 4. | |
| - | 减法 | MyResult = 4 - 2 ' Returns 2. | |
| 比较运算符 | = | 判断是否相等 | Check = (4 = 4) ' Returns True |
| Is | 判断 2 个对象的引用是否相同 | Set ThisObject = MyObject | |
| MyCheck = ThisObject Is ThisObject ' Returns True. | |||
| Like | 比较字符串时, 可以使用通配符, 简化版的正则 | MyCheck = "aBBBa" Like "a*a" ' Returns True. | |
| 连接运算符 | & | 连接字符串 | MyStr = "Hello" & " World" ' Returns "Hello World". |
| + | 除了作为加法, 还可以用在字符串上 | Var1 = "34": Var2 = 6; MyNumber = Var1 + Var2 ' Returns 40. | |
| Var1 = "34": Var2 = "6"; MyNumber = Var1 + Var2 ' Returns "346". | |||
| 逻辑运算符 | And | 逻辑与 | |
| Eqv | 逻辑等于 | ||
| Imp | 不太常用 | imp-operator | |
| Not | 逻辑非 | ||
| Or | 逻辑或 | ||
| Xor | 逻辑异或 |
变量
有了数据类型, 就可以定义各种变量, 完成相应的计算. 变量的定义和计算, 和其他编程语言也没有什么区别, 这里主要提下变量的生命周期.
全局变量和局部变量
1 Dim globalX As Integer
2
3 Sub Test()
4 f1
5 globalX = globalX + 1
6 localX = localX + 1
7 f1
8 End Sub
9
10 Function f1()
11 Dim localX As Integer
12
13 Debug.Print "全局变量 " & globalX
14 Debug.Print "局部变量 " & localX
15 End Function
运行 Test, 输出:
全局变量 0
局部变量 0
全局变量 1
局部变量 0
静态变量和动态变量
1 Sub Test()
2 f1
3 f1
4 f1
5 End Sub
6
7 Function f1()
8 Dim dX As Integer
9 Static sX As Integer
10
11 sX = sX + 1
12 dX = dX + 1
13 Debug.Print "静态变量 " & sX
14 Debug.Print "动态变量 " & dX
15 End Function
运行 Test, 输出:
静态变量 1
动态变量 1
静态变量 2
动态变量 1
静态变量 3
动态变量 1
