ExcelVBA编程实例大全Word下载.doc
《ExcelVBA编程实例大全Word下载.doc》由会员分享,可在线阅读,更多相关《ExcelVBA编程实例大全Word下载.doc(74页珍藏版)》请在冰豆网上搜索。
![ExcelVBA编程实例大全Word下载.doc](https://file1.bdocx.com/fileroot1/2022-10/7/aaedf5dd-ebf0-4257-8db0-67df061ee677/aaedf5dd-ebf0-4257-8db0-67df061ee6771.gif)
此外,您也可以使用下面三种方式打开VBE编辑器:
■在任一工作表标签上单击鼠标右键,在弹出的菜单中选择“查看代码”,则可进入VBE编辑器访问该工作表的代码模块,如图00-03所示;
■在工作簿窗口左上角的Excel图标上单击鼠标右键,在弹出的菜单中选择“查看代码”,则可进入VBE编辑器访问活动工作簿的ThisWorkbook代码模块,如图00-04所示;
■选择菜单“工具——宏——宏”命令打开宏对话框,若该工作簿中有宏程序,则单击该对话框中的“编辑”按钮即可进行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回车键后将执行。
■可以按F5键直接运行光标所在位置的子程序。
在执行程序后,必须在Excel工作表中查看所得到的结果。
可以用鼠标单击VBE编辑器左上角的Excel图标或者是按Alt+F11组合键切换到Excel界面。
(当然,对程序代码的调试有很多方法和技巧,留待以后对VBA进一步研究和理解更透彻后一并讨论。
)
利用VBA帮助系统
如果遇到疑问或错误,可以利用Excel自带的VBA帮助系统。
■可以在如图00-09所示的部位输入需要帮助的关键词,按Enter回车键后将会出现相关主题。
用鼠标单击相应的主题即会出现详细的帮助信息。
图00-09:
帮助搜索窗口
■可以按F2键,调出“对象浏览器”窗口(如图00-10所示),在搜索文本框中输入需要帮助的关键词,将会在“搜索结果”中出现一系列相关的对象及方法、属性列表,单击相应的对象则会在“类”和“成员”列表框中显示相应的对象和方法、属性成员列表,在成员列表中相应的项目上按F1键即会出现详细的帮助信息。
(“对象浏览器”是一个很好的帮助工具,值得好好研究)
图00-10:
对象浏览器窗口
参考资料
《ExcelVBA编程入门范例》参考或引用了以下书籍和资料:
(1)Excel2003高级VBA编程宝典
(2)Excel2003与VBA编程从入门到精通(中文版)
(3)巧学巧用Excel2003VBA与宏(中文版)
(4)ExcelVBA应用程序专业设计实用指南
(5)ExcelVBA应用开发与实例精讲
(6)一些网上资源
更多的信息
关于ExcelVBA的更多参考和学习资源,可以在上查找,有疑问也可以在ExcelHome论坛中提问。
您也可以登录我的博客,上面有很多Excel的学习资料。
同时,欢迎与我联系交流,我的e-mail是:
xhdsxfjy@。
“学习Excel,使用VBA对Excel进行控制操作是我很热衷的业余爱好之一。
”——fanjy
第一章Excel应用程序对象(Application对象)及其常用方法
基本操作应用示例
分类:
ExcelVBA>
>
ExcelVBA编程入门范例
Application对象代表整个MicrosoftExcel应用程序,带有175个属性和52个方法,可以设置整个应用程序的环境或配置应用程序。
示例01-01:
体验开/关屏幕更新(ScreenUpdating属性)
Sub关闭屏幕更新()
MsgBox"
顺序切换工作表Sheet1→Sheet2→Sheet3→Sheet2,先开启屏幕更新,然后关闭屏幕更新"
Worksheets
(1).Select
目前屏幕中显示工作表Sheet1"
Application.ScreenUpdating=True
Worksheets
(2).Select
显示Sheet2了吗?
"
Worksheets(3).Select
显示Sheet3了吗?
下面与前面执行的程序代码相同,但关闭屏幕更新功能"
&
Chr(10)&
"
关屏屏幕更新功能"
Application.ScreenUpdating=False
EndSub
示例说明:
ScreenUpdating属性用来控制屏幕更新。
当运行一个宏程序处理涉及到多个工作表或单元格中的大量数据时,若没有关闭屏幕更新,则会占用CPU的处理时间,从而降低程序的运行速度,而关闭该属性则可显著提高程序运行速度。
示例01-02:
使用状态栏(StatusBar属性)
SubtestStatusBar()
Application.DisplayStatusBar=True'
开启状态栏显示
'
赋值状态栏显示的文本
Application.StatusBar="
StatusBar属性用来指定显示在状态栏上的信息。
若不想再显示状态栏文本,可使用Application.StatusBar=False语句关闭状态栏显示,也可以在程序开始将原先的状态栏设置存储,如使用语句oldStatusBar=Application.DisplayStatusBar将状态栏原来的信息存储在变量oldStatusBar,在程序运行完成或退出时,将变量重新赋值给状态栏,如使用语句Application.DisplayStatusBar=oldStatusBar,以恢复状态栏原状。
示例01-03:
处理光标(Cursor属性)
SubViewCursors()
Application.Cursor=xlNorthwestArrow
您将使用箭头光标,切换到Excel界面查看光标形状"
Application.Cursor=xlIBeam
您将使用工形光标,切换到Excel界面查看光标形状"
Application.Cursor=xlWait
您将使用等待形光标,切换到Excel界面查看光标形状"
Application.Cursor=xlDefault
您已将光标恢复为缺省状态"
示例01-04:
获取系统信息
SubGetSystemInfo()
Excel版本信息为:
Application.CalculationVersion
Excel当前允许使用的内存为:
Application.MemoryFree
E