数字化工具VBA实战经验之六：数据类型及案例

伙伴们，大家好。今天分享数据类型及案例，仅供参考。我们每天进步一点，梦想更近一步。

思语：情绪的本源是心满意足。

      人有七情六欲，物有方圆棱角，事有轻重缓急。人作用于物形成一个事件，事件会生成一个结果。通常，人们若对结果满意，则神清气爽；若对结果不满，则情绪低落，暴躁冲动。

      人非圣贤孰能无过，但如果能把情绪控制好，对我们一生有积极的重大影响，包括机会等。而要改善情绪的自控力，必须要有意识地做到不以物喜不以己悲，坦然面对，泰然处之。并在事态的转折拐点处进行判断：若非原则问题，则该忍则忍，能让则让，一切从长计议，吃点小亏不算什么，我们不能因小失大；否则，得不偿失。若是原则问题，我们先积极沟通协调，不必争执，若沟通无果，则积极寻找第三方介入调解或以其他合法程序解决。只要当事人各方以平和心态沟通协商解决，并在处理过程中不要冲动，保持克制，通常情况下都能够让当事人各方得到比较满意的结果。然而，冰冻三尺非一日之寒，因此，我们需要与日兼修。

有朋自远方来，吾亦乐乎！

本文为业财税项目实战经验原创，若对您有用，请帮助转发亲朋好友分享，谢谢您！

欢迎加微信为好友交流职场实战经验！

一、数据类型的定义及分类

数据类型：指数据的分门别类。可以理解为物以类聚，需事先给定游戏规则，数据也是一样的。VBA中的数据类型主要有数字型、文本型、日期型、时间型、对象型等。

二、案例

定义15种常用的数据类型。按F8键逐语句执行后得到下图：

具体代码如下：

Sub 数据类型()

Dim a As Boolean, b As Byte, c As Currency

Dim d As Date, e As Date, f As Variant

Dim g As Double, h As Integer, i As Long

Dim j As Single, l As String

Dim k As Object '字典对象变量

Dim m(8) As String, n As Variant, o As Variant

'赋值

a = True '逻辑真

b = 255 '整数

c = 123456.7898 '货币数值

d = #4/22/2023# '日期

e = #8:45:36 PM# '时间

f = CDec("1234567890.1234567896") '转换为Decimal类型

g = 1234567890.12346 '双精度浮点型

h = 12345 '整型

i = 1234567890 '长整型

j = 123.4568 '单精度浮点型

Set k = CreateObject("scripting.dictionary") '定义字典对象

k.Add "中国", "福建" '字典赋值

l = "我们都是中国人" '可变长度字符型

m(6) = "远昌财税" '定长字符型

n = 1234567890.12346 '数字变体型

o = "国家" '字符变体型

End Sub

三、注意事项

总体原则：在选择数据类型时，考虑数据的用途、长度、精度、存储大小。

1、VBA中的变量必须先声明才可使用，在声明时指定其数据类型。变量名称的命名需简明易懂、易记、易维护，不能与VBA预置的关键字相同，否则会导致错误。

2、应根据应用场景选择不同的数据类型。比如Boolean布尔型（逻辑型）用于条件判断，Date日期型用于日期和时间值。Double（双精度浮点型）用于较高精度的数字计算，Decimal类型的精度更高，可精确到小数点后 28 位的数字计算等。

3、String文本型，其包括字符型的字母、数字、标点符号等。在VBA中，字符串需要使用一对双引号括起来。

4、Variant变体类型，在VBA中，可以表示任意类型的值，它可以自动适应不同的数据类型。主要用于事先不确定的数据类型，或是在程序执行过程中数据类型会变化的数据处理。

5、定义指定的数据类型后，如果实际值的长度超过定义长度，则会截断数据或报错溢出。比如，字符型超过其定义长度，则会截断字符串。数字型超过其定义长度，则会报错溢出。

6、Object对象类型，在程序的过程执行完毕时，需将其初始化为Nothing，以便释放内存空间。

7、数据类型的长度更大，精度更细，则占用的内存空间更高，程序运行的速度相对而言会较慢。

8、数据类型之间可以通过函数相互转换，转换时需考虑目标数据类型是否能够容纳源数据类型的值。