《学习VBA基础知识.ppt》由会员分享，可在线阅读，更多相关《学习VBA基础知识.ppt（108页珍藏版）》请在三一办公上搜索。
1、VBA基础（2023/8/11）,数组,VBA程序流程控制,VBA常用语句,VBA编程基础,VBA概念,VBA概念,1-1 VBA简介,VBA(Visual Basic for Application)是MicrosoftOffice系列软件的内置编程语言，其语法结构与VisualBasic编程语言互相兼容，采用的是面向对象的编程机制和可视化的编程环境。,1-2 面向对象程序设计的基本概念,1.集合和对象 VBA中的应用程序是由许多对象组成的，如表、窗体、查询等。对象是帮助构造应用程序的元素，以特定的方式组织这些对象，就形成了应用程序。,2.对象的属性、事件和方法 属性 属性描述了对象的自身性
2、 质 其格式为：对象名.属性=属性值,1-2 面向对象程序设计的基本概念,事件 事件是指可以发生在一个对象上且能够被该对象所识别的动作。如：单击某个命令按钮就产生该按钮的“单击”事件当某个对象发生某一事件后，就会驱动系统去执行预先编好的、与这一事件相对应的一段程序。,方法 方法是系 统事先设计好的，可以完成一定操作的特殊过程，是附属于对象的行为和动作。在需要使用的时候可以直接调用。其格式为：对象名.方法名,常见对象及其含义,1-3 VBA编程环境,VBA 中的程序与函数共有种：一般程序（Sub）、事件程序（Event）、属性程序（Property）和函数（Function）VBA程序窗口共种：
3、代码窗口、立即窗口、本地窗口、监视窗口、工程资源管理器和属性窗口在VBE环境中编写VBA代码,工程窗口选择对象,属性窗口选择对象的属性,代码窗口,选择事件,VBE编程环境,标准工具条,视图 Microsoft Excel按钮：切换Excel窗口插入按钮：插入模块或过程运行子过程/用户窗体按钮：运行模块中的程序中断按钮：中断正在运行的程序重新设置按钮：结束正在运行的程序设置模式按钮：在设计模式和非设计模式之间切换工程资源管理器按钮：用于打开工程资源管理器属性窗口按钮：用于打开属性窗口对象浏览器按钮：用于打开对象浏览器,MicrosoftExcel,插入模块,运行子过程/用户窗体,设计模式,中断,
4、重新设计,工程资源管理器,对象浏览器,属性窗口,新建一个窗体并添加两个命令按钮，运行窗体后，单击第一个按钮，显示一个消息框；单击第二个按钮，退出当前窗体,通过此例，体会可视化编程、面向对象、事件过程、应用方法等基本概念。,数组,VBA程序流程控制,VBA常用语句,VBA编程基础,VBA概念,VBA编程基础,2-1常量、变量,VBA使用常量、变量来存储值。用来保存在程序运行期间数据。常量：在程序运行中其存储的值不会改变。变量：在程序运行中其值可以改变。,2-1-1常量,在程序运行过程中，其值不会被改变的量称为常量。在VBA中有三类常量：1.直接常量 如：10，20%，123.0，“AB”，“VB
5、A程序设计”等2.符号常量3.系统常量 指VBA系统预先定义好的，用户可以直接引用的量。如：acForm，acQuery，vbOk，vbRed,符号常量,在程序中，某个常量多次被使用，则可以使用一个符号来代替该常量，这样不仅在书写上方便，而且有效地改进了程序的可读性和可维护性。VBA中使用关键字Const 声明符号常量。其格式如下：Const 常量名 类型符号=常数表达式如：Const PI#=3.1415926,2-1-2变量,变量是内存中的临时单元，存放在程序执行过程中产生的中间结果和最后输出结果。在程序中使用变量，就要给变量定义名称及类型，即对变量进行声明。,变量命名规则,1.变量名必须
6、以字母或汉字开头，后可跟字母、汉字、数字或下划线组成（不能含有小数点和空格），长度 不超过255个字符的字符串；2.不能使用VBA中的关键字；3.VBA中不区分变量名的大小写；4.变量名的最后一个字符可以是%、&、！、#、$等表示 数据类型的声明符。说明：常量名的命名规则与变量名的命名规则相同,2-2 数据类型与变量的声明,在VBA中，数据类型用来决定变量可以保存何种数据。VBA支持多种数据类型，为用户编程提供了方便。,2-2-1 VBA的数据类型,2-2-2变量声明,用Dim或Static语句显式声明局部变量 格式：Dim 变量名 AS 类型 或 Dim 变量名类型符 语句中的“As 类型”
7、子句是可选的。如果使用该子句，就可以定义变量的数据类型。未使用，默认变量的类型为变体型（Variant）。例如：Dim i As integer,s 表示声明了一个名为i的整型变量和一个名为s的变体型变量。,关键字Dim或Static的区别,Dim 声明：随过程的调用而分配存贮单元，每次调用都对变量初始化；过程体结束，变量的内容自动消失，存储单元释放。Static 声明：Static 声明的变量，也称为静态变量。静态变量在程序运行过程中一直保留其值，即每次调用过程，变量保持原来的值。,数据类型的转换函数列表,识别数据类型的函数TypeName,Sub abc()Dim i As Integer
8、 Dim str As String i=10 MsgBox TypeName(i)str=CStr(i)MsgBox TypeName(str)End Sub,隐式声明变量,未进行上述的声明而直接使用变量，称变量的隐式声明，采用隐式声明的变量都是变体型（Variant）。注意:VBA中允许不事先声明而直接使用变量，可以通过语句Option Explicit，来要求所使用的变量必须事先声明，否则VBA会发出警告信息。,变量a,b,Sum都没有事先定义,Private Sub Form_Click()Sum=0 a=10 b=20 Sum=a+b Debug.Print Sum=&SumEnd
9、Sub,良好的编程习惯应该是“先声明变量，后使用变量”，这样做可以提高程序的效率，同时也使程序易于调试。VBA中可以强制显式声明，可以在窗体模块、标准模块和类模块的通用声明段中加入语句：Option Explicit,变量的初始化,声明而未赋值的变量的值为：数值型变量初始化为0；字符型变量为零长度字符串；变体型变量初始化为 Empty；,2-3-1算术运算符,2-3-2连接运算符,连接运算符：、+（字符串连接）例如：123+456 结果 123456 123&456 结果 123456 使用上 与+的区别：例如：abcdef&12345 结果为 abcdef12345 123&456 结果为
10、123456 abcdef+12345 结果为 出错 123+456 结果为 579,2-3-3关系运算符,将两个操作数进行大小比较，结果为逻辑值。注意：字符串比较,则按字符的ASCII码值从左到右一一 比较，直到出现不同的字符为止。,2-3-4逻辑运算符,将操作数进行逻辑运算，结果是逻辑值,举例,例1：用人单位招聘秘书：年龄小于40岁的女性，学历专科或本科,正确的VBA表达式：3=x And x=7 错误的VBA表达式：3=x=7 或 3=x Or x=7,年龄40，性别=“女”，(学历=“专科”，学历=“本科”)And And Or,例2：算术表达式：,2-3-5简单的字符处理函数,Opt
11、ion Compare设置字符串比较规则,Option Compare Binary|Text|DatabaseOption Compare Binary:是根据字符的内部二进制表示导出的一种排序A-Za-z汉字Option Compare Text:是根据系统区域确定的一种不区分大小写的一种排序（A=a）(B=b)(Z=z),结果：True,结果：False,StrComp 比较两个字符串,StrConv 字符串类型转换,StrConv 字符串类型转换(例),MsgBox strConv(English,vbUpperCase)&Chr(10)&strConv(English,vbLower
12、Case)&Chr(10)&strConv(english,vbProperCase)&Chr(10)&strConv(English,vbWide),Format 格式化字符串,MsgBox FORMAT(Date,yyyy年m月d日)&Chr(10)&FORMAT(Date,aaaa),vbaOKOnly,现在是,LCase/UCase 大小写转换,Sub 大小写转换()MsgBox LCase(HELLO WORLD)&Chr(10)&UCase(hello world)End Sub,String/Space 重复字符,Sub 重复字符()MsgBox String(5,$)&Spac
13、e(3)&String(5,*)End Sub,Lset/Rset 字符串往左/右对齐,Sub 字符左右对齐()Dim str1,str2 As String str1=大连华信计算机技术股份有限公司 LSet str1=华信培训 str2=大连华信计算机技术股份有限公司 RSet str2=华信培训 MsgBox&str1&Chr(10)&str2&End Sub,Instr 返回字符出现位置,Sub 查找位置()MsgBox InStr(大连华信计算机技术股份有限公司,信)End Sub,Left/Mid/Right 从左、中、右取值,Sub 取值()Dim str As String s
14、tr=大连华信计算机技术股份有限公司 MsgBox Left(str,2)&Mid(str,3,2)&Right(str,2)End Sub,LTrim/RTrim/Trim 去除空格,Sub abc()Dim str1,str2 As String str1=大连 str2=华信 MsgBox Trim(str1&str2)&666 MsgBox LTrim(str1)&RTrim(str2)&666End Sub,Like字符串相似度比较,Sub abc()result=string lik pattern?任何单一字符*零个或多个字符#任何一个数字(0-9)Dim str1 As Str
15、ing str1=abda If str1 Like*Then MsgBox*相似 If str1 Like a?Then MsgBox?相似 If 1234 Like#Then MsgBox#相似End Sub,2-4 表达式,组成 由变量、常量、函数等运算对象加上运算符、圆括号组成的式子。书写规则(1)运算符不能相邻。例a+-b是错误的。(2)乘号不能省略。例x 乘以y 应写成：x*y。(3)括号必须成对出现，均使用圆括号。(4)表达式从左到右在同一基准上书写，无高低。运算优先级 算术运算符连接运算符关系运算符逻辑运算,2-5 常用函数,函数实际上是系统事先定义好的内部程序，用来完成特定的
16、功能。VBA提供了大量的内部函数，供用户在编程时使用。函数的调用形式为：函数名(参数表)常用内部函数常用内部函数，在立即窗口练习，体会函数的功能。请参照：VBA函数参考手册,2-6 模块、函数和过程,模块是自定义的过程、函数保存的地方，也是录制的宏保存的场所。有两种基本类型的模块：类模块和标准模块。模块可以通过右键单击工程资源管理器的工程名，选择“插入模块”来新建。新建的模块缺省的名称为“模块1”，“模块2”,建议在属性窗口内更改为有意义的名称。,模块任务：（1）保存过程和函数；（2）定义模块内的私有变量或整个工程的公有变量。,2-7 过程,过程是最基本的运行单位语法Private|Publi
17、c|Friend Static Sub name(arglist)statementsExit SubstatementsEnd Sub在以上程序中，Sub 代表过程种类，表示运行指定的操作，但不返回运行结果；,部分 描述,2-8 函数,函数是具有返回值的过程语法Public|Private|Friend Static Function name(arglist)As type statements name=expression Exit Function statements name=expressionEnd Function,部分 描述,函数和过程区别,调用一个过程（Sub）时，必须
18、键入过程名称以及任何需要的参数值。Call语句可有可无，如果使用它，则参数必须以括号括起来。调用函数（Function）时，为了使用函数的返回值，必须指定函数给变量，并且用括号将参数封闭起来。,数组,VBA程序流程控制,VBA常用语句,VBA编程基础,VBA概念,VBA常用语句,3-1 VBA语句书写规则,VBA代码不区分字母的大小写 系统保留字自动转换每个单词的首字母大写；语句书写自由 一行可书写几句语句，之间用冒号(:)分隔；一句语句可分若干行书写，用续行符（_）将语句分开。,3-2 VBA常用语句,赋值语句：给变量、常量或对象的属性指定一个值或表达式。格式：变量名表达式作用：将表达式的值
19、赋值给变量名。一般用于给变量赋值或对控件设定属性值。例如：s=10 Text1.Text 欢迎使用VBA注意：虽然赋值号与关系运算符等于号都用“=”表示，VBA会 根据所处的位置自动判断是何种意义的符号,声明语句：命名和定义常量、变量、数组以及过程。注释语句 在程序中的适当位置加上注释语句有利于程序的维护和阅读。格式：Rem 注释内容 或用单引号 注释内容,数组,VBA程序流程控制,VBA常用语句,VBA编程基础,VBA概念,VBA程序流程控制,顺序、分支、循环,结构化程序设计由顺序、分支、循环这3种基本结构所组成。,4-1分支结构,单行 If 语句格式：If 表达式 Then 语句1 Els
20、e 语句2功能：If 测试指定的条件，如果条件表达式为真（True），则执行Then 后面的语句1，否则 执行语句2（若Else子句未省略）。,Private Sub p1()Dim x As Integer,y As Integer x=InputBox(“请输入x值”)If x=0 Then y=2*x+1 Else y=1 MsgBox y:&yEnd Sub,根据输入x的值，观察y的输出结果,单行If语句举例,多行If语句,语句组可以由一条或多条语句组成，语句组不能与Then书写在同一行，否则VBA认为是一个单行If语句，会导致Else没有匹配的If。语句“End If”是多行If语句
21、的结束标志。在多行If语句中，即使省略Else子句，也要写该结束标志。省略Else子句时的多行If语句形式为：If 表达式 Then 语句组 End If,例：计算分段函数,单行If语句实现：If x=0 Then y=cos(x)x3+3*x If x0 Then y=sin(x)+sqr(x*x+1),多行If语句实现：If x0 Then y=sin(x)+sqr(x*x+1)Else y=cos(x)x3+3*x End If,If语句的嵌套,If语句的嵌套是指If或Else后面的语句块中又包含If语句。If Then If Then End If End If,例：已知x，y，z三个
22、数，使得xyz 用一个IF语句和一个嵌套的IF语句实现,If xy Then t=x:x=y:y=t If yz Then t=y:y=z:z=t If xy Then t=x:x=y:y=t End If End If,If语句的嵌套注意事项：书写锯齿型；If 与End If配对,If Then ElseIf Then Else 语句块 n+1 End If,IfThenElseIf语句(多分支结构),说明,不管有几个分支，依次判断，当某条件满足，执行相应的语句，其余分支不再执行；若条件都不满足，且有Else子句，则执行该语句块，否则什么也不执行。ElseIf不能写成 Else If。,例：
23、已知百分制成绩mark，显示对应的五级制成绩下列三种方法哪些正确，哪些错误？,：与同类型的下面四种形式之一：表达式 例：A 一组枚举表达式(用逗号分隔)2,4,6,8 表达式1 To 表达式2 60 To 100 Is 关系运算符表达式 Is 60,语句格式：Select Case 变量或表达式 Case 表达式列表1 语句块1 Case 表达式列表2 语句块2 Case Else 语句块n+1End Select,数值型或字符串表达式,Select Case语句(情况语句),程序流程图,变量strC中存放一个字符，判断该字符类型,例如：在输入成绩文本框中输入一个分数，单击“判断”命令按钮后，
24、在成绩等级文本框中显示对应的成绩等级。输入的成绩在90 100分为A，8089分为B，7079分为C，6069分为D，059分为E，否则显示出错信息。,注意：根据题意，当输入的成绩不在0，100内时，应显示出错信息，在该范围内时，应进行分等级。判断是否为合法成绩可用If语句，而分等级最好使用Select Case语句。,条件函数,IIf函数形式为：IIf（表达式，当表达式为True时的值，当表达式为False时的值）例如：求x，y中大的数，放入max变量中。max=IIf（x y，x，y）,循环结构,For Next循环 Do Loop循环,ForNext循环语句,ForNext循环结构：将一
25、段程序重复执行指定的次数，其中使用一个计数变量，统计执行的次数。格式：For 循环变量初值 to 终值 Step 步长 语句块 Exit For 语句块 Next 循环变量,注意,功能：执行For语句时，“循环变量”设为“初值”；执行到Next语句时，步长加（减）到循环变量上；再执行For语句时，若“循环变量”超过“终值”则循环结束。步长：未指定值时默认为1。若“步长”是正数或0，则“初值”应大于等于“终值”，否则，“初值”应小于等于“终值”。,例：计算累加程序 S=1+2+3+4.+x,并输出结果,方法：接收一个累加的终值，确定一个循环变量，循环变量有2个作用（加数和循环变量），确定一个存储
26、累加和的变量。使用循环计算，最后输出显示结果。Dim s As integer,x As integer x=InputBox(请输入累加的终值)For i=l To x s=s+i Next思考：计算=1+3+5+7X 或 2+4+6+8X 如何编写？,例：计算累乘程序 S=1*2*3*4X,方法：接收一个累乘的终值，确定一个循环变量，循环变量有2个作用（乘数和循环变量），确定一个存储累乘积的变量。使用循环计算，最后输出显示结果。Dim S As integer,i As integer x=InputBox(请输入累加的终值)S=1 For i=l To x S=S*i Next注意：累乘
27、的乘数和乘积变量的初值为1。,注意：出了循环，循环控制变量值的问题。例程序段：For i=2 To 13 Step 3 循环执行次数 debug.Print i 输出 i的值分别为:2 5 8 11 Next i debug.Print i 出了循环输出为:i=14,例:改变循环控制变量对循环的影响,Private Sub Command1_Click()j=0 For i=1 To 20 Step 2 i=i+3 j=j+1 Print 第;j;次循环i=;i Next i Print 退出循环后i=;i End Sub正常情况：i=1,3,5,7,9,11,13,15,17,19现在：i=
28、4,9,14,19,DoLoop循环语句,形式1：Do While|Until 语句块 Exit Do 语句块 Loop,形式2：Do 语句块 Exit Do 语句块Loop While|Until,DoLoop循环语句,DoLoop语句(循环结构),Do While Loop语句Do Until Loop语句Do Loop While语句Do Loop Until语句,Do While Loop语句,i=1 Do While i=10 s=s+i i=i+1 Loop 当i=10成立时，执行循环体循环变量i必须有初值防止产生死循环有可能一次也不执行循环体,修改循环控制变量，改变加数值,Do
29、Loop While,i=1 Do s=s+i i=i+1 Loop While i=10当i=10成立时，执行循环体循环变量i必须有初值防止产生死循环至少执行一次循环体,修改循环控制变量，改变加数值,Do Until Loop,i=1 Do Until i10 s=s+i i=i+1 Loop 当i10成立时，结束执行循环体循环变量i必须有初值防止产生死循环有可能一次也不执行循环体,修改循环控制变量，改变加数值,Do Loop Until,i=1 Do s=s+i i=i+1 Loop Until i10当i10成立时，结束执行循环体循环变量i必须有初值防止产生死循环至少执行一次循环体,修改
30、循环控制变量，改变加数值,补充：WhileWend语句,格式如下：While Wend说明：该语句的功能与Do While.Loop实现的循环完全相同。,注意,三种循环语句：即For、DoLoop，共同的特点是重复执行一个语句系列(循环体)，不同点是控制重复次数的时机和方法不一样。,数组,VBA程序流程控制,VBA常用语句,VBA编程基础,VBA概念,数组,5-1 数组的概念,数组：数组不是一种数据类型，而是一组相同类型的变量的集合。可以像使用普通变量一样使用数组中的每一个元素。使用数组的好处是用一个 数组名代表逻辑上相关的一批数据，用下标表示该数组中的各个元素，可以提高处理数据的效率，缩短和
31、简化程序。,5-2 数组的定义,数组不是一种数据类型，而是一组相同类型的变量的集合，数组必须先声明后使用。两类数组：静态(定长)数组、动态(可变长)数组 1.一维数组 定义一维数组的形式：Dim 数组名(下界 To上界)As 类型 声明了数组的名、维数、大小、类型,说明：,数组名的命名规则与变量的命名相同。数组的元素个数：上界-下界+1。缺省为0，若希望下标从1开始，可在模块的通用部分使用Option Base语句将设为1。其使用格式是：Option Base 0|1 后面的参数只能取0或1 例如：Option Base 1 将数组声明中缺省下标设为1和不能使用变量，必须是常量，常量可以是直接
32、常量、符号常量，一般是整型常量。,例：Dim mark(1 to 100)As Integer,例：Dim a(-1 to 3)As Integer声明一维数组a，包含了5个整型元素a(-1)、a(0)、a(1)、a(2)、a(3)；,如果省略As子句，则数组的类型为变体类型。数组中各元素在内存占一片连续的存储空间，一维数组在内存 中存放的顺序是按下标大小的顺序。,注意：,在定义静态数组时，每一维的元素个数必须是常数，不能是变量或表达式。如：错误的声明，下标是变量 Dim x(n)或：n=Inputbox(“输入n”）Dim x(n)As Single,在数组声明中的下标说明了数组的整体，即每
33、维的大小；而在程序其他地方出现的下标表示数组中的一个元素。两者写法形式相同，但意义不同。例如：Dim x(10)As Integer x(10)=100,表示声明了数组x，有11个数组元素,对x(10)这个数组元素赋值,5-3 二维数组,定义二维数组的形式：Dim 数组名(下界1 To上界1，下界2 To上界2)As 类型例如：Dim a(2,3)As Single 二维数组在内存的存放顺序是“先行后列”。数组a的各元素在内存中的存放顺序是：a(0,0)a(0,1)a(0,2)a(0,3)a(1,0)a(1,1)a(1,2)a(1,3)a(2,0)a(2,1)a(2,2)a(2,3),例：Di
34、m lArray(0 To 3，0 To 4)As Long 共有 45个元素等价于:Dim lArray(3，4)As Long,5-4 动态数组,动态数组指在声明数组时未给出数组的大小(省略括号中的下标)，当要使用它时，随时用ReDim语句重新指出数组大小。形式如下：ReDim 数组名(下标，下标2)As 类型 例：Private Sub S1()Dim x()As Single n=Inputbox(“输入n”）ReDim x(n)End Sub,说明,Dim、Static、Public 声明语句是说明性语句，可出现在过程内或通用声明段；ReDim语句是执行语句，只能出现在过程内；在过程
35、中可多次使用ReDim来改变数组元素的个数 ReDim中的下标可以是常量，也可以是有了确定值的变量。如：n=InputBox(“输入n的值”)ReDim Arr(n)静态数组在程序编译时分配存储单元，动态数组在运行时分配存储单元。,5-5 数组的基本操作,1.数组元素的引用一维数组元素的引用使用形式：数组名(下标)其中：下标可以是常量、整型变量或表达式。例如：设有下面的数组A(10)、B(10)As Integer 则下面的语句都是正确的。A(1)=B(2)+B(1)+5 取数组元素运算 A(i)=B(i)下标使用变量 A(i+2)=B(i+1)下标使用表达式注意：引用数组时不能下标越界,引用
36、二维数组的形式,数组名(下标1，下标2）下标1指定元素在二维表中所在的行，下标2指定元素在二维表中所在的列。例如：a(1,2)=10 a(i+2,j)a(2,3)*2 在程序中常常通过二重循环来操作使用二维数组元素。,数组引用实例,数组元素的输入,通过循环给数组元素的初值 For i=1 To 10 A数组的每个元素值为1 A(i)=1 Next i 数组的输入(通过InputBox()函数)For i=1 To 4 For j=1 To 5 sc(i,j)=InputBox(输入sc(&i&,&j&)的值)Next j Next i,5-6 自定义数据类型,用户自定义数据类型也称为记录数据类
37、型，它是在基本数据类型不能满足实际需要时，由用户以基本的数据类型为基础，按照一定的语法规则自定义而称的数据类型。自定义类型的定义 Type 自定义类型名 元素名(下标)As 类型名 元素名(下标)As 类型名 End Type,类型名：为标准类型元素名：表示自定义类 型中的一个成员下标：表示是数组,例如：以下定义了一个有关学生信息的自定义类型：Type Stud No As Integer 学号 Name As String*20 姓名 Sex As String*1 性别 Mark(1 To 4)As Single 4门课程成绩 Total As Single 总分 End Type,自定义
38、类型变量的声明和使用声明形式 Dim 变量名 As 自定义类型名 例：Dim Student As Stud 引用形式：变量名.元素名 例：表示Student变量中的姓名，第4门课程的成绩：Student.Name=“张三”Student.Mark(4)=70,VBA与宏,VBA与宏都是Excel的编程工具，编程时，可以在VBA代码中执行宏，也可以在宏操作中使用VBA代码。Excel能够自动将宏转换为 VBA的事件过程或模块，执行这些事件过程或模块的结果与运行宏的功能相同。,小结,本章主要介绍了VBA的编程环境；VBA中常量、变量、表达式、函数的使用；VBA中常用语句；VBA程序流程控制中顺序控制、选择控制、循环控制等三种结构，还介绍了数组的概念及应用，通过本章的学习应掌握VBA编程的基本方法，理解面向对象机制，熟悉可视化的编程环境，为使用VBA程序设计语言开发出功能强大的数据库应用程序打好基础。,
