《VBA之Excel应用》（版权10178983）是非常经典的，是我推出的第七套教程，定位于初级，目前是第一版修订。这套教程从简单的录制宏开始讲解，一直到窗体的搭建，内容丰富，实例众多。大家可以非常容易的掌握相关的知识，这套教程共三册，十七章，都是我们在利用EXCEL工作过程中需要掌握的知识点，希望大家能掌握利用。今日讲解的内容是VBA之Excel应用第五章第一节变量的常用类型

【分享成果，随喜正能量】万物皆有灵，草木亦有心。这世间，万事万物都是有回音的，大至一世界，小至一微粒，你拿出十分的善意，定会收到它以一百分的温柔回馈。

第五章第一节变量的常用类型

提到变量，在我之前的代码中其实已经反复地在应用，也就是各种声明语句中的声明。如：Dim i As Integer, j As Integer 就是声明i，j为Integer类型的变量。那么Integer类型的变量又是什么样的变量类型呢？我们这节就给大家详细地讲解。

另外，我们还要理解，在Excel VBA中声明，初始化和显示变量的意义：这种意义在于声明一个变量就是让VBA知道你将要使用一个变量；初始化意味着给变量分配一个开始(初始)值。

1Integer 整型变量

1）Integer 变量存储为 16 位（2 字节）数字，值范围为 -32,768 至 32,767。

2）Integer的类型声明字符是百分比符号“%”

Dim x%

3）应用实例：

我们看下面的代码：

Sub myNZ() 'Integer整型变量

'Dimx As Integer

Dimx%

Cells.Clear

x= 5 / 3

Range("A1").Value= x

End Sub

代码截图：

代码的返回结果：

2String 字符串型变量

1） 字符串变量用于存储文本。

2） 字符串有两种类型：可变长度字符串和固定长度字符串。

可变长度字符串最多可以包含大约 20 亿 (2^31) 个字符。

固定长度的字符串可以包含1到大约 64 K (2 ^ 16) 个字符。

l固定长度字符串，如果为public不能在类模块中使用。

3）固定字符串字符的代码范围为 0–255。字符集的前128个字符(0-127) 对应于标准美国键盘上的字母和符号。这些字符与ASCII字符集定义的字符相同。第二个128个字符(128 -255)表示特殊字符, 如国际字母表中的字母、重音、货币符号和分数。

4）字符串的类型声明字符是美元符号“$”.

5）可以通过以下两种方式之一在字符串文本中嵌入双引号标记:

① 使用两个双引号:

② 使用 Chr 函数;Chr(34)是一个双引号。

我们看下面的代码测试：

Sub myNZA() 'String 字符串型变量

DimX As String

Dims As String * 3

X= "abcdefghijklmnopqrstuvwxyz"

s= "abcdefghijklmnopqrstuvwxyz"

Range("A2").Value= X

Range("A3").Value= s

Range("A4").Value= """ & s & """

Range("A5").Value= Chr(34) & s & Chr(34)

End Sub

代码截图：

代码的测试结果：

3Double 双精度浮点变量类型

1） Double (双精度浮点) 变量存储为 IEEE 64 位 (8 字节) 浮点数字, 值范围为:

负值：-1.79769313486231E308 到 -4.94065645841247E-324

正值：4.94065645841247E-324 到 1.79769313486232E308

2）Double的类型声明字符是#.

3）Double类型的变量比Integer类型的变量更精确。

我们看下面代码：

Sub myNZB() 'Double 双精度浮点变量

'Dimx As Double

DimX#

Cells.Clear

X= 5 / 3

Range("A1").Value= X

End Sub

代码的测试结果：

l要注意使用正确类型的变量，错误更容易找到，代码运行速度也更快。

4Boolean 布尔型变量

1）使用一个布尔变量来保存值True或False。布尔变量作为 16 位（2 字节）数字存储，但它们只能是 True 或 False 。

2）将其他数值类型转换为布尔值时，0 将变为 False，所有其他值均变为 True。将布尔值转换为其他数据类型时，False 将变为 0，True 将变为 -1。

3) 布尔型变量默认初始值是FALSE

我们看下面代码：

Sub myNZC() '布尔型变量

Dimcontinue As Boolean

Ifcontinue = True Then

MsgBox"continue的值是TRUE"

Else

MsgBox"continue的值是FALSE"

EndIf

continue= True

Ifcontinue = True Then

MsgBox"continue的值是TRUE"

Else

MsgBox"continue的值是FALSE"

EndIf

End Sub

代码截图：

代码讲解：

第一行代码声明了一个名称为continue的布尔型变量。接下来，我们没有将continue初始化。通过一个MsgBox来显示它的值。接下来，我们将continue初始化为True。最后，我们使用MsgBox来显示这个值。

我们看代码的运行：

可以看出当没有初始化的时候，这个布尔变量的值为false。

对于数据类型，本讲只是讲解了一些常用的数据，其他的大家可以参考一下下面的表格：

今日内容回向：

1）什么是Integer整型变量？

2）什么是String 字符串型变量？

2）什么是Double 双精度浮点变量？

2）什么是Boolean布尔型变量？

本讲内容参考程序文件：工作簿05.xlsm

我20多年的VBA成果全在下面的资料中：