数据处理与程序设计&第5章-VBA基础(上)课件.pptx

1、第 5 章 Excel VBA 基础第一节 VBA VBA 及其开发环境第一节第一节 VBA VBA 及其开发环境及其开发环境VBAVBAVBAVisual Basic for Applications（VBA）是一种标准宏语言，是一种能执行通用的自动化任务的编程语言可以扩展 Microsoft Office 软件的应用程序功能VBA与VBVBA 是 VB 的一个子集VBA必须寄生于 Excel 这样的应用程序VBA 开发的程序必须依赖于Excel 这样的应用程序才能执行VBA VBA 开发环境Visual Basic 编辑器（VBE）是 VBA 的开发环境第第二节节数据类型第二第二节数据类型

2、节数据类型数据类型数据类型数据类型是编程的基础从数据处理的角度看，数据类型是指具有相同性质的数据集合及在此集合上的一组操作。可以使用系统预先定义好的基本数据类型也允许用户自定义数据类型常用数据类型第第三节节常量与变量第三第三节常量与变量节常量与变量10常量是指在程序运行期间其值常量是指在程序运行期间其值不能发生不能发生变化的量。变化的量。在在Visual Basic中，有两种形式的常量中，有两种形式的常量直接常量直接常量符号常量。符号常量。符号常量又分为符号常量又分为:用户自定义符号常量用户自定义符号常量系统定义符号常量系统定义符号常量常量11根据数据类型常量分为根据数据类型常量分为字符串常量

3、字符串常量数值常量数值常量布尔常量布尔常量日期常量日期常量 直接常量直接常量就是在程序代码中，以直接明显的形式给出的数。直接常量就是在程序代码中，以直接明显的形式给出的数。例如：例如：”欢迎使用欢迎使用visual Basic”字符串常量，长度为字符串常量，长度为20 12345 数值型常量数值型常量 True 布尔型常量布尔型常量#11102001#日期型常量日期型常量12在程序设计中，常用常量命名的方法来取代程序代码中出现的数，这种常在程序设计中，常用常量命名的方法来取代程序代码中出现的数，这种常量称为符号常量量称为符号常量。符号。符号常量在使用前需要使用常量在使用前需要使用Const语句

4、进行声明。语句进行声明。声明的格式如下：声明的格式如下：Public|Private Const As=用户自定义符号常量说明说明:：按变量名的命名规则命名。：按变量名的命名规则命名。As：可选项，用以说明符号常量的数据类型。：可选项，用以说明符号常量的数据类型。可以是可以是Byte、Boolean、Integer、Long、Currency、Single、Double、Date、String或或Variant。一个一个As子句只能说明一个符号常量。若省略该项，则系统根据表达子句只能说明一个符号常量。若省略该项，则系统根据表达式的求值结果，确定最合适的数据类型。式的求值结果，确定最合适的数据类

5、型。：由数值常量或字符串常量以及运算符组成。：由数值常量或字符串常量以及运算符组成。在在中不能使用函数调用。中不能使用函数调用。13用先前定义过的符号常量定义新符号常量用先前定义过的符号常量定义新符号常量自定义符号常量举例Const Pi=3.14159声明符号常量声明符号常量Pi代表代表3.14159，单精度类型，单精度类型Const Max As Integer=9声明符号常量声明符号常量Max代表代表9，整型，整型Const BirthDate=#1/1/01#声明符号常量声明符号常量BirthDate代表代表2001年年1月月1日，日期型日，日期型Const Pi=3.14,Max=9

6、,MyStr=“Hello”用逗号分隔多个符号常量声明用逗号分隔多个符号常量声明Const Pi2=Pi*214 1)如果要使创建的符号常量只作用于某个过程中，则应在该过程内部声如果要使创建的符号常量只作用于某个过程中，则应在该过程内部声明该符号常量。明该符号常量。注意2)如果要使创建的符号常量对模块中所有过程都如果要使创建的符号常量对模块中所有过程都有效，但对模块之外任何代码都无效，则应在模有效，但对模块之外任何代码都无效，则应在模块的声明段中声明符号常量。块的声明段中声明符号常量。3)如果要使创建的符号常量在整个应用程序如果要使创建的符号常量在整个应用程序中有效，则应在标准模块的声明段中进

