Excel编程实例(170例)

Excel编程示例(170例)主要内容和特点ExcelVBA编程入门范例主要涉及应用程序对象、窗口、工作簿、工作表、单元格区域、图表、透视表、形状、控件、菜单和工具栏、帮助助手、格式操作、文件操作、常用方法和函数根据一些基本的简单VBA实例，介绍ExcelVBA的常见对象及其属性和方法。 这些示例是基本的和易于理解的，因此调试很容易实现，因此您可以通过具体示例熟悉ExcelVBA编程。分16章共有14个主题，说明具体实例中常用的ExcelVBA对象一般来说，为了说明使用VBA实现Excel的某个功能的操作，各实例都变短了各章的内容主要是实例，即VBA代码，通过简单的说明，有些例子为了易于理解，可能附上了必要的照片可以扩展或组合这些实例，实现必要的功能和复杂的操作。输入和调试VBE编辑器和VBA代码的基础知识学习这些实例时，建议您在VBE编辑器中手动输入调试运行以查看结果。 当然，也可以进行非法操作，然后将其复制/粘贴到代码编辑窗口中以执行调试。 介绍VBE编辑器界面，并简要介绍VBA代码的输入和调试的基本知识。激活VBE编辑器VBE编辑器通常可以通过以下三种方式打开如图00-01所示，使用工作表菜单“工具宏Visual Basic编辑器”命令在visualbasic工具栏中，如图00-02所示，按下“visualbasic编辑器”按钮按Alt F11键。图00-01 :选择菜单“工具宏Visual Basic编辑器”命令打开VBE编辑器图00-02 :选择visual basic工具栏上的“visualbasiceditor”命令按钮以打开VBE编辑器您也可以使用以下三种方式打开VBE编辑器右键单击其中一个工作表选项卡，然后从弹出式菜单中选择“显示代码”，可以访问VBE编辑器以访问该工作表的代码模块，如图00-03所示右键单击工作簿窗口左上角的Excel图标，然后从弹出式菜单中选择“查看代码”以访问VBE编辑器中活动工作簿的ThisWorkbook代码模块选择菜单“工具宏宏”命令打开宏对话框，如果该工作簿中有宏程序，则单击该对话框的“编辑”按钮，可以获得VBE编辑器的代码模块，如图00-05所示。图00-03 :右键单击图纸标签弹出菜单，然后选择“显示代码”以打开VBE编辑器图00-04 :右键单击excel图标弹出菜单，然后选择“显示代码”以打开VBE编辑器图00-05 :在宏对话框中，单击“编辑”按钮打开VBE编辑器VBE编辑器窗口概述打开VBE编辑器时，显示的窗口类似于图00-06，没有代码模块窗口。图00-06 :打开vbe编辑器后的窗口您可以在工程资源管理员中连按两下任何物件以开启程式码视窗，或选择功能表插入模组或插入类别模组以开启程式码视窗。 通常的VBE编辑器窗口和每个组件名称都可以从“视图”菜单项中选择显示的窗口，如图00-07所示。 也可以在“工程属性”窗口中设置或修改相应对象的属性。图00-07:VBE编辑器窗口以下是包含用户表单的VBE编辑器窗口，如图00-08所示。 可以通过选择VBE菜单“插入用户表单”来插入用户表单。 插入使用者表单时，专案总管视窗会显示使用者表单的物件，专案属性视窗会显示目前使用者表单的属性，您可以在其中设定或修改相关的属性。 此外，在用户表单上单击鼠标可显示“控制工具箱”。 在“项目资源管理器”窗口中双击用户表单图标以显示相应的用户表单。右键单击用户表单图标或用户表单，然后从弹出式菜单中选择“显示代码”以显示用户表单图00-08:VBE编辑器窗口(带用户表单)在VBE编辑器中输入VBA代码如上所述，可以通过选择VBE菜单“用户表单”“模块”“插入类模块”来插入模块或用户表单及其对应的代码窗口。 或者，也可以在“项目资源管理器”中单击鼠标右键，然后从弹出式菜单中选择“用户表单”“模块”“插入类模块”来执行上述操作。 获取相应的代码模块窗口后，可以输入VBA代码。在VBE编辑器的代码模块中输入VBA代码通常有以下方法手动键盘输入使用宏记录器选择菜单“工具记录宏新宏”命令，将所做的操作自动记录到宏代码中复制/粘贴现有代码，然后将其粘贴到相应的代码模块中在VBE编辑器中，从菜单中选择“文件导入文件”，或者右键单击“工程资源管理器”中的某个对象，从菜单中选择“导入文件”，然后导入相应的代码文件如果不需要模块，请从菜单中选择“删除文件模块”，或者右键单击该模块，然后从弹出式菜单中选择“删除模块”。 出现一个警告框，提示您在卸下模块之前是否要导出模块，您可以根据需要进行选择。也可以从菜单中选择“导出文件”，或者右键单击相应的模块，然后从弹出式菜单中选择“导出文件”，将删除的模块保存到相应的文件夹中。 这样，之后就可以导入那个并加以利用了。调试VBA代码VBE编辑器菜单包含两个与调试运行相关的菜单项：“调试”菜单和“运行”菜单，提供了各种调试和运行方法。 我在现阶段进行代码调试时，经常使用的是以下这些逐字。 按F8键可逐一执行代码，以查找语句或逻辑错误。设定中断点。 在可能出现问题的语句中设置断点(单击相应代码前面的空白部分可显示深红色椭圆或断点)。 当程序运行到断点时，执行将中止。将Debug.Print语句设置为语句的适当位置后，结果将显示在“立即窗口”中，您可以测试和跟踪变量的值。在即时窗口进行测试。 测试值和跟踪值是“？首先，在“立即”窗口中键入用于测试值的语句，然后按Enter键立即显示结果。直接在“立即”窗口中键入执行语句，然后按Enter键执行测试。按f 5键，可直接执行光标位置的子程序。运行程序后，必须在Excel工作表中显示结果。 您可以用鼠标单击VBE编辑器左上角的Excel图标或按Alt F11键切换到Excel接口。(当然，调试程序代码有很多方法和技术，我们将进一步研究和理解VBA。 中所述情节，对概念设计中的量体体积进行分析VBA帮助系统的应用如果有疑问或错误，可以使用Excel随附的VBA帮助系统。可以在图00-09那样的位置输入需要帮助的关键字，按Enter键显示相关主题。 用鼠标单击相应的主题可查看详细的帮助信息。图00-09 :帮助搜索窗口按f 2键打开“对象浏览器”窗口(图00-10 )，在搜索文本框中输入需要帮助的关键字后，显示与“搜索结果”相关的对象和方法、属性列表。 单击相应的对象可以在“类”和“成员”列表框中显示相应的对象和方法以及属性成员列表，在成员列表的相应项目中按F1键可以查看详细的帮助信息。 “对象浏览器”是一个很好的帮助工具，值得仔细研究图00-10 :对象浏览器窗口参考资料ExcelVBA编程入门范例见下面的书和资料(1)Excel 2003高级VBA编程宝典(2)从2)Excel 2003和VBA编程入门开始熟练(中文版)巧用(Excel 2003 VBA和宏(中文版)(4)ExcelVBA应用专业设计实用程序指南(5)ExcelVBA的应用开发和实例的讲义(六)部分在线资源详细信息有关ExcelVBA的详细参考和学习资源，可以在www.ExcelH上搜索，如有疑问，也可以在excelhome论坛上提问。 也可以登录博客http:/fanjy.blog.E。 我有很多excel的学习资料。 还有，欢迎与我联系。 我的电子邮件是。“学习Excel，使用VBA控制Excel，是我最喜欢的业馀爱好之一。”fanjy Excel应用程序对象(应用程序对象)及其常用方法基本操作的应用示例分类：ExcelVBAExcelVBA编程入门示例Application对象代表整个Microsoft Excel应用程序，具有175个属性和52个方法，用于设置整个应用程序环境和设置应用程序。示例01-01 :体验屏幕更新(屏幕更新属性)关闭Sub画面的更新()依次切换MsgBox 工作表Sheet1Sheet2Sheet3Sheet2，打开屏幕更新，然后关闭屏幕更新Worksheets(1).SelectMsgBox 在当前画面中显示工作表Sheet1application.screen updating=trueWorksheets(2).SelectMsgBox 显示Sheet2了吗？ Worksheets(3).SelectMsgBox 显示了Sheet3吗？ Worksheets(2).SelectMsgBox 以下与之前执行的程序代码相同，但关闭画面更新功能Worksheets(1).SelectMsgBox 在当前画面中显示工作表Sheet1 Chr(10 ) 画面更新功能application.screen updating=falseWorksheets(2).SelectMsgBox 显示Sheet2了吗？ Worksheets(3).SelectMsgBox 显示了Sheet3吗？ Worksheets(2).Selectapplication.screen updating=true日本职业足球联赛示例：屏幕更新属性用于控制屏幕更新。 运行宏程序处理多个工作表或单元格中的大量数据时，如果不关闭画面更新，则需要CPU处理时间，程序执行速度会下降。 关闭此属性可显着提高程序的运行速度。示例01-02 :使用状态栏(StatusBar属性)子测试状态栏()打开application.display status bar=true状态栏的显示指派项状态列中显示的文字application.status bar= http:/fanjy.blog.excel 日本职业足球联赛示例： StatusBar属性指定状态栏中显示的信息。 如果不希望显示状态栏中的文本，请使用Application.StatusBar=False语句关闭状态栏的显示，或者在程序启动时保存原始状态栏的设置。 使用oldstatusbar=application.display status bar语句将状态栏中的原始信息保存到变量old status bar。程序完成或完成运行时，将显示application.display status bar示例01-03 :光标处理(Cursor属性)Sub ViewCursors ()application.cursor=xlnorhwestarrow使用MsgBox 箭头光标切换到Excel界面以显示光标形状Application.Cursor=xlIBeam使用MsgBox 工作光标切换到Excel界面以显示光标形状Application.Cursor=xlWait使用MsgBox 等待型光标切换到Excel接口，显示光标形状Application.Cursor=xlDefault已将MsgBox游标恢复为默认状态日本职业足球联赛例01-04 :获取系统信息子获取系统信息()MsgBox Excel的版本信息为： application.calculation versionMsgBox Excel当前可用的内存是： Application.MemoryFreeMsgBox Excel当前使用的内存是： Application.MemoryUsedMsgBox Excel的可用内存是： Application.MemoryTotalMsgBox本机操作系统的名称和版本为： application.operating systemMsgBox 本产品中注册的组织名称为： anization nameMsgBox 当前用户名为： Application.UserNameMsgBox 当前使用的Excel版本是： Application.Version日本职业足球联赛示例：可以使用分配给UserName属性的用户名设置用户名。示例01-05 :退出复制/剪切模式(CutCopyMode属性)Sub