excel vba统计数量（ExcelVBA与数据统计第三章）

第三章 变量第一节 计算机中对信息的保存形式，今天小编就来说说关于excel vba统计数量?下面更多详细答案一起来看看吧!

excel vba统计数量

第三章 变量

第一节 计算机中对信息的保存形式

3.1.1进制

在小学阶段，我们就知道，在书写一个数字的时候，按照从高位到低位的原则书写，高位上的1代表相邻低位上的10. 我们不妨再回忆一下这一部分的内容，这将对于我们理解进制有着非常大的帮助：

例如156这个数字，我们读作”一百五十六”。而当我们写下这个数字的时候，为啥就默认它等于1个一百，5个十，以及6个1组成的呢？这是因为，一般情况下，我们采用10进制来记录一个数字，所谓10进制，就是”逢10进1”，如果我们进一步把这个156用10进制的方式拆开，就是1*10² 5*101 6*10⁰.这里可以看到，”个位”上的数字自动认为是10⁰,”十位”上的数字自动认为是10¹，”百位”上的数字自动认为是10².

然而，在现实生活中，并不是所有的进制都是10进制，最典型的例子是时间，在时间的表示中，1天等于24小时，这个是24进制，也就是”逢24进1”；1小时等于60分钟，1分钟等于60秒，这里是60进制，即”逢60进1”；1年等于12个月，这是12进制……

那么现在有一个问题，2天13小时12分20秒等于多少秒，这个时间由如何表示？对于这个时间我们是否可以表示为2:13:12:20 ? 当然可以，这里每两个”小结”之间的进制不再是10进制了。那么，不同的进制有什么不一样呢？我们知道，在10进制中，所有的数字为0~9，共计9个数字，所有的数都是由这9个数组成。而在过去的年代，我们采用”十六两称”的时候，即一斤等于16两。如何表示1斤12两这样的数呢？此时，由于12两不等于1斤，也不到当时的一斤，所以我们这样表示当然是不对的，正确的表示方式是：C两。在16进制中，我们引入A、B、C、D、E、F这五个字母表示大于等于10，且没有达到16的5个数字，即A代表10，B代表11……，那么相对于10进制，16进制就需要有16个”数字”构成，分别是从0~F。在音乐中，这个进制为8，即逢8进1,（只有7个音符，第8个音符与第一个音符唱名相同）。在8进制中，10等于10进制中的8.因此，8进制数需要用0~7，共计8个”数字”构成。

从上面的论述可以看到，任何一个进制的数，其采用的数字的个数等于进制单位。如何表示不同进行的数字呢？一般情况下，10进制的数字按照原来的方式写即可，其他进制的数字，在书写的时候，数字两边加上小括号，并在右下角写上进制的方法，用于相互区分，例如，16进制中的数字12，表示为(12)₁₆. 8进制中的数字27，表示为(27)₈.二进制中的数字101，表示为(101)₂.

3.1.2 进制直接的相互换算

（1）其他进制转换为10进制

其他进制转化为10进制的方法比较简单，只需要”安位置”计算即可。我们可以参考10进制的计算原则，例如137=1*10² 3*10¹ 7*10⁰，计算一下16进制的12C：

(12C)₁₆=1*16² 2*16¹ 12*16⁰=300.

同样的原理，可可以计算一下8进制下的45. (45)₈=4*8 5=37.

(2) 10进制数转换为其他进制

将10进制数转化为其他进制数的方法是：用10进制数除以需要转换成为的进制，余数作为”各位”，然后商再除以进制，余数作为”十位”，然后依次类推，直到是这个十进制数除以进制后商等于0，将最后的余数作为最高位。

例如：将10进制数的25转换为2进制数，则进行如下运算：

第一轮：25除以2，商为12，余数为1.于是，第一位是1，商不等于0，进行第二轮。

第二轮：12除以2，商为6，余数为0,于是，第二位是0，商不等于0，进行第三轮。

第三轮：6除以2，商为3，余数是0,于是，第三位是0，商不等于0，进行第四轮。

第四轮：3除以2，商为1，余数是1,于是，第四位是1，商不等于0，进行第五轮。

第五轮：1除以2，商为0，余数是1,于是，第五位是1，商等于0，结束

于是。25化为2进制数便是(11001)₂. (即上面的余数按照从低位到高位的顺序写)。

3.1.3计算机对信息的保存形式

计算机中，所有的信息都是以2进制的方式进行保存的。为什么计算机采用2进制保存信息？简单来说，2进制保存信息时，所需要的原件种类最少，原件结构最为简单！不妨想象一下，假设计算机以10进制来保存信息，那么势必需要一种能够表示10个不同状态的原件。而在电子原件中，让一个原件可以有10种不同的状态，远远比让一个原件只有两种不同的状态复杂！

在日常生活中，最常见到的2进制是开关，开关对于电路来说最为简单，假设开的状态我们表示为1，而关的状态表示为0，那么，我们只需要4个开关，就可以表示16进制中从0~F，这16个不同的数。

第一个开关 第二个开关 第三个开关 第四个开关 表示的数字

0 0 0 0 0