7、行声中有效，则应在标准模块的声明段中进行声明，并在明，并在Const前面放置前面放置Public关键字。在窗关键字。在窗体模块或类模块中不能声明体模块或类模块中不能声明Public符号常量。符号常量。15系统定义符号常量 符号常量的定义可以从“对象浏览器”中获得。使用对象浏览器可以显示包括当前工程及对象库在内的过程、模块、类、属性和方法等的描述信息。选择对象库在“类”列表中选择所需要的符号常量组用鼠标单击某一个符号常量描述框中显示有关该符号常量的定义及描述信息。例：vbBlue所表示的颜色值为&HFF0000从菜单栏视图中选择“对象浏览器”或（F2）16变量每个变量都有名字和数据类型，通过名字

8、来引用一个变量，而通每个变量都有名字和数据类型，通过名字来引用一个变量，而通过数据类型来确定过数据类型来确定该变量的存储方式。该变量的存储方式。变量是指一个有名称的内存单元。变量是指一个有名称的内存单元。分为分为属性变量属性变量和和用户自定义变量用户自定义变量17VB变量的命名规则：变量的命名规则：第一个字符必须是字母。第一个字符必须是字母。长度不超过长度不超过255个字符。个字符。不可以包含小数点或者内嵌的类型声明字符。不可以包含小数点或者内嵌的类型声明字符。不能使用关键字。不能使用关键字。不能与过程名或符号常量同名。不能与过程名或符号常量同名。变量的命名规则例如例如:合法变量名合法变量名:

9、strMyString、intCount、MyForm、姓名、性别等、姓名、性别等非法变量名非法变量名:1x、a+b、等等 关键字关键字:又称保留字，在语法上有固定含义，是语言的自又称保留字，在语法上有固定含义，是语言的自称组成部分，用于表示系统提供的标准过程、函数、运算符称组成部分，用于表示系统提供的标准过程、函数、运算符、常量等；、常量等；VBVB中约定关键字的首写字母为大写。中约定关键字的首写字母为大写。182.变量的声明变量使用之前，一般必须先声明变量名和类型，以便系统为其分配存储单元。变量使用之前，一般必须先声明变量名和类型，以便系统为其分配存储单元。固定格式声明固定格式声明隐式声明

10、隐式声明强制显式声明强制显式声明VB变量及其类型变量及其类型声明方式声明方式19格式说明说明:：可以是：可以是VB提供的各种数据类型或用户自定义类型。提供的各种数据类型或用户自定义类型。As：方括号部分表示该部分可以缺省。缺省时：方括号部分表示该部分可以缺省。缺省时,变量默认为变变量默认为变体类型体类型.Dim：在窗体模块、标准模块或过程中声明变量。：在窗体模块、标准模块或过程中声明变量。Private：变量仅在该模块或过程中有效。：变量仅在该模块或过程中有效。Static：在过程中定义静态变量，即使该过程结束，也仍然保留变量的：在过程中定义静态变量，即使该过程结束，也仍然保留变量的值。值。P

11、ublic：标准模块中声明全局变量，使变量在整个应用程序中有效。：标准模块中声明全局变量，使变量在整个应用程序中有效。Global:在标准模块中声明全局变量在标准模块中声明全局变量.Dim|Private|Static|Public|Global As 格式声明格式声明20Defbool|DefByte|DefInt|Deflng|Defcur|Defsng|DefDbl|DefDate|DefStr|DefObj|DefVar 字母范围字母范围,字母范围字母范围.变量名后加一变量名后加一特定特定符号来表明数据类型符号来表明数据类型:%整型整型&长整型长整型 !单精度型单精度型#双精度型双精度

12、型 货币型货币型$字符串型字符串型 21若变量未经定义而直接使用，若变量未经定义而直接使用，VB会自动建立一个变量。会自动建立一个变量。可存放任何类型的数据，如数值、字符串、日期和时间。可存放任何类型的数据，如数值、字符串、日期和时间。隐式声明可见可见,随着所赋值的不同，变量的类型在不断变化随着所赋值的不同，变量的类型在不断变化.这种方法很方便，但是常常会因为转换过程难以预料，而导致一个难以查找这种方法很方便，但是常常会因为转换过程难以预料，而导致一个难以查找的错误。因此，应该在应用程序中声明所使用的变量的类型。的错误。因此，应该在应用程序中声明所使用的变量的类型。例如：例如：SomeValu

