VBA 数据类型基础教程
在介绍 VBA 变量的教程中,初步学习了数据类型相关知识。VBA 中虽然不强制指定数据类型,但是正确使用数据类型,可以使程序更易理解,也能提高程序的运行效率。
今天通过实际的代码例子,进一步学习 VBA 中的数据类型。
文本类型
文本类型可以说是最常用的数据类型。实际中,几乎所有的数据均是文本类型。因此理解好文本是学习 VBA 的基础。
类型 | 说明 | 数据范围 |
---|---|---|
String | 文本类型 | 0 至 20亿字符 |
首先,声明一个文本类型变量,String
是类型标识符,语法如下:
Dim name As String
VBA 中,文本需使用英文双引号表示。
name = "Zhang San"
如果把数字两端加上双引号,它会变成文本类型,不再表示数字
name = "101"
可以使用单元格内的文本,给文本类型变量赋值。
name = Range("A1")
与 Excel 提供的文本函数一样,VBA 也提供多种文本函数,可直接在程序中使用,包括:
- Format:格式化数据,并以文本类型返回
- InStr:返回指定字符的位置
- InStrRev:反方向返回指定字符位置
- Left:返回左侧指定长度文本
- Len:返回文本长度
- LCase:大写字母转换成小写字母
- LTrim:清除开头的空格
- Mid:返回指定的开始和结束位置之间的文本
- Replace:替换文本中的指定字符
- Right:返回右侧指定长度文本
- RTrim:清除末尾处的空格
- Space:返回指定重复数的空格文本
- StrComp:返回比较两个文本的结果
- StrConv:将文本转换成指定格式
- String:返回指定重复数的文本
- StrReverse:逆转提供的字符串
- Trim:清除开头和结尾处的空格
- UCase:将小写字母转换成大写字母
每个函数的用法,在「内置函数」一章中详细介绍。
数字类型
数字类型是第二个基础数据类型。在写 VBA 代码时,应根据具体的数字大小,选择合适的数字类型。
如果小数字使用大范围数字类型存储,会浪费计算机内存;如果大数字使用小范围的数字类型存储,VBA 会自动转换成对应小范围数字,导致数字丢失精度。
VBA 中的数字类型包括如下几种。
类型 | 说明 | 数据范围 |
---|---|---|
Byte | 字节 | 0 至 255 |
Integer | 整数 | -32,768 至 32,767 |
Long | 长整数 | -2,147,483,648 至 2,147,483,648 |
Single | 单精度浮点数 | 在表示负数时: -3.402823E38 ~ -1.401298E-45 在表示正数时: 1.401298E-45 ~ 3.402823E38 |
Double | 双精度浮点数 | 在表示负数时: -1.79769313486231E308 ~ -4.94065645841247E-324 在表示正数时: 4.94065645841247E-324 ~ 1.79769313486231E308 |
Currency | 货币 | -922,337,203,685,477.5808 至 922,337,203,685,477.5807 |
Decimal | 定点数 | 未放置定点数: +/- 79,228,162,514,264,337,593,543,950,335 放置定点数: +/- 7.9228162514264337593543950335 |
其中,Integer
、Long
、Double
是常用到的数字类型。
与文本相似,声明数字类型,使用如下语句:
Dim age As Integer
以上定义一个岁数
变量,使用基本的 Integer 整数类型即可。
数字类型变量可以像数字一样,参与各类算数运算:
age = 3
age * 2 + 10 ‘-> 16
更多数字类型相关的内容,将在以后的教程中详细介绍。
逻辑类型
逻辑类型只有两个值,True 和 False,即真与假。
类型 | 说明 | 数据范围 |
---|---|---|
Boolean | 逻辑值 | True 或 False |
逻辑值虽然只有两个,但是在程序中有着广泛的应用。VBA 中判断语句中,经常能用到逻辑值。
首选,声明一个逻辑变量,使用如下语句:
Dim isPass As Boolean
给逻辑变量赋值时,可以直接使用逻辑值,也可以使用返回逻辑值的表达式。
isPass = False
isPass = 70 >= 60
日期和时间类型
VBA 中的日期和时间使用数字表示,整数部分代表日期,小数部分代表时间。
- 日期从 100-1-1 开始到 9999-12-31。
- 时间从 00:00:00 到 23:59:59。
声明日期类型变量,使用如下语句:
Dim birthday As Date
Dim time As Date
给日期变量赋值时,可以直接把日期放置在两个 # 之间赋值,也可以使用数字,还可以把日期作为文本赋值:
birthday = #2018-1-1#
birthday = 43101
birthday = "2018-1-1"
time = #12:00:00#
time = 0.5
time = "12:00:00"
Variant 类型
Variant 类型是一种通用类型,可以表示任何一种类型的数据。它也是声明变量未指定数据类型时的默认类型。
虽然 Variant 类型方便,但是相应的,占用更大的内存空间,也会影响程序运行效率。因此建议,在明确知道数据时何种类型时,指定数据类型;如果数据类型是可变的或不明确,使用 Variant 类型。
应该是“清除开头和结尾处的空格,直到遇到第一个非空格字符。”
感谢反馈,已修正
为什么name = Range(“A1”)就可以直接提取到单元格A1中的值,而不需要使用name = Range(“A1”).Value,这在其他语言中,前者一般是直接赋值了一个对象,而在VBA中两种方法都可行?
根据官方文档,如果不使用 Value,VBA 会自动加上Value,因此两种写法都可以获取单元格的值
给逻辑变量赋值时(写成是了),可以直接使用逻辑值,也可以使用返回逻辑值的表达式(最后这句话不懂)。
错别字已修改,感谢反馈。
使用返回逻辑值的表达式,指的是提供一个表达式,该表达式的结果是逻辑值。例如,1>0 这个表达式返回 true;100 < 50 返回 false。
很好
您好,vba中写range(“A2”)和cells(2,1)有什么区别吗
仅就结果而言,没什么区别。引用单元格的两种方式
Sub mycode2()
Dim name As String
name = “Zhang San”
MsgBox “name”
End Sub
为什么我这里提示框弹出来的不是“Zhang San”呢?
双引号内的内容是文本,不是变量。应该这么写:
MsgBox name
日期和时间类型的显示状态不一样是因为什么
birthday = #1/1/2018#
time = #12:00:00 PM#
这个没有关系的,跟系统的日和时间格式设置有关,正常情况
感谢指出。是的,这里是为了演示,没有写完整的语句。
为啥评论两次不给通过。。。Byte是字节,bit才是比特。。。1字节等于8比特。。。
抱歉。不是不通过,之前没查看评论。文章已更新,感谢反馈
byte是比特吗?我印象中bit是来着。也可能是我记错了
对,byte是字节,bit才是比特。
byte是字节,bit是比特。你记对了。
age * 2 + 10 ‘-> 16
请问这里有个单引号,是什么意思?
这个是 VBA 的注释符号,单引号后的内容不会被执行
明白,谢谢,以为是多出了一个单引号
加油加油!