excel vba统计数量(ExcelVBA与数据统计第三章)

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

excel vba统计数量(ExcelVBA与数据统计第三章)

excel vba统计数量

第三章 变量

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

3.1.1进制

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

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

然而,在现实生活中,并不是所有的进制都是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)16. 8进制中的数字27,表示为(27)8.二进制中的数字101,表示为(101)2.

3.1.2 进制直接的相互换算

(1)其他进制转换为10进制

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

(12C)16=1*162 2*161 12*160=300.

同样的原理,可可以计算一下8进制下的45. (45)8=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)2. (即上面的余数按照从低位到高位的顺序写)。

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)2,32767 1=(0111111111111111)2 (1)2=(1000000000000000)2,而这个数,正好是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这样的数(毕竟人的大脑容易产生遗忘)。

,

免责声明:本文仅代表文章作者的个人观点,与本站无关。其原创性、真实性以及文中陈述文字和内容未经本站证实,对本文以及其中全部或者部分内容文字的真实性、完整性和原创性本站不作任何保证或承诺,请读者仅作参考,并自行核实相关内容。文章投诉邮箱:anhduc.ph@yahoo.com

    分享
    投诉
    首页