0 0 0 1 1

0 0 1 0 2

0 0 1 1 3

0 1 0 0 4

0 1 0 1 5

0 1 1 0 6

0 1 1 1 7

1 0 0 0 8

1 0 0 1 9

1 0 1 0 A

1 0 1 1 B

1 1 0 0 C

1 1 0 1 D

1 1 1 0 E

1 1 1 1 F

3.1.4 原码和补码

计算机中，最基本的储存单位是字节Byte，一个字节由8个上面说到的”元件”组成。一个字节可以表示的数字范围为0~255（在上面的例子中，4个开关最多表示16种不同的情况，即16个数字）以计算机中最常见的整型为例，一个整形数据是有2个Byte组成，读者可以思考一下其表示的数字范围是多少？

原码：在计算机中，一个数字转化为2进制后，就是这个数字在计算机中的”原码”。例如，数字5在计算机中的原码为：0000000000000101。

补码：在原码的基础上，将原码中的0转换为1,1转换为0，最后再加上1。例如，数字5在计算机中的补码为：1111111111111011。

在计算机中，正数以原码的形式表示，而负数以补码的形式表示，上面的例子中，5，在计算机中为0000000000000101，而-5为1111111111111011。

负数储存为补码的好处：当负数表示为补码以后，减法运算可以简化为加法运算！例如，5-5=0，在计算机中，其运算为5 (-5)，即0000000000000101 1111111111111011。我们可以看到，因为2进制中为”逢2进1”因此，0 0=0，1 0=1，0 1=1，1 1=10，这个0000000000000101 1111111111111011运算后，等于10000000000000000.而计算机中，一个整形最多保存16位，所以，最前面的那个1将会被”丢失”掉，最后这16个位置上的数正好全部归零。

3.1.5 ASCII码表

以上我们探讨了计算机对于整数的保存和运算形式，接下来我们来探讨一下计算机对于字母和符号的保存。与数字的保存形式一致，计算机也是采用2进制的方式保存字母和符号，计算机中，将特定的符号按照ASCII字母表的方式同一个byte（0-255）中的数相互对应。所谓ASCALL表，其全称是American Standard Code For Information Interchange，即美国信息交换标准代码。

ASCII数值 字符 ASCII数值 字符 ASCII数值 字符 ASCII数值 字符

0 NUL 32 Space 64 @ 96 ·

1 SOH 33 ！ 65 A 97 a

2 STX 34 “ 66 B 98 b

3 ETX 35 # 67 C 99 c

4 EOT 36 $ 68 D 100 d

5 ENQ 37 % 69 E 101 e

6 ACK 38 & 70 F 102 f

7 BEL 39 ‘ 71 G 103 g

8 BS 40 ( 72 H 104 h

9 HT 41 ) 73 I 105 i

10 LF 42 * 74 J 106 j

11 VT 43 75 K 107 k

12 FF 44 , 76 L 108 l

13 CR 45 - 77 M 109 m

14 SO 46 . 78 N 110 n

15 SI 47 / 79 O 111 o

16 DLE 48 0 80 P 112 p

17 DC1 49 1 81 Q 113 q

18 DC2 50 2 82 R 114 r

19 DC3 51 3 83 S 115 s

20 DC4 52 4 84 T 116 t

21 NAK 53 5 85 U 117 u

22 SYN 54 6 86 V 118 v

23 TB 55 7 87 W 119 w

24 CAN 56 8 88 X 120 x

25 EM 57 9 89 Y 121 y

26 SUB 58 : 90 Z 122 z

27 ESC 59 ; 91 [ 123 {

28 FS 60 < 92 / 124 |

29 GS 61 = 93 ] 125 }

