VBA教程(基础入门)

, 書式設定,第,2,第,3,第,4,第,5,*, 書式設定,VBA,简易教程,直到,90,年代早期,使应用程序自动化还是充满挑战性的领域,.,对每个需要自动化的应用程序,人们不得不学习,一种不同的自动化语言,.,例如,:,可以用,EXCEL,的宏语言来使,EXCEL,自动化,使用,WORD,BASIC,使,WORD,自动化,等等,.,微软决定让它开发出来的应用程序共享一种通用的自动化语言,-Visual,Basic,For,Application(VBA),可以认为,VBA,是非常流行的应用程序开发语言,VASUAL,BASIC,的子集,.,实际上,VBA,是,“,寄生于,”,VB,应用程序的版本,.VBA,和,VB,的区别包括如下几个方面,:,1.,VB,是设计用于创建标准的应用程序,而,VBA,是使已有的应用程序,(EXCEL,等,),自动化,2.,VB,具有自己的开发环境,而,VBA,必须寄生于已有的应用程序,.,3.,要运行,VB,开发的应用程序,用户不必安装,VB,因为,VB,开发出的应用程序是可执行文件,(*.EXE),而,VBA,开发的程序必须依赖于它的,“,父,”,应用程序,例如,EXCEL.,尽管存在这些不同,VBA,和,VB,在结构上仍然十分相似,.,事实上,如果你已经了解了,VB,会发现学习,VBA,非常快,.,VBA,究竟是什么,?,更确切地讲,它是一种自动化语言,它可以使常用的程序自动化,可以创建自定义的解决方案,.,VBA,是什么,EXCEL,环境中基于应用程序自动化的优点,也许你想知道,VBA,可以干什么,?,使用,VBA,可以实现的功能包括,:,使重复的任务自动化,自定义,EXCEL,工具栏,菜单和界面,简化模板的使用,自定义,EXCEL,使其,成为开发平台,创建报表,对数据进行复杂的,操作和分析,EXCEL,环境中基于应用程序自动化的优点,用,EXCEL,作为开发平台有如下原因,:,EXCEL,本身功能强大,包括打印,文件处理,格式化和文本编辑,EXCEL,内置大量函数,EXCEL,界面熟悉,可连接到多种数据库,录制简单的宏,在介绍学习,VBA,之前，应该花几分钟录制一个宏。,新术语：“宏”，指一系列,EXCEL,能够执行的,VBA,语句。 以下将要录制的宏非常简单，只是改变单元格颜色。请完成如下步骤：,打开新工作簿，确认其他工作簿已经关闭。,选择,A1,单元格。调出,“,常用,”,工具栏。,选择,“,工具,”,“,宏,”,“,录制新宏,”,。,输入,“,改变颜色,”,作为宏名替换默认宏名，单击确定。,选择,“,格式,”,的,“,单元格,”,，选择,“,图案,”,选项中的红色,单击,“,确定,”,。,单击,“,停止录制,”,工具栏按钮，结束宏录制过程。,宏名最多可为,255,个字符，并且必须以字母,开始。其中可用的字符,包括：字母、数字和,下划线。,执行宏,选择任何一个,单元格，比如,A3,选择“工具”,“,宏”,“,宏”，显示“宏”对话框,选择“改变颜色”，,选择“执行”，则,A3,单,元格的颜色变为,红色,当执行一个宏时，,EXCEL,按照宏语句执行的情况就像,VBA,代码在对,EXCEL,进行,“,遥控,”,。但,VBA,的,“,遥控,”,不仅能使操作变得简便，还能使你获得一些使用,EXCEL,标准命令所无法实现的功能。而且，一旦熟悉了,EXCEL,的,“,遥控,”,，你都会,奇怪自己在没有这些,“,遥控,”,的情况下,，到底是怎么熬过来的。要,执行刚才,录制的宏，可以按以下步骤进行：,试着选择其它单元格和几个单元格组成的区域，然后再执行宏，以便加深印象。,查看录制的代码,“改变颜色”是,宏的名称,注意：有一小圆点，它的作用在于简化语句，小圆点代替出现在,With,后的词,它是,With,结构的一部分。,Sub,改变颜色,() ,改变颜色,Macro xw,记录的宏,2000-6-10 WithSelection.Interior .ColorIndex=3 .Pattern=xlSolid .PatternColorIndex=xlAutomatic EndWith EndSub,到底是什么在控制,EXCEL,的运行呢,?,你可能有些疑惑,.,好,让我们看看,VBA,的语句吧,.,编辑录制的代码,Sub,改变颜色,() ,改变颜色,Macro ,xw,记录的宏,2000-6-10 With,Selection.Interior .ColorIndex,=,3 End,With End,Sub,在上一节，我们录制了一个宏并查看了代码，代码中有两句实际上,并不起作用。哪两句？,现在，在宏中作一个修改，删除多余行，直到和下面代码相同：,完成后，在工作表中试验一下。,你会发现结果和修改前的状况一样。,在,With,语句前加入一行,: Range(,“,A5,”,).Select,试着运行该宏,则无论开始选择,哪个单元格,宏运行结果都是使,A5,单元格变红,.,录制宏的局限性,录制的宏无判断或循环能力,人机交互能力差,即用户无法,进行输入,计算机无法给出提示,无法显示,EXCEL,对话框,无法显示自定义窗体,希望自动化的许多,EXCEL,过程大多都可以用录制宏来完成,.,但是宏记录器存在以下局限性,.,通过宏记录器无法完成的工作有,:,为宏指定快捷键,你也许希望为经常使用的宏指定快捷键。当给宏指定了快捷键后，,就可以用快捷键来执行宏，而不必通过,“,工具,”,菜单。,注意：当包含宏的工作簿打开时间，,为宏指定快捷键会覆盖,EXCEL,默认的快捷键。,例如：把,CTRL+C,指定,给某个宏，那么,CTRL+C,就不再执行复制命令。,可以在创建宏时指定快捷键，也可以在创建后再指定。,要在创建（录制）宏时指定快捷键，只须在录制宏时,在输入宏名后，在,“,快捷键,”,文本框中输入相应的键。,录制宏后指定快捷键也很简单，只需选择,“,工具,”,-,“,宏,”,，显示,“,宏,”,对话框，选择要指定快捷键的宏，再单击,“,选项,”,按钮，通过,“,选项,”,对话框进行设置。,决定宏保存的位置,宏可保存在三种可能的位置：,1,）当前工作簿。（只有该工作簿打开时，该宏才可用。）,2,）新工作簿。,3,）个人宏工作簿。,个人宏工作簿,个人宏工作簿，是为宏而设计的一种特殊的具有自动隐藏特性的工作簿。,第一次将宏创建到个人宏,工作簿时，会创建名为,“,PERSONAL.XLS”,的,新文件。,如果该文件存在，则每当,EXCEL,启动时会自动将此文件打开,并隐藏在活动工作簿后面,如果你要让某个宏在多个工作簿,都能使用，那么就应当创建,个人宏工作簿，,并将宏保存于其中。,个人宏工作簿保存在,“,XLSTART,”,文件夹中。,具体路径为：,C:WINDOWSProfilesApplication,Data,MicrosoftExcelXLSTART,。,个人宏工作簿,试着练习一下保存一个简单,的宏到个人宏工作簿,该宏为文本加下划线并改为斜体,步骤如下,:,1,）,建立一个名为,“,HOUR2,”,的工作簿，选择,“,工具,”,-,“,宏,”,-,“,录制新宏,”,显示,“,录制新宏,”,对话框,。,2,）输入,“,格式化文本,”,作为宏名。,3,）从,“,保存在,”,下拉框中选择,“,个人宏工作簿,”,。,4,）,单击,“,确定,”,按钮,.,现在进入录制模式,。,5,）,单击,“,斜体,”,工具栏按钮,.,一段时间内,鼠标出现沙漏,特别是在第一次创建个人宏工作簿时,因为,EXCEL,在创建该工作簿,。,6,）,单击,“,下划线,”,按钮,。,7,）,停止录制,。,使用并编辑个人宏工作簿中的宏,刚才已经保存了一个宏到个人宏工作簿,现在可以在任何工作簿中使用该宏,.,可按如下步骤操作,:,现在,A3,单元格中，你的名字变为斜体字还带有下划线。,选择,“,窗口,”,-,“,取消隐藏,”,，可以将,PERSONAL.XLS,显示出来，通过,VBA,编辑器可以在其中的模块中找到,“,格式化文本,”,这个宏。在,VBA,编辑器中可以对该宏进行直接编辑或者删除。,关闭所有,EXCEL,工作簿,任意打开一个,EXCEL,文件,（,EXCEL,自动将个人宏工作簿同时打开并隐藏）,在,A3,中输入您的名字,选择,“,工具,”,-,“,宏,”,，显示宏对话框，现在,可以在宏列表中看到,“,格式化文本,”,这个宏。,选择,“,格式化文本,”,宏，并执行,将宏指定给按钮,“,按钮,”,是最常见的界面组成元素之一,.,通过使用,“,窗体,”,工具栏，可以为工作簿中的工作表添加按钮。在创建完一个按钮后，可以为它指定宏，然后你的用户就可以通过单击按钮来执行宏。在本练习中，将创建一个按钮，并为它指定一个宏，然后用该按钮来执行宏。具体步骤如下：,打开,“,HOUR2,”,工作簿,调出”窗体“工具栏,单击”窗体“工具栏,中的“按钮”控件,在希望放置按钮的,位置按下鼠标左键，,拖动鼠标画出一个,矩形,在,Excel,自动出现的“指,定宏”对话框中，选择“格式化,文本”，单击“确定”,试着在某个单,元格中输入文,本，单击按钮,运行该宏,将宏指定给图片或其他对象,要执行宏有多种方法可以选择，可以将宏指定给按钮等控件，还可以指定给图片、自定义工具栏、窗体甚至可以将宏指定给某个,“,事件,”,，比如单击工作表，双击工,作表，激活工作表，打开工作簿等等，,“,事件,”,是一个重要的概念，除此而外,“,方法,”“,对象,”,都是将来你会经常接触到的。,指定宏到图片十分简单，只需单击某个图片，单击快捷菜单中的,“,指定宏,”,进行设置即可。,如果不希望在工作表上添加控件或图片执行宏，还有一种方法可以选择：将宏指定给,“,工具栏按钮,”,，可按如下步骤进,行：,打开,“,HOUR2,”,工作簿，选择,“,工具,”,-,“,定义,”,，显示,“,自定义,工具栏,”,对话框,从“类别”列表框中选择“宏”，,从“命令”列表框中选择,“自定义按钮”。,将“自定义按钮”拖动,到工具栏,右键单击该按钮，选择,“指定宏”，显示“指定,宏”对话框,选择“格式化文,本”并确定,单击“关闭”按钮，,关闭“自定义工具,栏”对话框,试着在某,个单元格,中输入文,本，单击,工具栏按,钮运行该,宏,EXCEL,开发过程简介,需要对以下问题有个大致的概念,.,谁使用,这决定了程序的操作,难度及界面感观,数据来源和保存在哪里,这决定了程序的结构,如何操作,这将决定程序的,界面和细节,数据处理的结果,最终决定程序的价值,认识不同的控件,标签,用于表现静态文本,分组框,用于将其他控件进行组合,按钮,用于执行宏命令,复选框,是一个选择控件，通过单击可以选择和取消选择，可以多项选择,。,选项按钮,通常几个选项按钮组合在一起使用，在一组中只能选择一个选项按钮。,列表框,用于显示多个选项并从中选择。只能单选。,组合框,用于显示多个选项并从中选择。可以选择其中的项目或者输入一个其它值。,滚动条,不是你常见的来给很长的窗体添加滚动能力的控件，而是一种选择机制。例如调节过渡色的滚动条控件。包括水平滚动条和垂直滚动条。,微调控件,也是一种数值选择机制，通过单击控件的箭头来选择数值。例如改变,Windows,日期或时间就会使用到微调控件。,开始时请关闭所有工作簿,打开一个新工作簿并另存为,“,HOUR3,”,.,在工具栏上单击鼠标右键,从快捷菜单中选择,“,窗体,”,显示,“,窗体,”,工具栏,.,其中有,16,个控件，只有,9,个可放到工作表内。,向工作表添加控件,创建新工作簿并另存为“,HOUR3”,显示“窗体”工具栏,。,选择“标签”控件,。,将鼠标定位到,E1,此时鼠标变成小十字,。,按下左键,拖动大约四个单元格长度,放开鼠标左键,.,如果希望控件大小易于控制,可在创建该控件时按下,ALT,拖动,。,在标签,1,上单击右键,选择,编辑文字,现在可以输入文字,.,完成后,单击任何单元格退出文字编辑,。,通过以上步骤可以添加其它控件到工作表中,不再赘述,。,用,EXCEL,设计界面十分简单,要将控件添加到工作表上,可以按以下步骤操作,:,设置控件的特性,设置控件的特性,可以按以下步骤操作,:,选中先前创建的复选框控件,如果没有马上创建一个,.,右击该控件,选择,控制,选项卡,.,在,单元格链接,中输入,A1,并确定,.,单击任意单元格,退出设置,.,用鼠标左键单击复选框,A1,出现,TRUE,这意味着该控件被选中,.,再次单击,该控件,A1,出现,FALSE.,选择刚才创建的滚动条控件,.,并调出,设置控件格式,对话框,.,在,单元格链接,中输入,A3,并确定,.,在滚动条外任意单元格单击鼠标左键,使滚动条不被选择,.,用鼠标单击滚动条上的箭头,则,A1,的数值增加,1,继续单击则,A1,的数值继,续增加,.,保存并关闭该工作簿,.,给控件命名,使用用户窗体,当创建一个控件时,EXCEL,会自动给它指定一个名字,但不便于理解和记忆,为控件取名的方法基本和给单元格或区域取名的方法相同,.,选中某个控件,再在位于公式栏上的,“,名字,”,编辑框输入控件名字,.,这样就给控件更改了名字,。,如果希望创建专业级的应用程序,并且方便用户输入数据,那么应该使用用户窗体,.,用户窗体可以作为程序的对话框和窗口,.,向用户窗体添加控件基本类似于向工作表添加控件,然而第一步要创建一个用户窗体,.,这可以通过,VBA,编辑器实现,.,具体按以下步骤操作,:,1),打开,HOUR3,工作簿,选择,工具,-,宏,-VBA,编辑器,打开,VBA,编辑器,.,2),在,VBA,编辑器中选择工具栏上的,插入用户窗体,按钮或者选择,插入,菜单,从下拉菜单中选择,用户窗体,现在,VBA,编辑器中出现一个名为,USERFORM1,的窗体,控件工具箱,同时出现,在其中有许多已经熟悉的控件,另外还有一些新的控件,.,这些新的控件是,:,使用用户窗体,切换按钮,该控件如果被选中,那么会保持被按下的状态,.,如果再次单击它就恢复为没有,按下的状态,.EXCEL,工具栏中有几个这样的按钮,例如,:,全屏显示,加粗,下划线,以及,窗体,工具栏中的,切换网格,等,.,选项卡条,(TabStrip),它是包含多个选项卡的控件,.,通常用来对相关的信息进行组织或分类,.,例如,:,你也许希望用选项卡条来显示各个地区的销售信息,可以给每个地区设置,一个选项卡,.,在默认时,选项卡包含两页,分别叫做,TAB1,和,TAB2,可以添加更多,的选项卡,.,多页,外观类似选项卡条,是包含一页或多页的控件,.,选项卡条给人相似的外观,而多页控件的各页包含各自不同的控件,有各自不同的布局,.,多页的例子很多,例如,:,设置控件格式,对话框和,工具,菜单中的,选项,对话框,.,以及,格式,“,菜单中的,单元格,.,对话框,.,使用用户窗体,图像控件,它允许向窗体上放置图片,.,图片格式须为,:,*.bmp,*.cur,*.gif,*.ico,*.jpg,*.wmf.,RefEdit,这是工具箱中默认情况下的最后一个控件。它外观象文本框，,通过这个控件可以将用户窗体折叠起来，以便选择单元格区域。,在对用户窗体设计得满意时，可以对其进行预览，方法是在,VBA,编辑器中,选择该窗体，单击,“,运行,”,菜单中的三角符号,“,运行子过程,/,用户窗体,”,，,三角符号在,VBA,工具栏上也可能看得到，旁边是一个垂直的等于符号，,最右边是个小正方形符号，它们类似于录音机上的按钮。运行窗体的,另一个方法是按,F5,键。,小结,代码存在的位置,VBA,代码必须存放在某个位置，这个地方就是模块。,有两种基本类型的模块：标准模块和类模块。,模块中的每个过程或者是函数过程，或者是子程序概念,.,新术语：,你的大部分工作集中在标准模块中（简称为模块）当录制宏时如果不存在模块，,EXCEL,自动创建一个。,EXCEL,和,VBA,不关心代码存放在哪一个模块中，只要代码存在于打开的工作簿中即,可。,模块：它是作为一个单元保存在一起的,VBA,定义和过程的集合。,类模块：,VBA,允许你创建自己的对象，对象的定义包含在类模块中。,对模块的概览,SubcmdSmallFont_Click() WithSelection.Font .Name=Arial .FontStyle=Regular .Size=16 EndWith Endsub,过程被定义为,VBA,代码的一个单元，过程中包括一系列用于执行,某个任务或是进行某种计算的语句。,上面列出的过程实际上是一个,事件过程。这个过程的名字是,由一个按钮对,象的名字,CmdSmallFont,和一个事件的,名字,Click,组成的，两者之间,用下划线分开。,当单击这个命令按钮时，,就会运行这个事件过程。,函数过程通常情况下称为函数，要返回一个数值。这个数值通常是计算的,结果或是测试的结果，例如,False,或,True.,正如前面所说，可以用,VBA,创建,自定义函数。实际上可以在工作表上使用你创建的函数。,程序清单,4-2,是一个计算价格的,10%,为运费的简单例子。,简单的用户定义函数示例。,PublicFunctionShipping(Price),Shipping=Price*0.1EndFunction,这个函数使用一个参数,（,Price).,子程序和函数,都可以使用参数。,Price,可以是数字和单元格引用。,创建过程,创建第一个过程需要两个基本步骤。,首先，需要向工作簿中添加一个模块。接着需要向模块中添加一个工程。,对于创建的每一个应用程序，只需添加一次模块。可以使用多个模块，但这是不必要的。某些开发者喜欢使用多个模块，以便根据他们的目的或者窗体对过程进行组织。在本练习中，创建的过程只显示一个消息框。在本练习中创建的过程只显示一个消息框。在本练习中使用,Msgbox,是为了提供一个可见的例子，虽然我们还没有介绍过,Msgbox,语句，但是在本例中将使用它。要创建该过程，请按如下步骤进行：,打开一个新工作簿。,选择,工具,-,宏,-Visual,Basic,编辑器,，打开,VBA,编辑器窗口。,在,VBA,编辑器的左面，可以看到“工程资源管理器”窗口。,在工程资源管理器窗口的“,Thisworkbook,上单击鼠标右键，,选择“插入”,-“,模块”，这样就将一个模块添加到应用程序中了。,(,如果你没有看见,“,工程资源管理器,”,窗口，可以按,Ctrl+R),。,选择,“,插入,”“,过程,”,，显示,“,添加过程,”,对话框。,输入,“,第一个工程,”,作为过程名字。,在,“,类型,”,分组框中，确认选择了,“,子程序,”,。单击,“,确定,”,按钮。,这样一个新的过程就添加到模块中了。可以在模块中看到以,Public,Sub,第一个过程（）开始，以,End,Sub,结束的语句结构。,6,）在过程中插入光标，输入以下语句并回车：,Msgbox,这是我的第一个过程,在输入,Msgbox,后，会自动弹出一个消息框告诉你有关这条命令的信息，,称之为自动列表技术。输入完成的过程如下所示：,Public,Sub,第一个过程（）,Msgbox,这是我的第一个过程, End,Sub,VBA,对子程序和函数,有,如下的命名规则： *,名字中可以包含字母数字和下划线。 *,名字中不能包含空格句号惊叹号，也不能包含字符,&,$,#. *,名字最多可以包含,255,个字符。,运,行宏,创建这个过程后，可以运行一下。,运行一个过程有几种方法：,可以直接使用,“,运行,”,菜单，,“,运行子程序,/,用户窗体,”,工具栏按钮或按下,F5,键。,要运行一个过程，可以按照如下步骤：,1,）单击,“,运行子程序,/,用户窗体,”,工具栏按钮，过程执行并显示一个消息框。,2,）单击消息框之中的,“,确定,”,按钮，关闭该消息框。,保存对模块所做的改变,要保存新过程,需要保存过程所驻留的工作簿,.,可以用,VBA,编辑器保存工作簿,.,具体步骤如下,:,选择,文件,-,保存工作簿,.,因为本工作簿还没有保存过,所以要给它命名,.,输入,“,HOUR4,”,作为文件名并按回车键,则工作簿和模块与,过程都保存下来了,.,变量,变量是用于临时保存数值的地方,.,每次应用程序运行时,变量可能包含不同的数值,而在程序运行时,变量的数值可以改变,.,为了说明为什么需要变量,可以按照如下步骤创建一个简单的过程,:,1),创建一个名为,你叫什么名字,的过程,. 2),在过程中输入如下代码,:,Inputbox,输入你的名字,:,3),按下,F5,键运行过程,这时会显示一个输入框,要求输入你的名字,. 4),输入你的名字并按,确定,按钮,则结束该过程,.,你输入的名字到那里去了,?,如何找到用户在输入框中输入的信息,?,在这种情况下,需要使用变量来存储用户输入的结果,.,变量的数据类型,使用变量的第一步是了解变量的数据类型,.,变量的数据类型控制变量允许保存,何种类型的数据,.,表列出了,VBA,支持的数据类型,还列出了各种类型的变量所需要,的存储空间和能够存储的数值范围,.,数据类型,存储空间,数值范围,Byte,1,字节,0-255,Boolean,2,字节,True,或者,False,Integer,2,字节,-32768-32767,Long(,长整型,),4,字节,-2147483648-2147483647,Single,4,字节,负值范围,:,-3.402823E38,-1.401298E-45,正值范围,: 1.401298E-45,3.402823E38,Object,4,字节,任何引用对象,String(,长字符串）,10,字节,+1,字节,/,字符,0-,约,20,亿,变量的数据类型,数据类型,存储空间,数值,范围,Double,8,字节,负值范围,:,-1.79769313486232E308,-,494065645841247E-324,正值范围,:,4.94065645841247E-324,1.79769313486232E308,Decimal,14,字,不包括小数时,:,+/-79228162514264337593543950335,包括小数时,: +/7.9228162514264337593543950335,Currency,8,字节,-922337203685477,922337203685477,Date,8,字节,1000,年,1,月,1,日,-9999,年,12,月,31,日,String(,固定长度）,字符串的长度,1,约,65400,Varient,（数字）,16,字节,Double,范围内的任何数值,Varient,（文本）,22,字节,+1,字节,/,字符,数据范围和变长字符串相同,用,Dim,语句创建变量,(,声明变量,),现在,你对变量可以使用的数据类型已经比较熟悉了,以下我们将创建变量,.,创建变量可以使用,Dim,语句,创建变量通常成为,声明变量,。,Dim,语句的基本语法如下,:,Dim,变量名,AS,数据类型,变量名必须以字母开始,并且只能包含字母数字和特定的特殊字符,不能包含空格句号惊叹号,也不能包含字符,&,$,#.,名字最大长度为,255,个字符,。,变量命名的惯例,下表给出了推荐的变量命名惯例数据类型短前缀长前缀,数据类型,短前缀,长前缀,Array,a,ary,Boolean,f,bin,Byte,b,bit,Currency,c,cur,Double,d,dbl,Date/Time,dt,dtm/ dat,Integer,i,int,Long,l,lng,Object,o,obj,Single,sng,String,s,str,Variant,v,var,使用数组,如果你使用过其他编程序语言,可能对数组已经比较熟悉了,.,数组是具有,相同数据类型并共同享有一个名字的一组变量的集合,.,数组中的元素通过,索引数字加以区分,定义数组的方法如下,:,Dimarray_name(n)Astype,(,其中,n,是数组元素的个数,),例如,如果要创建保存,10,个学生名字的数组,可以用以下语句,:,Dims,学生名字,(9)AsInteger,使用数组,声明数组时的另一种方法是不给定大小。可以在程序运行时定义其大小。通过创建动态数组就可以做到。例如，你的程序要创建一表格，可以提示用户输入表格的行和列的数目。,声明动态数组的语法如下：,Dimdyn_array()Astype,对数组声明后可以在程序运行时用,ReDim,语句指定数组的大小：,ReDimdyn_array()(array_size),参数,array_size,代表数组的新大小。如果要保留数组的数值，请在,ReDim,语句后使用保留字,Preserve,具体语法如下：,ReDimPreservedyn_array(array_size),变量赋值,声明变量后就可以给变量赋值。请注意下列语句中为数组变量赋值时索引数字的使用。,Dimi,人数,AsInteger,Dimi,考试成绩,AsInteger,DimiAsInteger,i,人数,=inputbox(,输入学生的人数：,),ReDimPreservei,考试成绩,(i,数量,),Fori=1toi,人数,i,考试成绩,(i)=inputbox(,输入考试成绩,&i),Next,使用常量,现在,你已经知道变量是存储非静态信息的存储容器,.,当存储静态信息时可以创建常量,.,它可以供程序多次使用而且便于记忆,.,比如圆周率比,3.1415926,好理解得多,.,要声明常量并设置常量的值,需要使用,const,语句,.,常量声明后,不能对它赋一个新的值,.,例如,假设需要声明一个常量来保存销项税率,可以使用以下语句,:,通常常量声明时用全大写字母以区分变量,.,con,s,t,销项税率,AsLong=0.17,作用域,到现在为止,已经学习了如何定义变量和常量,但是还不知道在何处定义,.,可以在两个地,方定义常量和变量,:,过程中定义和在模块顶部一个名为,“,通用声明,”,的区域内定义,.,定义的位置决定租用域,.,在过程中声明,该变量只能在该过程中使用,其他过程中不能使用这个,变量和常量,这中变量成为局部变量或过程级变量；,在模块顶部声明的变量称为模块级变量，该变量在该模块的所有过程中,都可以使用。,作用域,还有一种等级的作用域称为公共级。,公共级变量可以在应用程序的任何过程中使用，不论过程和变量是否定义在一个模块。,这就使得公共级变量在使用中十分灵活，但是公共级变量在程序运行时一直保留在,内存中，这样就占用了系统资源。要创建公共级变量，可以用,Public,语句，,具体语法如下：,PublicvariablenameAsdatatype,要创建公共级常量，具体语法如下：,PublicconstCONSTANAMEdatatype=value,公共级变量或常量必须在模块顶部的“通用声明”区域中定义。,利用,VBA,设置工作表使用权限,Excel,Home,一般保护工作表采取的方法是用,EXCEL,菜单中的,“,保护,”,命令，,有时这尚嫌不足，比如一些机密文件根本要让某些使用者无法看到，,但又需要他来操作工作簿中的其他表，怎么办？,可以打开,VBA,编辑器，打开,“,工程资源管理器,”,，双击该工作表，现在出现的是,设置该表的属性的编辑窗口，单击窗口左上的下拉列表框，选择,worksheet,这时再从该窗口右上方的列表框中选择,Active(,“,激活,”,），这时自动显示,如下的语句块：,PrivateSubWorksheet_Activate(),EndSub,利用,VBA,设置工作表使用权限,在其中加入代码：,(,假设用,“,123,”,作为密码,Sheet,“,机密文档,”,为限制,权限文档,sheet,普通文档,为工作簿中你认为任何适合的工作表,),IfApplication.InputBox(,请输入操作权限密码,:)=123Then,Range(A1).Select,Else,Msgbox,密码错误,即将退出,!,Sheets(,普通文档,).Select,Endif,利用,VBA,设置工作表使用权限,完整的程序如下：,PrivateSubWorksheet_Activate(),IfApplication.,InputBox(,请输入操作权限密码,:)=123Then,Range(A1).Select,Else,MsgBox,密码错误,即将退出,!,Sheets(,普通文档,).Select,EndIf,EndSub,利用,VBA,设置工作表使用权限,这样做仍有一个问题，就是越权使用者仍会看到一些文件的片段，即在提示密码的那段时间。你可以这样做，用上述方法选择工作表的,Deactivate,事件,输入以下代码：,Sheets(,机密文档,).Cells.Font.ColorIndex=2,这段程序使得此工作表在不被激活时，所有文字为白色。,然后，在第一个程序中的,Range(A1).Select,后插入一行，写入以下代码：,ActiveSheet.Cells.Font.ColorIndex=56,这段程序，在你输入正确密码后，将该表所有文字转变为深灰色。,利用,VBA,设置工作表使用权限,完整的程序如下：,PrivateSubWorksheet_Activate(),IfApplication.InputBox(,请输入操作权限密码,:)=123Then,Range(A1).Select,Sheets(,机密文档,).Cells.Font.ColorIndex=56,Else,MsgBox,密码错误,即将退出,!,Sheets(,普通文档,).Select,EndIf,提高,VBA,运行效率,由于,Microsoft,Office,办公套件的广泛应用，以及该软件版本的不断提升，功能,不断完善，在,Office,办公套件平台上开发出的,VBA,应用程序越来越多，,而,VBA,是一种宏语言，在运行速度上有很大的限制。,因此,VBA,编程的方法直接关系到,VBA,程序运行的效率，本文列举了一些提高,VBA,程序,运行效率的方法。,方法,1,：尽量使用,VBA,原有的属性、方法和,Worksheet,函数,由于,Excel,对象多达百多个，对象的属性、方法、事件多不胜数，对于初学者来说,可能对它们不全部了解，这就产生了编程者经常编写与,Excel,对象的属性、方法相同,功能的,VBA,代码段，而这些代码段的运行效率显然与,Excel,对象的属性、方法完成,任务的速度相差甚大。,提高,VBA,运行效率,ForEachcIn Worksheet(1).Range(A1:A1000),TotalValue=TotalValue,c.Value,Next,AverageValue=TotalValue/Worksheet(1).Range,(A1:A1000).Rows.Count,如求平均工资的例子：,例如用,Range,的属性,CurrentRegion,来返回,Range,对象，该对象代表当前区。,（当前区指以任意空白行及空白列的组合为边界的区域）。同样功能的,VBA,代码需数十行。因此编程前应尽可能多地了解,Excel,对,象的属性、方法。,充分利用,Worksheet,函数是提高程序运行速度的极度有效的方法。,提高,VBA,运行效率,而下面代码程序比上面例子快得多：,AverageValue=Application.WorksheetFunction.Average(Worksheets(1),.Range(A1:A1000),其它函数如,Count,Counta,Countif,Match,Lookup,等等，,都能代替相同功能的,VBA,程序代码，提高程序的运行速度。,尤其在循环中每一个,Excel,对象的属性、方法的调用都需要通过,OLE,接口的一个或多个调用，这些,OLE,调用都是需要时间的，减少使用,对象引用能加快,VBA,代码的运行。,方法,2,：尽量减少使用对象引用,提高,VBA,运行效率,例如,1,使用,With,语句。,Workbooks(1).Sheets(1).Range(A1:A1000).Font.Name=Pay,Workbooks(1).Sheets(1).Range(A1:A1000).Font.FontStyle=Bold,.,则以下语句比上面的快,WithWorkbooks(1).Sheets(1).Range(A1:A1000).Font,.Name=Pay,.FontStyle=Bold,.,EndWith,提高,VBA,运行效率,2,使用对象变量。,如果你发现一个对象引用被多次使用，则你可以将此对象用,Set,设置为,对象变量，以减少对对象的访问。如：,Workbooks(1).Sheets(1).Range(A1).Value=100,Workbooks(1).Sheets(1).Range(A2).Value=200,则以下代码比上面的要快：,SetMySheet=Workbooks(1).Sheets(1),MySheet.Range(A1).Value=100,MySheet.Range(A2).Value=200,提高,VBA,运行效率,3,在循环中要尽量减少对象的访问。,Fork=1To1000 Sheets(Sheet1).Select,Cells(k,1).Value=Cells(1,1).Value,Nextk,则以下代码比上面的要快：,SetTheValue=Cells(1,1).Value Sheets(Sheet1).Select,Fork=1To1000,Cells(k,1).Value=TheValue,Nextk,提高,VBA,运行效率,方法,3,：,减少对象的激活和选择,如果你的通过录制宏来学习,VBA,的，则你的,VBA,程序里一定充满了对象的激活和选择，例如,Workbooks(XXX).Activate,Sheets,(XXX).Select, Range(XXX).Select,等,但事实上大多数情况下这些操作不是必需的。,例如：,Sheets(Sheet3).Select Range(A1).Value=100 Range(A2).Value=200,可改为：,WithSheets(Sheet3) .Range(A1).Value=100 .Range(A2).Value=200,EndWith,提高,VBA,运行效率,方法,4,：关闭屏幕更新,如果你的,VBA,程序前面三条做得比较差，则关闭屏幕更新是提高,VBA,程序运行速度的最有效的方法，缩短运行时间,2/3,左右。,关闭屏幕更新的方法：,Application.ScreenUpdate=False,请不要忘记,VBA,程序运行结束时再将该值设回来：,Application.ScreenUpdate=True,用过,Excel,97,里的加载宏,定时保存,吗？可惜它的源程序是加密的，现在就上传一篇介绍实现它的文档。,在,Office,里有个方法是,application.ontime,，具体函数如下：,expression.OnTime( EarliestTime,Procedure,LatestTime,Schedule),如,果想进一步了解，请参阅,Excel,的帮助。,这个函数是用来安排一个过程在将来的特定时间运行，（可为某个日期的指定时间，也可为指定的时间段之后）。通过这个函数我们就可以在,Excel,里编写自己的定时程序了。下面就举两个例子来说明它。,1.,在下午,17:00:00,的时候显示一个对话框。,Sub,Run_it() Application.OnTime,TimeValue(17:00:00),Show_my_msg ,设置定时器在,17:00:00,激活，激活后运行,Show_my_msg,。,End,Sub Sub,Show_my_msg() msg,=,MsgBox(,现在是,17:00:00,！,vbInformation,自定义信息,) End,Sub,2.,模仿,Excel97,里的,自动保存宏,在这里定时,5,秒出现一次,Subauto_open() MsgBox,欢迎你，在这篇文档里，每,5,秒出现一次保存的提示！,vbInformation,请注意！, Call runtimer,打开文档时自动运行,EndSub Sub runtimer() Application.OnTimeNow+TimeValue(00:00:05),saveit,Now+TimeValue(00:15:00),指定在当前时间过,5,秒钟开始运行,Saveit,这个过程。,EndSub,以上只是两个简单的例子，有兴趣的话，可以利用,Application.Ontime,这个函数写出更多更有用的定时程序,SubSaveIt(),msg=MsgBox(,朋友，你已经工作很久了，现在就存盘吗？,&Chr(13)_ &,选择是：立刻存盘,&Chr(13)_ &,选择否：暂不存盘,&Chr(13)_ &,选择取消：不再出现这个提示,vbYesNoCancel+64,休息一会吧！,) ,提示用户保存当前活动文档。,Ifmsg=vbYesThenActiveWorkbook.SaveElseIfmsg=vbCancelThenExitSub Callruntimer,如果用户没有选择取消就再次调用,Runtimer EndSub,