EXCEL编程必须知道的技巧.docx

上传人:b****8 文档编号:10361575 上传时间:2023-02-10 格式:DOCX 页数:92 大小:50.09KB
下载 相关 举报
EXCEL编程必须知道的技巧.docx_第1页
第1页 / 共92页
EXCEL编程必须知道的技巧.docx_第2页
第2页 / 共92页
EXCEL编程必须知道的技巧.docx_第3页
第3页 / 共92页
EXCEL编程必须知道的技巧.docx_第4页
第4页 / 共92页
EXCEL编程必须知道的技巧.docx_第5页
第5页 / 共92页
点击查看更多>>
下载资源
资源描述

EXCEL编程必须知道的技巧.docx

《EXCEL编程必须知道的技巧.docx》由会员分享,可在线阅读,更多相关《EXCEL编程必须知道的技巧.docx(92页珍藏版)》请在冰豆网上搜索。

EXCEL编程必须知道的技巧.docx

EXCEL编程必须知道的技巧

2006年9月7日http:

//fanjy.-1-

前言

很喜爱VBA,喜欢使用她对Excel操作实现所需的功能,更喜欢使用VBA控制Excel以及

实现结果后的那种感觉。

一直都想对ExcelVBA进行系统的整理和归纳,但由于对Excel及VBA了解得不够深入,

总觉得无从下手。

再加上又是利用少得可怜的业余时间进行学习,时断时续,学习的主线和

思路也经常因为工作或其它的事情而打断。

但喜欢学习的人总会挤得出时间来的,要想掌握

或者是精通一门知识和技术不能有任何借口。

幸运的是,有网络这个大平台,更有

ExcelHome众多网友的帮助和鼓励,这几个月,总算坚持了下来。

对Excel的痴迷没有停

留在头脑和心中,而是体现在了具体的行动以及积极的学习和参与上来,因此,收获很大,

感觉水平也有明显的提高。

现在,我计划利用点滴的业余时间,将基本的ExcelVBA操作用简短的实例进行演示,编辑

成《ExcelVBA编程入门范例》,以此对ExcelVBA基础知识进行一次归纳和整理,从而理

清学习ExcelVBA的线条,同时也希望能对热衷于Excel的朋友以及ExcelVBA初学者快速

了解和步入ExcelVBA编程殿堂有所帮助。

这是我第一次偿试对所学知识进行较大规模的整

理,希望大家能多提改进意见和建议,以利于改进和提高,也有助于以后的学习和编写出更

好的作品呈献给大家。

主要内容和特点

《ExcelVBA编程入门范例》主要是以一些基础而简短的VBA实例来对ExcelVBA中的常

用对象及其属性和方法进行讲解,包括应用程序对象、窗口、工作簿、工作表、单元格和单

元格区域、图表、数据透视表、形状、控件、菜单和工具栏、帮助助手、格式化操作、文件

操作、以及常用方法和函数及技巧等方面的应用示例。

这些例子都比较基础,很容易理解,

因而,很容易调试并得以实现,让您通过具体的实例来熟悉ExcelVBA编程。

■分16章共14个专题,以具体实例来对大多数常用的ExcelVBA对象进行讲解;

■一般而言,每个实例都很简短,用来说明使用VBA实现Excel某一功能的操作;

■各章内容主要是实例,即VBA代码,配以简短的说明,有些例子可能配以必要的图

片,以便于理解;

■您可以对这些实例进行扩充或组合,以实现您想要的功能或更复杂的操作。

VBE编辑器及VBA代码输入和调试的基本知识

在学习这些实例的过程中,最好自已动手将它们输入到VBE编辑器中调试运行,来查看它

们的结果。

当然,您可以偷赖,将它们复制/粘贴到代码编辑窗口后,进行调试运行。

下面,

对VBE编辑器界面进行介绍,并对VBA代码输入和调试的基本知识进行简单的讲解。

激活VBE编辑器

一般可以使用以下三种方式来打开VBE编辑器:

■使用工作表菜单“工具——宏——VisualBasic编辑器”命令,如图00-01所示;

■在VisualBasic工具栏上,按“VisualBasic编辑器”按钮,如图00-02所示;

ExcelVBA>>ExcelVBA编程入门范例>>前言(fanjy)

2006年9月7日http:

//fanjy.-2-

■按Alt+F11组合键。

图00-01:

选择菜单“工具——宏——VisualBasic编辑器”命令来打开VBE编辑器

图00-02:

选择VisualBasic工具栏上的“VisualBasic编辑器”命令按钮来打开VBE编辑器

此外,您也可以使用下面三种方式打开VBE编辑器:

■在任一工作表标签上单击鼠标右键,在弹出的菜单中选择“查看代码”,则可进入

VBE编辑器访问该工作表的代码模块,如图00-03所示;

■在工作簿窗口左上角的Excel图标上单击鼠标右键,在弹出的菜单中选择“查看代

码”,则可进入VBE编辑器访问活动工作簿的ThisWorkbook代码模块,如图00-04

所示;

■选择菜单“工具——宏——宏”命令打开宏对话框,若该工作簿中有宏程序,则单

击该对话框中的“编辑”按钮即可进行VBE编辑器代码模块,如图00-05所示。

ExcelVBA>>ExcelVBA编程入门范例>>前言(fanjy)

2006年9月7日http:

//fanjy.-3-

图00-03:

右击工作表标签弹出菜单并选择“查看代码”打开VBE编辑器

图00-04:

右击Excel图标弹出菜单并选择“查看代码”打开VBE编辑器

图00-05:

在宏对话框中单击“编辑”按钮打开VBE编辑器

VBE编辑器窗口简介

刚打开VBE编辑器时,所显示的窗口如图00-06所示,其中没有代码模块窗口。

ExcelVBA>>ExcelVBA编程入门范例>>前言(fanjy)

2006年9月7日http:

//fanjy.-4-

图00-06:

刚打开VBE编辑器时的窗口

可以在“工程资源管理器”中双击任一对象打开代码窗口,或者选择菜单“插入——模块”

或“插入——类模块”来打开代码窗口。

一般VBE编辑器窗口及各组成部件名称如图00-07

所示,可以通过“视图”菜单中的菜单项选择所出现的窗口。

同时,可以在“工程属性”窗

口中设置或修改相应对象的属性。

图00-07:

VBE编辑器窗口

下面是带有用户窗体的VBE编辑器窗口,如图00-08所示。

选择VBE菜单“插入——用

户窗体”,即可插入一个用户窗体。

当插入用户窗体后,在“工程资源管理器”窗口中会出

现一个用户窗体对象,“工程属性”窗口显示当前用户窗体的属性,可对相关属性进行设置

或修改。

同时,在用户窗体上用鼠标单击,会出现“控件工具箱”。

在“工程资源管理器”

窗口双击用户窗体图标,会出现相应的用户窗体;在用户窗体图标或者是在用户窗体上单击

鼠标右键,然后在弹出的菜单中选择“查看代码”,则会出现用户窗体代码窗口。

ExcelVBA>>ExcelVBA编程入门范例>>前言(fanjy)

2006年9月7日http:

//fanjy.-5-

图00-08:

VBE编辑器窗口(带有用户窗体)

在VBE编辑器中输入VBA代码

如前所述,您可以选择VBE菜单“插入——用户窗体/模块/类模块”来插入模块或用户窗

体以及相应的代码窗口。

此外,您也可以在“工程资源管理器”中单击鼠标右键,从弹出的

菜单中选择“插入——用户窗体/模块/类模块”来实现上面的操作。

在获取相应的代码模块

窗口后,就可以输入VBA代码了。

在VBE编辑器的代码模块中输入VBA代码,通常有以下几种方法:

■手工键盘输入;

■使用宏录制器,即选择菜单“工具——宏——录制新宏”命令,将所进行的操作自

动录制成宏代码;

■复制/粘贴代码,即将现有的代码复制后,粘贴到相应的代码模块中;

■导入代码模块,即在VBE编辑器中选择菜单“文件——导入文件”或在“工程资源

管理器”的任一对象上右击鼠标选择菜单“导入文件”,选择相应的代码文件导入。

如果不想要某个模块了,可以选择菜单“文件——移除模块”,也可以在相应的模块上单击

鼠标右键,从弹出的菜单中选择“移除模块”。

此时,会弹出一个警告框,询问在移除模块

前是否将其导出,可以根据需要进行选择。

也可以选择菜单“文件——导出文件”或在相应的模块上单击鼠标右键后,从弹出的菜单中

选择“导出文件”,将移除的模块保存在相应的文件夹中。

这样,以后可以对其进行导入,

从而加以利用。

调试VBA代码

在VBE编辑器的菜单中,有两项与调试运行有关的菜单项,即“调试”菜单和“运行”菜

ExcelVBA>>ExcelVBA编程入门范例>>前言(fanjy)

2006年9月7日http:

//fanjy.-6-

单,它们提供了各种调试和运行的手段。

在我现阶段进行代码调试时,常用到的有以下几个:

■逐语句。

可以按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>>ExcelVBA编程入门范例>>前言(fanjy)

2006年9月7日http:

//fanjy.-7-

参考资料

《ExcelVBA编程入门范例》参考或引用了以下书籍和资料:

(1)Excel2003高级VBA编程宝典

(2)Excel2003与VBA编程从入门到精通(中文版)

(3)巧学巧用Excel2003VBA与宏(中文版)

(4)ExcelVBA应用程序专业设计实用指南

(5)ExcelVBA应用开发与实例精讲

(6)一些网上资源

更多的信息

关于ExcelVBA的更多参考和学习资源,可以在上查找,有疑问也可

以在ExcelHome论坛中提问。

您也可以登录我的博客,上

面有很多Excel的学习资料。

同时,欢迎与我联系交流,我的e-mail是:

xhdsxfjy@。

“学习Excel,使用VBA对Excel进行控制操作是我很热衷的业余爱好之一。

”——fanjy

ExcelVBA>>ExcelVBA编程入门范例>>第一章Application对象(fanjy)

2006年9月9日http:

//fanjy.-1-

第一章Excel应用程序对象(Application对象)及其常用方法

基本操作应用示例

Application对象代表整个MicrosoftExcel应用程序,带有175个属性和52个方法,可以

设置整个应用程序的环境或配置应用程序。

示例01-01:

体验开/关屏幕更新(ScreenUpdating属性)

Sub关闭屏幕更新()

MsgBox"顺序切换工作表Sheet1→Sheet2→Sheet3→Sheet2,先开启屏幕更新,然后

关闭屏幕更新"

Worksheets

(1).Select

MsgBox"目前屏幕中显示工作表Sheet1"

Application.ScreenUpdating=True

Worksheets

(2).Select

MsgBox"显示Sheet2了吗?

"

Worksheets(3).Select

MsgBox"显示Sheet3了吗?

"

Worksheets

(2).Select

MsgBox"下面与前面执行的程序代码相同,但关闭屏幕更新功能"

Worksheets

(1).Select

MsgBox"目前屏幕中显示工作表Sheet1"&Chr(10)&"关屏屏幕更新功能"

Application.ScreenUpdating=False

Worksheets

(2).Select

MsgBox"显示Sheet2了吗?

"

Worksheets(3).Select

MsgBox"显示Sheet3了吗?

"

Worksheets

(2).Select

Application.ScreenUpdating=True

EndSub

示例说明:

ScreenUpdating属性用来控制屏幕更新。

当运行一个宏程序处理涉及到多个工

作表或单元格中的大量数据时,若没有关闭屏幕更新,则会占用CPU的处理时间,从而降

低程序的运行速度,而关闭该属性则可显著提高程序运行速度。

示例01-02:

使用状态栏(StatusBar属性)

SubtestStatusBar()

Application.DisplayStatusBar=True'开启状态栏显示

'赋值状态栏显示的文本

Application.StatusBar=""

EndSub

示例说明:

StatusBar属性用来指定显示在状态栏上的信息。

若不想再显示状态栏文本,可

使用Application.StatusBar=False语句关闭状态栏显示,也可以在程序开始将原先的状态

栏设置存储,如使用语句oldStatusBar=Application.DisplayStatusBar将状态栏原来的信息

存储在变量oldStatusBar,在程序运行完成或退出时,将变量重新赋值给状态栏,如使用语

句Application.DisplayStatusBar=oldStatusBar,以恢复状态栏原状。

ExcelVBA>>ExcelVBA编程入门范例>>第一章Application对象(fanjy)

2006年9月9日http:

//fanjy.-2-

示例01-03:

处理光标(Cursor属性)

SubViewCursors()

Application.Cursor=xlNorthwestArrow

MsgBox"您将使用箭头光标,切换到Excel界面查看光标形状"

Application.Cursor=xlIBeam

MsgBox"您将使用工形光标,切换到Excel界面查看光标形状"

Application.Cursor=xlWait

MsgBox"您将使用等待形光标,切换到Excel界面查看光标形状"

Application.Cursor=xlDefault

MsgBox"您已将光标恢复为缺省状态"

EndSub

示例01-04:

获取系统信息

SubGetSystemInfo()

MsgBox"Excel版本信息为:

"&Application.CalculationVersion

MsgBox"Excel当前允许使用的内存为:

"&Application.MemoryFree

MsgBox"Excel当前已使用的内存为:

"&Application.MemoryUsed

MsgBox"Excel可以使用的内存为:

"&Application.MemoryTotal

MsgBox"本机操作系统的名称和版本为:

"&Application.OperatingSystem

MsgBox"本产品所登记的组织名为:

"&Application.OrganizationName

MsgBox"当前用户名为:

"&Application.UserName

MsgBox"当前使用的Excel版本为:

"&Application.Version

EndSub

示例说明:

可以使用给UserName属性赋值以设置用户名称。