30 RS 62 > 94 ^ 126 `

31 US 63 ? 95 _ 127 DEL

第二节 VBA数据类型

3.2.1 数据类型和VBA的数据类型

数据在计算机中的储存方式成为数据类型，在上面一节中，曾经中提到，在计算机中，一个整形数据的储存形式，是2个字节范围。数据只有以一定的数据类型储存起来才具有意义。VBA中支持的数据类型以及该种数据类型表示的数据范围如下。

数据类型 储存空间 能够表示的范围

Byte 1个字节 0~255

Boolean 2个字节 True或者False

Integer 2个字节 -32768~32767

Long 4个字节 -2147483648~2147483647

Single 4个字节 -3.4E38~-1.4E-45，1.4E-45~3.4E38

Double 8个字节 -1.79E308~-4.8E-324,4.8E-324~1.79E308

Currency 8个字节 -9.22E18~9.22E18

Decimal 14个字节 ±7.9E20范围内整数，28位小数：±7.9，最小非零1E-25

Date 8个字节 100年1月1日~9999年12月31日

String（变长） 10个字节 0~2E9字符

String（定长） 字符串长度 1~6E4字符

Variant（数字） 16个字节 任何数字，最大可以到Double范围

Variant（字符） 22个字节 与String（变长）相同

Type（用户自定义） Type中字节 等于Type中所有基础数据类型表示范围

对象型 与对象有关 等于对象最大表示范围

3.2.2 VBA数据类型

1用于储存逻辑型数据和整数型数据的类型

有Byte型、Boolean型、Integer型、Long型。Byte型，用于储存一个介于0~255之间的整数。Boolean型，用于储存逻辑数值，仅仅可以储存两个”逻辑数值”，即”True”或者”False”。Integer型和Long型，分别用于储存整形数据，Integer型的储存空间为2个字符，Long的储存空间为8个字符。

一个Integer型的数据，可以储存的最大数据是32767，如果让一个32767的整形数据再加上1，将会发生著名的”溢出错误”，即加完之后等于-32768。为什么会发生如此的情况呢？

在计算机中，最高位上的数表示这个数据的”符号”，最高位上等于0时，表示这个数是正数，按照”原码”的原则储存的；最高位是1时，表示这个数是负数，按照”补码”的原则储存的。（详见3.1.4原码和补码），所以，在计算机中进行32767 1运算时会发生如下的情况：32767=(0111111111111111)₂,32767 1=(0111111111111111)₂ (1)₂=(1000000000000000)₂,而这个数，正好是32768的补码，所以，等于-32768。

2 用于储存小数的数据类型

有Single型、Double型、Currency型、Decimal型，其中，Single型为4个字节，Double型为8个字节，Currency型为”货币类型”，可以储存没有小数的数据（整数），也可以储存有小数的数据，并且根据小数点的位置，其表示范围是可以变化的，Decimal型也具有这种储存方式，其精确程度在所有数据型类型中最高。

这里要说明的是，这些类型除了同样会有”溢出错误”以外，对于一个小数，计算机并不能完全储存小数点后的无限多的位置，所以，在计算机中，保存的小数位有限的情况下，后面的小数位将自动被”四舍五入”忽略。其中一个例子是，一个Single型的数据，等于1/3，然后让这个Single型数据再乘以3，结果将会是0.9999999999……。

3 用于保存日期的数据类型

在VBA中，有一个用于保存日期的数据类型，即Data型，Data型的数据可以直接想减，得到的数字为两个日期直接相隔的天数。

4 用于保存字符串的数据类型

String（变长）型：当字符串的长度不确定时，用String（变长）型来储存，用这种类型来保存字符串时，会自动在字符串前端加上字符串的长度，此时，占有的储存空间大小为10个字符 字符串长度。

String（定长）型：当字符串长度确定时，用String（定长）型来存储，这种类型保存字符串，保存长度等于字符串长度。

注意的一点是，当字符串中有汉字时，一个汉字或者一个汉字符号等于两个字符！（详见国标2312，GB2312）

5 变体型

当储存类型暂时不能确定时，VBA给用户提供了一种可以”通用”的类型，即Variant，使用这种类型数据时，用户不必担心所需要储存的数据是那种类型，而是编译器会自动根据实际数据的类型进行转换，然后再储存。

6 Type型

VBA允许用户自定义数据类型，自定义的数据类型由上述基础的数据类型构成，这种数据类型叫做结构体，我们将在数值与结构体一章中详细讲解。

用户自定义的结构体的储存空间大小，等于结构体中所有成员的储存空间大小之和。

7 对象类型

实际上，可以把对象类型看成一个结构体类型，不同的是，这种结构体是系统自带的，即VBA内部所支持的一个”类”。

第三节 变量和运算

3.3.1 变量

变量就是计算机中被命名的一个储存位置。不妨把变量想象成一个容器，在这个容器中，储存的是程序运算过程中可以改变的”数据”或者”对象”。也可以把变量想象成中学课本中的”未知数”，这些”未知数”可以改变，也可以参与求解运算。

3.3.2 变量的声明

在使用一个变量前，需要在计算机中进行声明该变量，即向系统说明，现在有这么一个变量。VBA声明变量的命令是: Dim 变量名 As 类型、Public 变量名 As 类型、Private 变量名 As 类型、Static 变量名As 类型。这里，只讲解第一种声明形式，剩下的声明形式在变量使用范围中讲解。

在命令”Dim 变量名 As 变量类型”中，变量名可以用英文字母、数字、下划线以及其组合，类型可以用上述类型中的任何一个类型。

例如：

Dim A As Integer

这一条命令即声明一个名字叫做”A”的整形变量。

Dim B As String(5)

这一条命令声明了一个名字叫做”B”的字符串变量，这个B的长度为5个字符。

Dim C As String

这一条命令声明了一个名字叫做’C”的字符串变量。C长度不确定。

Dim A As Integer, B As String

这一条命令一次性声明了两个变量，第一个是名字为A的整形变量，第二个是名字为B的字符串型变量。

对于数字和字符串的规定：VBA中规定，所有双引号中的内容，均被当作字符串进制处理，而没有双引号的内容当作数字、变量或者函数、过程处理。对于变量名称大小写的规定：VBA中，变量名称不区分大小写，即在VBA中，整形变量A和a，VBA认为是一个变量，VBE在第二次遇到相同的变量时，会自动把变量名称修改为与第一次的名称形式相同。

对于隐式声明和显示声明的规定：在VBA中，可以不用声明一个变量而直接使用，这时，编译器自动将第一次使用的该变量（隐式地）声明为变体型。变体型数据将会造成程序运行速度减慢，为了杜绝这一现象，可以让VBA强制采用显示声明的办法，即在程序开头的位置加上Option Explicit。加上该命令后，必须先显示声明变量才可以使用该变量。

3.3.3 变量的运算

既然变量是一个”数据”那么，就有同数据一样的参与运算的功能，那么，对变量进行的任何操作都可以称为变量的”运算”，我们可以根据在变量中储存的东西是数据或者对象，将变量分为数值变量和对象变量。下面将讲解变量的运算。

1. 赋值运算

变量最基础的运算便是”赋值运算”，也就是把一个数或者对象通过”赋值”的方法”复制”到变量中。在VBA中，赋值运算的方法有两种：Let 变量=表达式 或者Set 变量=表达式。Let用于数值变量的赋值，Set用于对对象变量的赋值。在”Let 变量=表达式”中，Let可以省略 所以，对于数值变量的赋值就简化成了”变量=表达式”

在上面这个式子中，变量一定要位于”=“符号的左边，而”=“符号的右边可以是任意的数学运算、判断运算或者字符串运算等。这个”=“不再是数学中的”等于”的意思，而是将右边的数字、字符或者逻辑值进行运算，然后把右边的结果复制给左边的变量。例如

a=a 1

这一个命令是，把原来变量a的数值加上1，然后再赋值给变量a，命令结束后，a的数值在原先基础上加了1.

2. 数学运算

VBA中支持许多数学运算，相关的数学运算有：

（1）四则运算：加法” ”,减法”-”，乘法”*”，除法”/”，整除”\”，取余数”Mod”运算。例如：”5 2”，”7-4”，”4/3” ,”3\2”，”17 Mod 3” 等。下面我们着重讲解除法和整除运算。

除法运算，即计算两个数的除后的结果，这里，如果运算后赋值给一个Single或者Double型将不会产生任何问题，但是，如果赋值给一个Integer或者Long型，将会产生一个小问题，请尝试一下下面的程序：

Sub Test()

Dim A As Integer, B As Single

A=1/2

B=1/2

MsgBox(“A=“& A &” B=“ & B)

End Sub

将显示”A=1 B=.5。这里，B=.5的输出我们暂且不去管它，这个输出等价于B=0.5，也就是说，B的运算时完全正确的，但是A为什么处于2以后任然等于1呢？

这是因为，我们在把例如0.5这样的小时赋值给一个整数时，VBA系统自动给我们”四舍五入”了！

整除运算，在进行整除运算时，计算机自动给出除后的整数部分，而忽略小数部分，还是上面的程序，现在修改一下：

Sub Test2()

Dim A As Integer, B As Single

A=1\2

B=1\2

MsgBox(“A=“ & A & “ B=“ & B)

End Sub

再次运行，发现此时结果是”A=0 B=0”这是因为，在进行整除运算时，计算机只取计算结果的整数部分，所以把一个整数赋值给一个小数或者整数，结果还是这个整数！

求余数运算，Mod运算符可以求除法运算中的”余数”，这个运算可以判断一个数是否为偶数（奇数）（偶数对2的余数等于0）。表达式 a Mod b表示求a对b的余数。

Sub Test3（）

Dim A As Integer

A=17 Mod 3

MsgBox（a）

End Sub

程序将输出17对3的余数，即2.

（2）取整运算：取整运算的结果是把一个小数取成整数。取整运算有两种，即Int() 和Fix（）。这两者是有区别的，Int()运算是求不大于这个小数的整数，当小数大于0时，将返回小数的整数部分，当小数小于0时，将返回这个小数的整数部分减去1，而Fix()作用是返回小数的整数部分，无论小数大于0或者小于0，例如：Int(8.7)等于8，Fix(3.6)=3,而Int(-7.2)=-8，Fix(-7.2)=-7

（3）函数运算：VBA支持的函数运算有：幂运算”^”,表示求幂，例如3^2表示求3的2次方幂。Exp()表示求底数为e的幂。对数运算：Log() 表示求以e为底的对数。三角函数:Sin()、Cos()、Tan()表示求弧度情况下的正弦、余弦、正切（注意括号内的数的单位为弧度）。随机函数：Rnd()，表示生成一个0~1之间的随机数。

3.逻辑运算

所谓逻辑运算，就是得到逻辑值True（真）或者逻辑值False（假）的运算，逻辑运算中，有逻辑值运算和逻辑值之间的运算。逻辑值运算就是得到一个命题为真或者为假的运算

VBA的逻辑值运算有：”>“,”<“,”<>“,”>=“,”<=“以及”=“

（1）大于运算 “>“ 判断左边是否大于右边，例如3>5，结果为False请尝试以下程序：

Sub Logisic（）

Dim a As Boolean

a=3>5

Msgbox（a）

End Sub

正如所预料，得到结果”False”

（2）小于运算”<“判断左边的是否小于右边。

（3）不等于运算”<>“ 判断左右两边是否不等。

（4）等于运算”=“ 判断左右两边的是否相等。

（5）大于等于运算”>=“判断左边是否大于或等于右边。

（6）小于等于运算”<=“判断左边是否小于或等于右边。

VBA中的逻辑数值之间的运算有：And、Or、Not、Eqv、Imp、Xor。

(1) And运算：计算两个逻辑数值的”逻辑且”，只有当And两边的两个逻辑数均为Ture时，计算结果才为Ture。

(2) Or运算：计算两个逻辑数值的”逻辑或”，当参与Or运算的两个逻辑值其中一个为True时，结果为Ture，只有两个逻辑值均为”False”时，结果才为”False”

(3) Not运算：计算单一逻辑数值的”逻辑非”，当参与运算的逻辑值为Ture时，计算结果为False；当参与运算的逻辑值为False时，运算结果为True。

(4) Eqv运算：计算两个逻辑数值的”逻辑等价”，当参与Eqv运算的两个逻辑值的数值一致时，即两边都为True或者都为False，结果为True；否则结果为False

(5) Imp运算：计算两个逻辑数值的”逻辑蕴含”，当参与Imp运算的第一个逻辑数值为Ture，且第二个逻辑数值为False时，运算结果为False，其他情况下运算结果均为True。

(6) Xor运算：计算两个逻辑数值的”异或”结果，即当两个逻辑值中其中一个是True，一个是False时，运算结果为True，其他情况下，运算结果为False.

4. 字符串运算

(1) 判断字符串大小运算，字符串大小比较的运算符，同逻辑比较运算符。在比较两个字符串时，先比较字符串首字母ASCII码的大小，如果一致，则进行比较第二个字符的ASCII……，如果全部一致，则两个字符串大小一致。

(2) 求字符串长度函数Len()，函数Len() 将返回一个整数，这个整数等于字符串的长度，请尝试如下程序：

Sub StrLen（）

Dim A As String, N As Integer

A=“I Love China”

N=Len(A)

MsgBox(N)

End Sub

运行结果显示，N的数值为12,（空格也算字符！）

(3) 左侧取字符函数Left(). 函数Left()返回从左侧取字符串的结果，函数的用法是：Left(字符串,N)表示从字符串的左侧取长度为N个字符后的结果。请尝试一下下面的程序。

Sub L()

Dim A As String, B As String

A=“Microsoft Cooperation”

B=Left(A,5)

MsgBox(B)

End Sub

运行结果，从字符串”Microsoft Cooperation”中，从左侧取5个字符，等于Micro。

(4) 右侧去字符函数Right(). 函数Right()的用法和Left()一致，不同的是，这个结果为从右侧取字符。

(5) 从中间取字符函数 Mid().Mid()的用法是: Mid(字符串,开始位置,N)，表示从字符串中开始位置（第多少个字符开始）取N个字符，请尝试下列程序

Sub M()

Dim A As String, B As String

A=“I Came From China”

B=Mid(A,3,4)

MsgBox(B)

End Sub

运行结果：在字符串”I Came From China”中，从第3个字符开始取4个字符，得到”Came”。

(6) 获取字符串2在字符串1中的起始位置。Instr()函数可以返回字符串1在字符串2中的位置。用法是Instr(开始位置,字符串1,字符串2)，表示从字符串1的开始位置查找字符串2.请尝试以下程序，若字符串2中没有找到字符串1，则返回开始位置的数值减去1.

Sub I()

Dim A As String, B As String

A=“Microsoft Visual Basic For Applications”

B=“For”

MsgBox(Instr(1,A,B))

End Sub

运行结果。返回字符串”For”在字符串”Microsoft Visual Basic For Applications”中的位置，24.

这里需要说明的是，如果字符串2中包含两个或者两个以上的字符串1，函数只会给出字符串1第一次在字符串2中出现的位置。例如

Sub I2()

Dim A As String, B As String

A=“Microsoft Visual Basic For Applications Is Suit For Beginners”

B=“For”

MsgBox(Instr(1,A,B))

End Sub

结果还是输出24.

(7) 反向获取字符串2在字符串1中的起始位置，InStrRev()函数，可以获得字符串1在字符串2中的位置，用法为InStrRev(字符串1,字符串2,起始位置)，与上面函数不同的是，这个函数将在其实位置处从后向前查找，查找到的位置还是按照从前往后计算的！

(8) 将字符串中的英文字符换成大写UCase()函数。UCase(字符串) 作用是，将字符串中的英文字符写成大写。在转换后，数字或者其他符号并不会改变。

(9) 将字符串中的英文字符换成小写LCase() 函数。LCase(字符串) 作用是，将字符串中的英文字符写成小写。

(10) 获取字符的ASCII码：Asc()函数。ASCII(字符)作用是，获取字符的ASCII码。

(11) 按照ASCII码获取字符：Chr()函数。Chr(ASCIICode)作用是，根据ASCIICode（数字）获得ASCII码对照表中数字相对应的字符。

(12) 重复输入String()函数，String(N,字符)将获得字符重复N遍的字符串。

(13) 空格函数Space()。Space(N)将返回N个空格。

(14) 分割字符串函数Split()。Split()的用法是：Split(字符串,分割字符)，它的意思是，在字符串中，按照分割字符分割字符串，分割后的结果，是一个字符串数组。请尝试下列程序（关于数组的相关内容，请阅读第4章）

Sub S()

Dim A As String, B() As String, I As Variant

A=“Red,Yellow,Blue,Black,Orange,Pink”

B=Split(A,”,”)

For Each I In B

MsgBox(I)

Next I

End Sub

这一段程序的作用是，先声明一个字符串变量A，这个字符串变量A中储存了各种颜色，即”Red”、”Yellow”、”Blue”、”Black”、”Orange”、”Pink”。每种颜色之间以逗号”,”连接。然后再定义一个数组B，用Split函数分割数组A，分割的依据是逗号”,”。分割完了之后，B这个数组中，有6个元素，这6个元素分别等于上面的”颜色”，然后再用一个I变量把B中的元素一个一个显示出来。所以结果是，第一次信息框显示”Red”，点击”确定”后，第二次显示”Yellow”……，一直到显示”Pink”。

(15) 字符串连接函数Join()。Join()函数正好和Split函数相反，即将一个数组合并为一个字符串。使用方法是，Join(数组,分隔符号)，表示用分隔符号连接数组。请尝试下列程序：

Sub J()

Dim A(2) As String, B As String

A(0) = "Red"

A(1) = "Green"

A(2) = "Blue"

B = Join(A, " ")

MsgBox (B)

End Sub

这一程序作用是，先定义了一个数组A，数组A中的三个元素分别赋值为”Red”，”Green”和”Blue”，然后用加号” ”将3个元素连接起来，连接后的字符串为”Red Green Blue”。

(16) 字符串连接符号 “&”。”&”符号用于对两个字符串的”连接”。例如：”12” & “34” 连接后结果为”1234”，”Hello” & “World”连接后结果为”HelloWorld”，记住，”&”符号只是简单是”连接”，并不能在连接的两个字符之间加入空格或者其他特殊字符，需要加入这些字符时，可以采用 “&”字符的方式，例如，想连接”Hello”和”World”，中间加入Tab（制表符）时，可以写成”Hello” & Chr(9) & “World”. (制表符的ASCII码为9)。”&”也可以用于字符串和数字的连接，连接效果是，先把数字转化成字符串，再连接，因此，”12” & “34” 与 “12” & 34效果是一样的，均为”1234”。

(17) 字符串连接字符 “ ”，” ”也可以用作字符串连接符，与”&”不同的是，” ”的行为比较”诡异”，其连接效果往往不是我们所需要的效果。连接规律为：当连接的两侧均为字符串时，连接效果与”&” 相同，即 “12” & “34” 与”12” “34” 效果一致，均为”1234”。当连接的一侧为数字字符，另一侧为数字时，会进行数字的加法运算，然后再转换为字符，例如”12” 34，结果为”46”。而当连接的两侧一侧为字符（含有字母）一侧为数字时，则不可以连接。

3.3.4 变量类型的转换

正如我们之前所见，变量在进行运算时，VBA可以自动将变量进行转换。但是有些转换就不可以自动实现了。VBA中，提供了各种转换类型的函数。我们可以用这些函数进行数据转换，然后再运用于各种运算。

（1）转换成整形变量CInt()。CInt()的作用是，将一个字符或者小数转换成整数，转换过程中，所需要转换的内容为字符时，这个字符中的所有字符必须全部是数字，例如CInt(“2.6”)可以转换成功，如果含有其他字符，例如CInt(“My1”)则会显示类型不匹配。CInt()转换时，无论正数或者负数，均采用”五舍六入”原则，即只有小数部分大于0.5时，才会”入”。例如CInt(2.5),结果是2,CInt(2.51)结果是3，CInt(-2.5)结果是-2，CInt(-2.51)结果是-3。

（2）转换成数值型变量Val()。Val()函数的作用是，将一个字符串转换成数值，转换的数值，当第一个字符是数字的时候，等于第一个数字，当第一个字符不是数字的时候，结果等于0，例如Val(“My21thBook2”)结果为0，而Val(“21th2”)结果为21。

（3）转化成字符串型变量Str()和CStr()，Str()的作用是，将一个数字转换成字符串，转换规律是，如果原先数字大于0，则会在字符串最前端多出一个空格，如果原先数字小于0，则最前面是表示复数的符号，即”-“。CStr()作用也是数字转换成字符，不同的是，如果原先数字大于0，则转换后的字符前面不会多出一个空格。

3.3.5 变量的命名法则

当一个程序比较复杂，使用的变量比较多的时候，有必要引用变量的命名法则。变量的命名法则并不是VBA强行规定的，只是为了程序编译人员方便而人为规定的，可以想象，如果一个程序有1000行命令，涉及到100个变量，如果这些变量随机地按照a1、a2、a3……这样命名，那么用不了多久，程序的编写人员自己都会忘记当初这些变量每一个是什么作用，是什么类型了。

（1）变量命名的总原则：”见字知意”，即看到变量名称就知道这个变量在程序中的作用。例如，定义一个向用户显示信息的字符串变量为Dim MyMsg As String。由于MyMsg这个名字，由My（我的）加上Msg（信息=Massage）所以以后看到MyMsg就知道这个变量当初的用途是向用户显示信息，或者需要向用户显示信息时候，就用这个MyMsg变量。

（2）变量名称尽可能地短，毕竟，不会有人用像例如Get_The_Information_Of_

FileName_As_My_Massage这么长的变量名称（打字都得大半天）。

（3）大小写混合，可以感受一下下面四个变量名： MyName, myname, MYNAME, Myname, myName。尽管VBA中变量名和函数名不区分大小写（后面章节中会说到函数名），但是，在这几种表达方式中，最为舒服的表达方式为MyName。

（4）用变量类型的前3个字母表示这个变量的类型，例如，定义一个字符串的变量，用StrL这个名字比用A这样的名字更能显示这个变量的类型。

（5）使用公认的变量名称，例如，i、j、k一般用于循环变量名，i，j还用于表示行和列的行数、列数，M、N一般用于表示一个二维数组的大小（M为列，N为行），File一般用于文件操作时的文件名称、Path一般用于文件操作时的路径名称，等。

第四节 变量的使用范围

3.4.1 内部变量、私有变量、公共变量、静态变量

(1) 内部变量

正如之前的例子用Dim在Sub内部可以定义变量，但是，这种用Dim在一个过程（Sub）内部定义的变量，在过程的外部却访问不到，不同的过程中，同样的变量名的变量也是不同的两个变量。例如，下面一段程序。

Sub Test1()

Dim MyAge As Integer

MyAge=27

Msgbox(MyAge)

End Sub

Sub Test2()

MyAge=MyAge 1

MsgBox(MyAge)

End Sub

分别运行这两个过程，可以看到，第一个过程结果是27，第二个过程结果是1.因为在Test2过程中的MyAge与Test1中的MyAge是不同的变量。在Test1中声明的MyAge变量，赋值为27。但是在Test2中，并不能访问Test1中的变量而是又重新定义了一个变量MyAge，因为没有给MyAge赋值，所以这个变量的值自动为0，把此时再把这个变量进行加一运算，结果是1.

像这种在过程或者函数内部，随着函数或者过程的消失而消失的变量叫做内部变量，由于内部变量总是随着过程或者函数的结束而消失，所以，在不同的函数或者过程内部可以有相同名称的内部变量。

如果我们想在过程Test2中访问过程Test1中的MyAge变量怎么办？我们可以把过程Test2加上一个参数，并且让这个参数等于过程Test1中的MyAge，然后用过程Test1来调用过程Test2，如下所述。

Sub Test1()

Dim MyAge As Integer

MyAge=27

MsgBox(MyAge)

Call Test2(MyAge)

End Sub

Sub Test2(MyAge As Integer)

MyAge=MyAge 1

MsgBox(MyAge)

End Sub

这里，过程Test1中的MyAge变量通过参数的形式传递给过程Test2，需要注意的是，过程Test2的参数可以用任意的名称，例如写成下列形式：

Sub Test2(Age As Integer)

Age=Age 1

MsgBox(Age)

End Sub

运行结果是一样的。这里有两点值得我们注意，第一，在Test1中，运用Test2过程的时候，前面加了一个关键字：”Call” 这个关键字的作用是，在Test1执行的过程中，执行到这一条语句时，转到Call后面的过程或者函数起始位置开始执行命令。第二，Test2通过参数传递的方式，从Test1中传递了参数MyAge，执行完毕后，Test1中的这个变量MyAge的数值也会发生改变，这一条读者先行记住即可，我们将在代码实战部分讲解参数的传递。

（2）私有变量

可以在一个模块开始的时候定义这个模块所使用的”私有变量”,定义私有变量的方法为Private 变量名 As 类型，定义在一个模块中的私有变量，在这个模块中随处可以访问，只有当模块结束的时候，这个变量才会消失。例如，在同一个用户模块中编入下列程序：

Private MyAge As Integer

Sub T1()

MyAge = 27

MsgBox (MyAge)

End Sub

Sub T2()

MyAge = MyAge 1

MsgBox (MyAge)

End Sub

在这个模块中，T1过程和T2过程均可以访问变量MyAge，所以运行结果，如果先运行第一个，再运行第二个，第一次结果为27，第二次结果为1.如果直接执行第二个过程，则运行结果为1。（第一个过程相等于给MyAge变量赋值为1，而第二个过程是把MyAge的数值加上1）

私有变量只能在模块内部处处可见，而在模块外部却不可以调用，因此，不同的模块可以有相同名称的私有变量。

（3）公共变量

可以在模块开始的时候声明一个公共变量，声明公共变量的方法是: Public 变量名 As 类型。定义的公共变量，在这个工程中随处可见，不同的模块之间也可以调用。例如，首先插入一个模块，写入：Public MyAge As Integer，然后再插入一个模块写入以下两个过程。

Sub T1（）

MyAge=27

MsgBox(MyAge)

End Sub

Sub T2()

MyAge=MyAge 1

MsgBox(MyAge)

End Sub

可以看到，尽管在这个模块中并没有定义私有变量MyAge，但是因为在之前的模块中，已经把MyAge定义成为了公共变量，所以，T1和T2仍然能够正常调用。

（4）静态变量

静态变量是介于内部变量和私有变量之间的一种变量，这种变量只有函数或者过程本身可以调用，其他函数或者过程不可以调用，但是，每调用一次后，静态变量的数值将会得到保存。举个例子说明一下，首先我们来看一下下列程序段。

Sub S()

Dim a As Integer

a=a 1

MsgBox(a)

End Sub

这样一段程序段，无论执行所少次，a的数值始终等于1，这是因为这个过程中的这个变量a随着过程的结束就会消失了，下一次再执行的时候，再重新声明变量a，在变量a没有赋值的时候，VBA自动给这个变量a赋值为0，所以a加上1，始终等于1。

但是，我们只需要把上面过程中的Dim 改成Static，情况就会发生改变了！像下面的这一段程度：

Sub S()

Static a As Integer

a=a 1

MsgBox(a)

End Sub

这样一段程序，随着执行次数的增加，a的数值会一直增加，每一次增加1，只要不关闭这个Excel工作表，a的数就会增加！这是因为，这个过程中，声明了一个静态的变量a，这个a的数值并不会因为过程的结束而消失，下一次再运行的时候，a的数值会保留上一次的运行结果。

第五节 常量

3.5.1 定义常量的意义

计算机中有变量，就有常量。所谓常量就是不能更改的量，例如数字123，字符串”My Work” 等，显然，我们可以用常量给变量赋值，例如Dim a As Integer a=1,但是却不可以给一个常量“赋值”，显然，数字3不可以“赋值”成数字5.即除了赋值运算，常量可以参与前面提到的所有运算。

为什么要定义常量呢，我们来看一下一个例子，假如我们现在要计算一个圆形的表面积、一个圆柱体的体积、和一个球的体积。这时候就需要用到圆周率这样一个常数π，而这个常数π等于3.1415926（假设我们只取小数点后7位数），那么，这个程序就需要这样写。

Sub CalC()

Dim R1 As Double, R2 As Double, H As Double, R3 As Double

Dim S1 As Double, V1 As Double, V2 As Double

R1=Inputbox(“输入圆的半径”)

S1=3.1415926*R1*R1

MsgBox(“圆形的面积为” & S1)

R2=Inputbox(“输入圆柱的半径”)

H=Inputbox(“输入圆柱的高”)

V1=3.1415926*R2*R2*H

MsgBox(“圆柱体积为” & V1)

R3=Inputbox(“输入球的直径”)

V2=4/3*3.1415926*R3*R3*R3

MsgBox(“球的体积为” & V2)

End Sub

这个程序中，Inputbox()的作用是，用一个对话框提示用户输入数据，在计算圆形的面积的时候需要用户输入圆形的半径，在计算圆柱体体积的时候，需要用户输入圆柱的半径和高，而需要计算球体体积的时候，需要用户输入球体的半径。MsgBox()这个在我们之前许多程序中已经见到了，它的作用，是向用户输出程序的结果和相关信息。关于Inputbox和MsgBox的作用，我们将在后续章节中详细讲解。

从这个程序中，我们可以看到，3.1415926这个数字被一个程序用了很多次。像这种常量，因为我们需要不断地引用，所以如果按照每一次重新输入的做法，一是比较麻烦，二是有可能在某一次输入的时候输入错误。这时，就可以定义一个常量。定义常量的命令是： Const 常量名 = 常量。

3.5.2 常量的定义和使用

还是用上面这个例子，如果我们定义了一个常量PI=3.1415926那么，上面这一段程序可以写成：

Sub CalC()

Dim R1 As Double, R2 As Double, H As Double, R3 As Double

Dim S1 As Double, V1 As Double, V2 As Double

Const PI=3.1415926

R1=Inputbox(“输入圆的半径”)

S1=PI*R1*R1

MsgBox(“圆形的面积为” & S1)

R2=Inputbox(“输入圆柱的半径”)

H=Inputbox(“输入圆柱的高”)

V1=PI*R2*R2*H

MsgBox(“圆柱体积为” & V1)

R3=Inputbox(“输入球的直径”)

V2=4/3*PI*R3*R3*R3

MsgBox(“球的体积为” & V2)

End Sub

可以看出，我们这里用常量PI代替了3.1415926，在程序中，每一次需要使用数字3.1415926的时候，就用PI来代替。这样做有三个好处：第一，在语法上更加接近我们传统的数学公式，毕竟，PI*R1*R1比3.1415926*R1*R1“更像”圆面积公式。第二，减少输入，只需要在开始定义的时候把PI定义成3.1415926，后面就可以直接用PI来代替这个数字了。第三，减少输入的错误，假设程序有100行，3.1415926这个数字需要使用100次，那么，如果直接用数字，可能会在某一次输入的时候输入成3.14或者3.14159265358979这样的数（毕竟人的大脑容易产生遗忘）。

,