第8章VBA程序设计概述

计算中心监制计算中心VBA程序设计概述计算中心VBA是VisualBasicforApplication的缩写，是MicrosoftOffice系列的内置编程语言，是非常流行的应用开发语言VB（VisualBasic）的一个分支，可供用户编写宏，对Office进行二次开发。计算中心宏与VBA定义：宏（Macro）是一组VBA语句。可以理解为一个程序段，或一个子程序。方法：直接用VBA代码编写，或通过录制形成。录制宏的实质：录制宏的过程，实际上就是将一系列操作过程记录下来并由系统自动转换为VBA语句计算中心例8-1，用第六章中介绍录制宏的方法，在Excel中创建一个名为“Test8_1”的宏，将工作表名“Sheet1”重命名为“VBAABC”。宏实际上就是一个简单的VBA的Sub过程，它保存在模块中，以Sub开头，以EndSub结尾，执行时就从第一条语句执行，直到EndSub结束计算中心VBA与VB与区别：（1）VB用于创建标准的应用程序，VBA是使已有的应用程序（Office）自动化。（2）VB具有自己的开发环境，VBA寄生于已有的应用程序（Office）。（3）VB开发出的应用程序可以是独立的可执行文件，而VBA开发的程序必须依赖Office。计算中心宏记录器存在的局限性：（1）录制的宏无判断或循环能力。（2）人机交互能力差，即用户无法输入，计算机无法给出提示。（3）无法显示对话框和自定义窗口。（4）记录了许多不需要的资料和步骤。计算中心VBA编辑环境-VBEVBA语言的开发环境就是VBE（VisualBasicEditor）窗口，用户可以在该窗口中实现VBA程序的编写。Word、Excel或PowerPoint等Office软件中都有VBE，以下主要在ExcelVBA编辑器中介绍OfficeVBA的基本概念和使用方法。计算中心打开VBE窗口1．记录一个宏，然后打开VBE窗口例8-2，通过录制宏的方法创建名为Test8_2的宏，完成向A1单元格中输入数字500的任务。（1）录制一个空白宏（2）编辑并输入宏指令Range(A1).Value=500计算中心2．命名一个宏，然后打开VBE窗口例8-3，通过命名宏的方法创建名为Test8_3的宏，设置单元格A1的文字属性为隶书、14号、加粗。（1）创建宏（2）输入代码计算中心SubTest8_3()WithRange(A1).Font.Name=隶书.Size=14.Bold=TrueEndWithEndSub计算中心3．在Office中直接打开VBE窗口打开VBE窗口的最常用方法是按Alt+F11快捷键，或在“开发工具”选项卡的“代码”组中，单击“VisualBasic”按钮。快捷键Alt+F11还可以从VBE窗口返回Excel。计算中心VBE窗口概述在默认状态下，VBE窗口主要由菜单栏、工具栏、工程窗口、对象属性窗口、代码窗口、立即窗口、本地窗口、对象浏览器、监视窗口等各种窗口组成。计算中心1．工程窗口在VBE工程窗口中，可以把每一个打开的Excel工作簿看作为一个工程，且工程的默认名称是“VBAProject（工作簿名称）”。一个新建的工作簿只包含Excel对象，每个工程可以包括插入的用户窗体、模块和类模块等。计算中心2．属性窗口属性窗口列出了所选对象的属性。属性窗口由“对象”列表框和“属性”列表组成，“对象”列表框列出了选中的对象名称及类型，“属性”列表列出了该对象的属性。计算中心3．代码窗口代码窗口主要用于输入、显示和编辑VBA代码。代码窗口由“对象”列表框、“过程”列表框及“边界”标识条等组成。计算中心4．立即窗口当在立即窗口中输入一行代码后，按Enter键可立即执行该代码5．本地窗口本地窗口可以看到运行过程中的对象、变量、数组的信息计算中心6．对象浏览器对象浏览器列出了各种库中的对象，以及每一对象的方法和属性。对象浏览器主要由“工程/库”列表框、“搜索文字”列表框、“类”列表、“成员”列表、“详细数据”框和若干工具按钮等组成。计算中心7．监视窗口监视窗口用于显示当前表达式的值、类型和上下文8．工具栏VBE界面中有“编辑”、“标准”、“调试”等多种工具栏，可通过“视图”菜单中的“工具栏”子菜单中的命令来控制这些工具栏的显示或隐藏。计算中心在VBE中编写宏例8-4，编写一个宏程序，计算所选工作表区域之和。SubTest8_4()DimrngCellASRangeDimiSumAsLongForEachrngCellInSelectionIfIsNumeric(rngCell.Value)TheniSum=iSum+rngCell.ValueEndIfNextMsgBox(Sumofselectedrangeis:&iSum)EndSub计算中心对象、属性、方法和事件1．对象对象就是存在的东西，是VBA处理的对象，如窗体、命令按钮、工作表、单元格等都是对象。Office各应用程序中有许多对象，Excel中的主要对象有如下四个：（1）Application对象。Application对象处于Excel对象层次结构的顶层，表示Excel自身的运行环境。计算中心（2）Workbook对象。Workbook对象直接地处于Application对象的下层，表示一个Excel工作薄文件。（3）Worksheet对象。Worksheet对象包含于Workbook对象，表示一个Excel工作表。（4）Range对象。Range对象包含于Worksheet对象，表示Excel工作表中的一个或多个单元格。计算中心在Excel中，对象的引用必须遵循从大到小的规则，如引用名称为“Mybook.xlsx”的工作簿时就是：Application.Workbooks(Mybook.xlsx)引用“Mybook.xlsx”中工作表“Mysheet”时应是：Application.Workbooks(Mybook.xls).Woksheets(Mysheet)引用“Mysheet”中的单元格区域“A1:D4”时应是：Application.Workbooks(Mybook.xls).Woksheets(Mysheet).Range(A1:D4)如果Mybook.xls工作簿是激活的，引用可以简化了为：Worksheets(Mysheet).Range(A1:D4)如果Mysheet当前也是激活的，引用还可以简化为：Range(A1:D4)。如果引用的单元Range是单个单元格，还可以用Cells(行号，列号)的引用方式。计算中心2．属性属性就是对象固定的特征。所有的对象，都有一组描述它们的属性。通过程序代码设置属性，其格式为：对象名.属性名称=属性值Textbox1.Text=欢迎使用VBAUserForm1.Caption=VBAABCCommand1.Visible=TruerngCell.Value=500计算中心3．方法方法就是要执行的动作，用于完成一定的操作，它实际上是执行VBA提供的特殊子程序。其调用格式为：[对象名称].方法名称例如：Debug.Print学习VBA表示使用Print方法在立即窗口中显示“学习VBA”。UserForm1.Show表示打开窗体UserForm1。方法功能主要应用对象Print打印文本立即窗口Move移动窗体或控件窗体或控件Show显示窗体窗体Hide隐藏窗体窗体Refresh重绘窗体或控件窗体或控件Setfocus将焦点移至指定的控件或窗体窗体或控件计算中心4．事件事件是指发生在对象上的一件事情，即能够被对象识别和响应的动作。VBA中的事件可分为系统事件和用户事件。系统事件是由系统触发的，例如，Load事件；用户事件是由用户触发的，例如，单击鼠标。事件动作Click单击鼠标左键DblClick双击鼠标左键Change控件的内容改变Initialize窗体初始化Activate成为活动窗体KeyPress、KeyDown、KeyUp键盘的按下和松开、按下、松开MouseDown、MouseUp鼠标按钮的按下、释放MouseMove移动鼠标计算中心事件过程当触发事件时，应用程序启动相应的程序模块来处理当前事件，这种程序模块称作为事件过程。PrivateSubForm1_Load()Form1.Caption=欢迎界面TextBox1.SetFocusEndSub计算中心用户窗体与控件用户窗体用户窗体（UserForm对象）是VBA中的一个对象，它表现出来的是一个窗口或对话框用于构成应用的用户界面，可以作为控件的容器。计算中心1．窗体的属性属性名称编码关键字说明标题Caption指定窗体标题栏中的文本名称Name指定窗体名称坐标Left、Top指定窗体左上角的水平、垂直坐标大小Height、Width指定窗体的高度与宽度有效Enabled确定窗体能否对用户的操作作出响应可见Visible确定窗体是否可见，如UserForm1.Visible=True字体Font设置窗体中显示文本的字体计算中心2．窗体的方法窗体的属性表示窗体的某种状态或样子，是静态的。而窗体的方法表示窗体可以执行的动作，是动态的。窗体的操作方法包括插入、显示与关闭等。计算中心显示窗体PublicSubDisplayWindows()UserForm1.ShowEndSub关闭窗体Unload窗体名计算中心3．窗体事件窗体事件是对窗体操作时而引起程序运行的动作。窗体事件主要有：Click（单击）事件、DblClick（事件）、Activate(激活)、Deactivate（失去激活）、Initialize（初始化）事件、QueryClose（关闭）事件等。计算中心例8-5，编写一个宏程序，当用户窗体载入时，在窗体标题栏中显示工作簿名称和工作表的个数PrivateSubUserForm_Initialize()DimstrName,strCountAsStringstrName=ActiveWorkbook.NamestrCount=Sheets.CountMe.Caption=strName&中有&strCount&个工作表EndSub计算中心控件控件是VBA中预先定义好的、程序中能够直接使用的对象。控件通常以图形形式放在控件“工具箱”中，可将控件放置在窗体上，与窗体共同组成用户界面。计算中心1．控件的基本操作控件的基本操作包括打开控件工具箱、将控件插入到窗体中、控件属性设置、控件的缩放和移动等。2．常用控件按钮名称功能标签在窗体中用其Caption属性对其他控件进行说明、变动显示文本文本框输入文本、显示查询或计算结果命令按钮执行、中断或停止程序的运行列表框显示一个项目列表，从中可以选择一项或多项组合框功能与列表框相似，区别是需要打开下拉列表才能显示多个项目单选按钮可以从一组项目中选取其中一个项目复选框与单选按钮不同，复选框可以从同一框架内选取多个图像显示固定的图像来美化窗体界面计算中心例8-6，设计如图8-20所示的个人信息输入表，并将输入结果保存到Excel工作表中对象名称属性值或说明标签lblInforCaption个人信息输入表标签lblNameCaption姓名：文本框txtNmae存放姓名文本框标签lblTitleCaption身份：组合框cmbTitle标签lblSexCaption性别：单选按钮optMaleCaption男单选按钮optFemaleCaption女标签lblFavoriteCaption爱好：复选框chkMusicCaption音乐复选框chkInternetCaption上网复选框chkSportCaption运动命令按钮cmdInputCaption输入命令按钮cmdQuitCaption退出计算中心窗体初始化代码：PrivateSubUserForm_Initialize()Me.Caption=信息输入cmbTitle.AddItem学生cmbTitle.AddItem教师cmbTitle.AddItem职员cmbTitle.AddItem其他