13、e=“100”SomeValue=SomeValue 10;SomeValue=“ABC”+SomeValue22 可在窗体模块或标准模块的声明段中加入语句：可在窗体模块或标准模块的声明段中加入语句：Option Explicit强制显式声明VB可采用强制声明功能可采用强制声明功能,使所有变量都必须先声明后使用使所有变量都必须先声明后使用.这样，若运行时遇到一个未经明确声明的变量名，这样，若运行时遇到一个未经明确声明的变量名，VB就会就会发出错误警告。发出错误警告。声明方式声明方式:在在“工具工具”菜单中打开菜单中打开“选项选项”对话框对话框,单击单击“编辑器编辑器”选择选择“要求变量声要求变

14、量声明明”选项选项,即可自动插入即可自动插入 Option Explicit语句语句.注：注：Option Explicit语句的作用范围仅限于语句所在模块语句的作用范围仅限于语句所在模块.对于需要强制式变量声明的窗体模块、标准模块及类模块，对于需要强制式变量声明的窗体模块、标准模块及类模块，必须将必须将Option Explicit语句放在这些模块的声明段中。语句放在这些模块的声明段中。第四节运算符与表达式第四第四节运算符与表达式节运算符与表达式24 运算符与表达式VBA中中有以下有以下6类运算符和表达式：类运算符和表达式：算术运算符与算术表达式算术运算符与算术表达式 字符串运算符与字符串表

15、达式字符串运算符与字符串表达式 关系运算符与关系表达式关系运算符与关系表达式 逻辑运算符与逻辑表达式逻辑运算符与逻辑表达式 日期运算符与日期表达式日期运算符与日期表达式 对象运算符与对象表达式对象运算符与对象表达式用用运算符运算符将运算对象将运算对象(或或操作数操作数)连接起来即构成表达式。表达式表示了某种求连接起来即构成表达式。表达式表示了某种求值规则。值规则。操作数操作数可以是常量、变量、函数、对象等，而运算符也有各种类型。可以是常量、变量、函数、对象等，而运算符也有各种类型。25算术运算符与算术表达式 算术运算符用于对数值型数据执行各种算术运算。算术运算符用于对数值型数据执行各种算术运算

16、。VB提供了提供了7个算术运算符，优先级次序如表所列个算术运算符，优先级次序如表所列:优先级优先级运算符运算符运算运算1 1 乘方乘方2 2-取负取负3 3*乘法乘法/浮点除法浮点除法4 4 整数除法整数除法5 5ModMod取模取模6 6+加法加法-减法减法其中，取负其中，取负()运算符是单目运算符，其余运算符均为双目运算符是单目运算符，其余运算符均为双目运算符运算符(需要两个操作数需要两个操作数)。乘方运算用来计算乘方和方根。乘方运算用来计算乘方和方根。例：例：102 10的平方，结果为的平方，结果为100 10(-2)10的平方的倒数，即的平方的倒数，即1100，结果为，结果为0.01

17、250.5 25的平方根，结果为的平方根，结果为5 8(1/3)8的立方根，结果为的立方根，结果为2 223 运算顺序从左到右，结果为以运算顺序从左到右，结果为以64 (-8)(-1/3)错误，当底数为负数时，指数必须是整数错误，当底数为负数时，指数必须是整数乘方运算2整数除法整数除法例：例：104 结果为结果为2 25.686.99 先四舍五人再整除，结果为先四舍五人再整除，结果为3执行整除运算，结果为整型值。参加运算的操作数一般为整型数。执行整除运算，结果为整型值。参加运算的操作数一般为整型数。当操作数带有小数点时，先被四舍五入为整型数，后整除。当操作数带有小数点时，先被四舍五入为整型数，