示例01-05:

退出复制/剪切模式(CutCopyMode属性)

SubexitCutCopyMode()

Application.CutCopyMode=False

EndSub

示例说明:

退出复制/剪切模式后,在程序运行时所进行的复制或剪切操作不会在原单元格

区域留下流动的虚框线。

需要提醒的是,在程序运行完后,应使用Application.CutCopyMode

#NAME?

示例01-06:

禁止弹出警告信息(DisplayAlerts属性)

SubtestAlertsDisplay()

Application.DisplayAlerts=False

EndSub

示例说明:

在程序运行过程中,有时由于Excel本身设置的原因,会弹出对话框,从而中断

程序的运行,您可以在程序之前加上Application.DisplayAlerts=False语句以禁止弹出这

些对话框而不影响程序正常运行。

需要注意的是,在程序运行结束前,应使DisplayAlerts

属性恢复为缺省状态,即使用语句Application.DisplayAlerts=True。

该属性的默认设置为

True,当将该属性设置为False时,Excel会使直接使用对话框中默认的选择,从而不会因

为弹出对话框而影响程序运行。

ExcelVBA>>ExcelVBA编程入门范例>>第一章Application对象(fanjy)

2006年9月9日http:

//fanjy.-3-

示例01-07:

将Excel全屏幕显示

SubtestFullScreen()

MsgBox"运行后将Excel的显示模式设置为全屏幕"

Application.DisplayFullScreen=True

MsgBox"恢复为原来的状态"

Application.DisplayFullScreen=False

EndSub

示例01-08:

Excel启动的文件夹路径

SubExcelStartfolder()

MsgBox"Excel启动的文件夹路径为:

"&Chr(10)&Application.StartupPath

EndSub

示例01-09:

打开最近使用过的文档

SubOpenRecentFiles()

MsgBox"显示最近使用过的第三个文件名,并打开该文件"

MsgBox"最近使用的第三个文件的名称为:

"&Application.RecentFiles(3).Name

Application.RecentFiles(3).Open

EndSub

示例01-10:

打开文件(FindFile方法)

SubFindFileOpen()

OnErrorResumeNext

MsgBox"请打开文件",vbOKOnly+vbInformation,"打开文件"

IfNotApplication.FindFileThen

MsgBox"文件未找到",vbOKOnly+vbInformation,"打开失败"

EndIf

EndSub

示例说明:

本示例将显示“打开”文件对话框,若用户未打开文件(即点击“取消”按钮),则会显

示“打开失败”信息框。

示例中使用了FindFile方法,用来显示“打开”对话框并让用户打开一

个文件。

如果成功打开一个新文件,则该值为True。

如果用户取消了操作并退出该对话框,

则该值为False。

示例01-11:

文件对话框操作(FileDialog属性)

SubUseFileDialogOpen()

DimlngCountAsLong

'开启"打开文件"对话框

WithApplication.FileDialog(msoFileDialogOpen)

.AllowMultiSelect=True

.Show

'显示所选的每个文件的路径

ForlngCount=1To.SelectedItems.Count

MsgBox.SelectedItems(lngCount)

NextlngCount

ExcelVBA>>ExcelVBA编程入门范例>>第一章Application对象(fanjy)

2006年9月9日http:

//fanjy.-4-

EndWith

EndSub

示例说明:

本示例显示“打开文件”对话框,当用户在其中选择一个或多个文件后,将依次

显示每个文件的路径。

其中,FileDialog属性返回打开和保存对话框中一系列对象的集合,

您可以对该集合对象的属性进行进一步的设置,如上例中的AllowMultiSelect属性设置为

True将允许用户选择多个文件。

示例01-12:

保存Excel的工作环境

Sub保存Excel的工作环境()

MsgBox"将Excel的工作环境保存到D:

\ExcelSample\中"

Application.SaveWorkspace"D:

\ExcelSample\Sample"

EndSub

示例说明:

运行本程序后,将工作簿以带后缀名.xlw保存到D盘的ExcelSample文件夹中,

生成的文件全名为Sample.xlw。

当改变工作簿并保存时,Excel会询问是覆盖原文件还是

保存副本。

示例01-13:

改变Excel工作簿名字(Caption属性)

SubSetCaption()

Application.Caption="MyExcelBook"

EndSub

示例说明:

运行本程序后,将工作簿左上角Excel图标右侧的“MicrosoftExcel”改为“My

ExcelBook”。

展开阅读全文
相关资源
猜你喜欢
相关搜索

当前位置:首页 > 解决方案 > 学习计划

copyright@ 2008-2022 冰豆网网站版权所有

经营许可证编号:鄂ICP备2022015515号-1