18、后整除。27例例:10 Mod 4 结果为结果为2 25.68 Mod 6.99 先四舍五人再求余数，结果为先四舍五人再求余数，结果为5 11 Mod-4 结果为结果为3 -11 Mod 5 结果为结果为-1 -11 Mod 3 结果为结果为-2取模运算取模运算符取模运算符Mod用于求余数用于求余数,为第一操作数整除第二操作数所得的余数为第一操作数整除第二操作数所得的余数.操作数带小数操作数带小数,先四舍五入取整型数，后求余先四舍五入取整型数，后求余;运算结果符号取决于第一个操作数。运算结果符号取决于第一个操作数。28注意注意:“&”和和“+”这两个运算符的区别：这两个运算符的区别：“+”运算

19、符两边的操作数应均为字符串。运算符两边的操作数应均为字符串。如果都为数值型，则进行算术运算；如果有一个为字符串，另一个为数值如果都为数值型，则进行算术运算；如果有一个为字符串，另一个为数值型，则出错。型，则出错。“&运算符两边的操作数不论是数值型的还是字符串型的，运算符两边的操作数不论是数值型的还是字符串型的，都进行字符串的连接运算，系统先将数值型操作数转换为字符串，然后再都进行字符串的连接运算，系统先将数值型操作数转换为字符串，然后再进行连接运算。进行连接运算。2.3.2 字符串运算符与字符串表达式字符串运算符有两个：字符串运算符有两个：“&”、“+”，是将两个字符串连接起来，合并成一个，是

20、将两个字符串连接起来，合并成一个新的字符串。新的字符串。例如：例如：“Hello”&“World”结果为结果为“Hello World”“Check”&123 结果为结果为“Checkl23”“Check”+123 错误错误29VB提供的关系运算符提供的关系运算符:=等于等于 2=3 False 不等于不等于 23 True 2 23 False=2=3 False=2=3 TrueLike 字符串匹配字符串匹配 “aBBa”Like“a*a”TrueIs 对象引用比较对象引用比较关系运算符与关系表达式关系运算符又称为比较运算符，用于对两个表达式的值进行比较，关系运算符又称为比较运算符，用于对

21、两个表达式的值进行比较，比较的结果为布尔值比较的结果为布尔值True(真真)或或False(假假)。30有关说明：有关说明：若两个操作数是数值型，按其大小比较。若两个操作数是数值型，按其大小比较。若两个操作数是字符串，则按字符的若两个操作数是字符串，则按字符的ASCII码值从左到右逐一比较。码值从左到右逐一比较。对单精度或双精度进行比较时，应避免直接判断两个浮点数是否相等，对单精度或双精度进行比较时，应避免直接判断两个浮点数是否相等，而改成对其误差的判断。例如：而改成对其误差的判断。例如：Abs(A-B)1E-5 关系运算符的优先级相同。关系运算符的优先级相同。“Like”运算符与通配符运算符

22、与通配符“？”、“*”、“#”等结合使用，常用于数等结合使用，常用于数据库模糊查询。据库模糊查询。“Is”运算符用于两个对象变量的引用比较。运算符用于两个对象变量的引用比较。*is Null31例例:数学上判断数学上判断x是否在区间是否在区间a,b内内 如写成如写成:a=x=b 则不能完成指定功能则不能完成指定功能 假设假设a=1,b=3,x=4 VB 在计算在计算:1=x=3 时由左向右计算时由左向右计算 先计算先计算 1=4 成立成立,值为值为-1 接着计算接着计算-18)And(58)Or(58)例子例子或或非非运算运算OrNot运算符运算符Not 运算符为单目运算符运算符为单目运算符,

23、其它为双目运算符其它为双目运算符.31优先级优先级45XorEqv6Imp异或异或同或同或蕴含蕴含当两个操作数不等价时当两个操作数不等价时,结果为真结果为真当两个操作数值等价时当两个操作数值等价时,结果为真结果为真如果如果A则则B(38)Xor(58)Eqr(58)Imp(5 c+d And a=5 Or Not c 0 Or d 0True86FalseTrueFalseFalseTrueFalseTrue35 常用内部函数VB提供系统内部函数提供系统内部函数,允许用户自定义函数过程允许用户自定义函数过程内部函数分内部函数分5类类:数学函数数学函数字符串函数字符串函数随机函数、格式输出函数随

24、机函数、格式输出函数转换函数转换函数日期和时间函数日期和时间函数这些函数都带有一个或几个自变量，在程序设计中称为参数。函数这些函数都带有一个或几个自变量，在程序设计中称为参数。函数运算后返回一个值。运算后返回一个值。函数一般调用格式：函数一般调用格式：()函数的参数可以是函数的参数可以是常量常量、变量变量或或表达式表达式,若有多个参数时若有多个参数时,参数参数之间以逗号分隔之间以逗号分隔36 数学函数数学函数用于各种数学运算数学函数用于各种数学运算,主要包括主要包括 三角函数三角函数 平方根函数平方根函数 绝对值函数绝对值函数 对数函数对数函数 指数函数指数函数绝对值函数绝对值函数 Abs(x

25、)返回返回x的绝对值的绝对值例例:Abs(3.4)结果为结果为3.4 Abs(-3.4)结果为结果为3.4 平方根函数平方根函数 Sqr(x)返回返回x的平方根的平方根,x=0例例:Sqr(9)结果为结果为3三角函数三角函数 Sin(x)正玄函数正玄函数 Cos(x)余玄函数余玄函数 Tan(x)正切函数正切函数 Atn(x)反正切函数反正切函数参数单位为弧度参数单位为弧度指数和对数函数指数和对数函数Exp(x)返回以返回以e为底的指数函数，即数学中的为底的指数函数，即数学中的exLog(x)返回以返回以e为底的自然对数，即数学中的为底的自然对数，即数学中的lnx。VB没有提供常用对数函数，要

26、想计算常用对数可以换算没有提供常用对数函数，要想计算常用对数可以换算:例如：例如：Exp(1)、Exp(2*X)、Log(10)。10lnln10 xxLog取整函数取整函数 Int(x)返回不大于返回不大于x的最大值的最大值 Fix(x)返回返回x的整数部分的整数部分 例例:Int(3.6)=3 Int(-2.3)=-3 Fix(6.5)=6 Fix(-5.6)=-5四舍五入函数四舍五入函数 CInt(x)CLng(x)例例:CInt(3.6)=4 38随机函数随机函数Rnd(x)产生产生01之间的单精度随机数之间的单精度随机数。说明说明:若若x0,则以上一个随机数作为种子则以上一个随机数作

27、为种子,产生序列中的下一个随机数产生序列中的下一个随机数;若若x=0,则产生与最近生成的随机数相同的数则产生与最近生成的随机数相同的数;若省略参数若省略参数x,则以上一个随机数作为种子则以上一个随机数作为种子,产生序列中的下一个随机数产生序列中的下一个随机数产生产生N1,N2问随机数，可使用公式：问随机数，可使用公式：Int(N2-N1+1)*Rnd+N2随机种子生成器：随机种子生成器：Randomize time392.4.2 字符串函数VBAVBA提供提供了大量的字符串函数，具有很强的字符串了大量的字符串函数，具有很强的字符串处理能力。处理能力。1 1删除空白字符函数删除空白字符函数 LT

28、rim(s)去掉字符串去掉字符串s左边的空白字符左边的空白字符(即前导空格即前导空格)。RTrim(s)去掉字符串去掉字符串s右边的空白字符右边的空白字符(即后置空格即后置空格)。Trim(s)去掉字符串去掉字符串s左右两边的空白字符。左右两边的空白字符。例如：例如：LTrim(”UUUABC”)结果为结果为“ABC”RTrim(”ABCUUU”)结果为结果为“ABC”Trim(”UUUABCUUU”)结果为结果为“ABC”402取子串函数 Left(s,n)取字符串s左边的n个字符 Right(s,n)取字符串s右边的n个字符 Mid(s,p,n)从字字符串s的第p个字符开始取n个字符例：L

29、eft(“ABCDE”,2)结果为“AB”Right(“ABCDE”,2)结果为“DE”Mid(“ABCDE”,2,3)结果为“BCD”Mid(“ABCDE”,2,6)结果为“BCDE”3.字符串长度函数 Len(s)返回字符串s的长度例：Len(“ABCDE”)结果为5415 5生成空格函数生成空格函数 Space(n)Space(n)返回返回n n个空格个空格例：例：Space(3)Space(3)的结果为的结果为“UUUUUU”4 4生成字符串函数生成字符串函数 String(String(n,sn,s)取字符串取字符串s s的第一个字符构成长度为的第一个字符构成长度为n n的新字符串。

30、的新字符串。例：例：String(3,String(3,”ABCABC”)结果结果 “AAAAAA”String(3 String(3，65)65)结果结果 “AAAAAA”(字符字符”A A”的的ASCIIASCII码为码为65)65)427 7字母大小写转换函数字母大小写转换函数 UCase(s)UCase(s)把小写字母转换为大写字母。把小写字母转换为大写字母。LCase(s)LCase(s)把大写字母转换为小写字母。把大写字母转换为小写字母。例：例：UCase(UCase(”AbcAbc”)结果为结果为ABCABC”LCase(LCase(”ABcABc”)结果为结果为abcabc”6

31、 6搜索予字符串函数搜索予字符串函数 InStrInStr(S,s1,s2,C)(S,s1,s2,C)在字符串在字符串s1s1中第中第S S个位置开始个位置开始查找字符串查找字符串s2s2出现的起始位置出现的起始位置例例:InStrInStr(”ABCDEABCDE”，”BCBC”)结果为结果为2 2 1nStr(1nStr(”ABCDECDEABCDECDE”，”DEDE”，)结果为结果为4 444转换函数用于数据类型或形式的转换，包括整型、实型、字符串型之间以及与ASCII码字符之间的转换。下面介绍常用的转换函数。1将字符转换成ASCII码 Asc(s)返回字符串s中第一个字符的ASCII

32、码。例：Asc(“A”)结果为65 Asc(“ABC”)结果为652.4.4 转换函数2将ASCII码转换成字符 Chr(x)把x的值转换为对应的ASCII字符例：Chr(65)的结果为”A”。3将数值转换成字符串 Str(x)把x的值转换为一个字符串。如果x为正，则返回的字符串前有一前导空格。例：Str(123)的结果为“123”。4将字符串转换成数值 Val(s)把数字字符串s转换为数值。例：Val(“123”)结果为123 Val(“123AB”)结果为123 Val(“.123AB”)结果为.123 Val(”a123AB)结果为0 465转换成逻辑型数据 Cbool(x)非0为Tru

33、e 0为False。例：Cbool(123)的结果为True。6转换成日期型数据 Cdate(x)把数字、字符串转换为日期数据。例：Cdate(“February 20,1999”)结果为99-2-20 Cdate(“4:30:40 PM”)结果为16:30:40&o和&h用于定义八进制数和十六进制数。Val()函数：略去了字符串左侧的空格，并转换字符串直至字符串中的非数字字符；不仅略去了字符串中的其他正文和空格，而且略去了数字字符中间的空格，如val(“&o 3 3”)=2748日期和时间函数可以显示系统的日期和时间，提供某个事件何时发生及持续时间长短等信息。常用的日期时间函数有：Now 返

34、回系统日期和时间Date 返回系统日期Time 返回系统时间Day(d)返回参数d中指定月份的第几天WeekDay(d)返回参数d中指定的星期几Month(d)返回参数d中指定的月份Year(d)返回年份Hour(d)返回小时(023)Minute(d)返回分钟(059)Second(d)返回秒(059)Timer 返回从午夜开始到现在经过的秒数 日期和时间函数51格式输出函数可以使数值、日期或字符串按指定的格式输出。其格式为 Format(，)格式输出函数 ：要格式化的数值、日期或字：要格式化的数值、日期或字 符串表达式。符串表达式。：指定表达式的值的输出：指定表达式的值的输出 格式。格式。格式字符有三类：数值格式、日期格式格式字符有三类：数值格式、日期格式和字符串格式。和字符串格式。格式字符要加引号格式字符要加引号。5253 其他函数1条件函数 Iif(,)如x1值为真，则返回x2的值，否则返回x3例：Iif(xy,x,y)返回x,y中较大值 Iif(x=60,“Pass”,”Failure”)2选择函数 Choose(n,.)例：Choose(3,”星期一”，”星期二”星期三”星期四”星期五”）)的结果为”星期三”。