Excel-VBA-编程教程,excel高级教程

PAGE2010新春版2010新春版2010.2.182010.2.18目录一、VBA语言基础1第一节标识符1第二节运算符1第三节数据类型1第四节变量与常量1第五节数组2第六节注释和赋值语句2第七节书写规范2第八节判断语句2第九节循环语句3第十节其他类语句和错误语句处理4第十一节过程和函数4一．Sub过程4二．Function函数5三．Property属性过程和Event事件过程5第十二节内部函数5一．测试函数5二．数学函数5三．字符串函数5四．转换函数6五．时间函数6第十三节文件操作6文件6删除6打开6读入7写入7关闭7其他文件函数7二、VISUALBASIC程序设计网络教学1第一课VBA是什么11.1VBA是什么11.2EXCEL环境中基于应用程序自动化的优点11.3录制简单的宏11.4执行宏21.5查看录制的代码21.6编辑录制的代码31.7录制宏的局限性31.8小结3第二课处理录制的宏32.1为宏指定快捷键32.2决定宏保存的位置42.3个人宏工作簿42.3.1保存宏到个人宏工作簿42.3.2使用并编辑个人宏工作簿中的宏42.4将宏指定给按钮42.5将宏指定给图片或其他对象52.6小结5第三课学习控件5页面23.1EXCEL开发过程简介53.2认识不同的控件53.3向工作表添加控件63.4设置控件的特性63.5给控件命名63.6使用用户窗体63.7疑难解答7第四课理解变量和变量的作用74.1代码存在的位置：模块74.2对模块的概览74.2.1创建过程84.2.2运行宏94.3保存对模块所做的改变94.4变量94.4.1变量的数据类型94.4.2用Dim语句创建变量(声明变量)104.4.3变量命名的惯例104.4.4使用数组104.4.5变量赋值11第五课利用VBA设置工作表使用权限111．使用WITH语句。2．使用对象变量。方法3：减少对象的激活和选择方法4：关闭屏幕更新第六课提高EXCEL中VBA的效率12方法1：尽量使用VBA原有的属性、方法和WORKSHEET函数12方法2：尽量减少使用对象引用，尤其在循环中121．使用With语句。122．使用对象变量。123．在循环中要尽量减少对象的访问。13方法3：减少对象的激活和选择13方法4：关闭屏幕更新13第七课如何在EXCEL里使用定时器13三、学习微软EXCEL2002VBA编程和XML，ASP技术15第一章电子表格自动化简介和了解宏命令151了解宏152宏命令的普通应用153写宏之前的计划164录制宏175运行宏186修改宏代码197添加注释218分析宏代码229清除宏代码2310测试修改好的宏2411两个层面运行宏的方法2412完善你的宏代码2513重新命名宏2714运行宏的其它方法27页面315使用键盘快捷键运行宏2716通过菜单运行宏2817通过工具栏按钮运行宏3018通过工作表里面的按钮运行宏3119保存宏3220打印宏3221保存宏在个人宏工作簿3222打开含有宏的工作簿3423VB编辑窗口3524了解工程浏览窗口3525了解属性窗口3626了解代码窗口3627VB编辑器里的其它窗口3828接下来……39第二章VBA第一步391了解指令，模块和过程392VBA工程命名393模块重命名404从其它工程调用过程415了解对象，属性和方法426学习对象，属性和方法437句法和文法458打断很长的VBA语句479了解VBA错误4710查找帮助4911语法和编程快捷助手5012属性/方法列表5113常数列表5114参数信息5215快速信息5216自动完成关键字5217缩进/凸出5318设置注释块/解除注释块5319使用对象浏览器5320使用VBA对象库5821用对象浏览器来定位过程5922使用立即窗口5923获取立即窗口里的信息6124学习对象6225电子表格单元格操作6226使用RANGE属性6227使用CELLS属性6228使用OFFSET属性6329选择单元格的其它方法6430选择行和列6431获取工作表信息6532往工作表输入数据6533返回工作表中的信息6534单元格格式6635移动，复制和删除单元格6636操作工作簿和工作表6737操作窗口（WINDOWS）6738管理EXCEL应用程序68页面439接下来……68第三章了解变量，数据类型和常量691保存VBA语句的结果692变量是什么693数据类型694如何产生变量705如何声明变量716明确变量的数据类型727变量赋值738强制声明变量759了解变量范围7610过程级别（当地）变量7611模块级别变量7712工程级别变量7713变量的存活期7814了解和使用静态变量7815声明和使用对象变量7916使用明确的对象变量8017查找变量定义8018在VB过程里面使用常量8019内置常量8120接下来……82第四章VBA过程：子程序和函数821.关于函数过程822.创建函数过程823.执行函数过程844.从工作表里运行函数过程845.从另外一个VBA过程里运行函数过程856.传递参数867.明确参数类型878.按地址和按值传递参数889.使用可选的参数8810.定位内置函数8911.使用MSGBOX函数9012.MSGBOX函数的运行值9413.使用INPUTBOX函数9514.数据类型转变9615.使用INPUTBOX方法9716.使用主过程和子过程10017.接下来……102第五章基于VBA做决定1021.关系和逻辑运算符1022.IF…THEN语句1033.基于多于一个条件的决定1054.THEIF…THEN…ELSE语句1065.IF…THEN…ELSEIF语句1086.嵌套的IF…THEN语句1107.SELECTCASE语句1108.和CASE子句一起使用IS1129.确定CASE子句里数值的范围11310.在CASE子句里确定多个表达式114页面511.接下来…114第六章在VBA中重复操作1141.DOLOOPS:DO…WHILE和DO…UNTIL1142.观察过程执行1173.WHILE…WEND循环1184.FOR…NEXT循环1195.FOREACH…NEXT循环1207.提前跳出循环1218.循环嵌套1229.接下来…122第七章利用VBA数组管理数据清单和表格1221.了解数组1232.声明数组1243.数组的上界和下界1244.在VBA过程里使用数组1245.数组和循环语句1256.使用二维数组1277.静态和动态数组1288.数组函数1299.ARRAY函数13010.ISARRAY函数13011.ERASE函数13112.LBOUND函数和UBOUND函数13113.数组中的错误13214.数组作为参数13415.接下来…134第八章利用VBA操纵文件和文件夹1341.获取当前文件夹的名称（CURDIR函数）1352.更改文件或文件夹名称（NAME函数）1353.检查文件或文件夹是否存在（DIR函数）1364.获得文件修改的日期和时间（FILEDATETIME函数）1375.获得文件大小（FILELEN函数）1386.返回和设置文件属性（GETATTR函数和SETATTR函数）1387.更改缺省文件夹或驱动器（CHDIR语句和CHDRIVE语句）1398.创建和删除文件夹（MKDIR语句和RMDIR语句）1409.复制文件（FILECOPY语句）14010.删除文件（KILL语句）14211.从文件读取和写入数据（INPUT/OUTPUT）14212.文件访问类型14213.使用顺序文件14314.读取储存于顺序文件里的数据14315.逐行读取文件14316.从顺序文件中读取字符14417.读取分隔文本文件14518.往顺序文件里写数据14619.使用WRITE#和PRINT#语句14720.操作随机文件14821.创建用户定义的数据类型14822.操作二进制文件15223.操作文件和文件夹的时髦方法15324.使用WSH获取文件信息155页面625.FILESYSTEMOBJEC的方法和属性15626.对象FILE的属性16027.文件夹对象属性16128.驱动器对象属性16129.使用WSH创建文本文件16230.使用WSH进行其它操作16431.运行其它应用程序16432.创建快捷方式16533.接下来……166第九章利用VBA控制其它应用程序1671.启动应用程序1672.在应用程序之间切换1693.控制其它应用程序1704.控制应用程序的其它方法1715.了解自动控制1726.了解链接和嵌入1727.使用VBA进行链接和嵌入1738.COM和自动控制1749.了解绑定17410.后期绑定17411.早期绑定17412.建立到对象库的引用17513.创建自动控制对象17614.使用CREATEOBJECT函数17615.使用自动控制创建一个新的WORD文档17716.使用GETOBJECT函数17717.打开存在的WORD文档17818.使用关键字NEW17919.使用自动控制访问MICROSOFTOUTLOOK18020.接下来……181第十章对话框和自定义窗体1811.文件打开和另存为对话框1832.GETOPENFILENAME和GETSAVEASFILENAME方法1873.创建窗体1884.创建用户窗体的工具1905.标签1916.文字框1917.框架1918.选项按钮1919.复选框19210.切换按钮19211.列表框19212.复合框19213.滚动条19214.旋转按钮19215.图像19216.多页控件19217.TABSTRIP控件19318.REFEDIT控件19319.在窗体上放置控件19320.应用程序示例1：信息调查19321.在窗体上添加按钮、选项框和其它控件194页面722.更改控件名称19723.设置其它控件属性19724.准备工作表以储存窗体数据19825.显示自定义窗体19926.设置TAB顺序19927.了解窗体和控件事件20028.编写VBA过程对窗体和控件事件反应20129.编写过程来初始化窗体20130.编写过程填充列表框控件20331.编写过程控制选项按钮20332.编写过程同步文字框和旋转按钮20433.编写过程关闭用户窗体20434.转移窗体数据到工作表20535.使用INFOSURVEY应用程序20636.应用程序示例2：学生和考试20637.使用多页和TABSTRIP控件20638.给窗体STUDENTSANDEXAMS自定义窗体编写VBA过程20839.使用自定义窗体STUDENTSANDEXAMS21240.接下来……214第十一章自定义集合和类模块2141.使用集合2142.声明自定义集合2153.给自定义集合添加对象2154.从自定义集合移出对象2165.创建自定义对象2176.创建类2187.变量声明2188.定义类的属性2189.创建PROPERTYGET过程21910.创建PROPERTYLET过程21911.创建类方法22012.创建类的示例22013.类模块里的事件过程22114.创建用户界面22115.观察VBA过程的执行22916.接下来……231第十二章使用VBA创建自定义菜单和工具栏2311.工具栏2322.创建自定义工具栏2333.删除自定义工具栏2354.使用COMMANDBAR的属性2355.使用COMMANDBAR控件2356.理解和使用控件属性2377.控件方法2398.使用菜单2409.菜单编程24110.创建子菜单24311.修改内置快捷菜单24412.创建快捷菜单24713.接下来……249第十三章调试VBA过程和处理错误249页面81.测试VBA过程2492.终止过程2493.使用断点2504.在中断模式下使用立即窗口2535.使用STOP语句2546.添加监视表达式2547.清除监视表达式2568.使用快速监视2569.使用本地窗口和调用堆栈对话框25710.逐句运行VBA过程25811.逐句运行过程25912.逐过程执行过程25913.设置下一条语句26014.显示下一条语句26015.终止和重新设置VBA过程26016.了解和使用条件编译26017.操纵书签26218.捕捉错误26217.接下来……266第十四章微软EXCEL2002中的事件编程2661.事件过程介绍2662.激活和失活事件2673.事件次序2684.工作表事件2685.工作簿事件2726.图表事件2827.内嵌图表事件2848.可为应用软件对象识别的事件2859.查询表时间28810.接下来……289第十五章在EXCEL里使用ACCESS2891.对象库2892.建立对对象库的引用2923.链接到ACCESS2934.使用AUTOMATION链接到ACCESS数据库2935.使用DAO链接到ACCESS数据库2956.使用ADO链接到ACCESS数据库2957.从EXCEL执行ACCESS任务2968.创建新ACCESS数据库2969.打开ACCESS窗体29810.打开ACCESS报表30011.运行ACCESS查询30112.运行选择查询30213.运行参数查询30314.调用ACCESS函数30415.获取ACCESS数据到EXCEL工作表30416.使用GETROWS方法获取数据30417.使用COPYFROMRECORDSET方法获取数据30518.使用TRANSFERSPREADSHEET方法获取数据30619.使用OPENDATABASE方法30720.从ACCESS数据创建文本文件30921.从ACCESS数据创建查询表310页面922.在EXCEL里使用ACCESS数据31123.用ACCESS数据创建内嵌图表31124.传输EXCEL电子表格到ACCESS数据库31325.将EXCEL电子表格链接到ACCESS数据库31326.将EXCEL电子表格导入ACCESS数据库31427.放置EXCEL数据到ACCESS表中31428.接下来……316页面10VBA语言基础橄榄树整理一、VBA语言基础第一节标识符一．定义标识符是一种标识变量、常量、过程、函数、类等语言构成单位的符号，利用它可以完成对变量、常量、过程、函数、类等的引用。二．命名规则1）字母打头，由字母、数字和下划线组成，如A987b_23Abc2）字符长度小于40，（Excel2002以上中文版等，可以用汉字且长度可达254个字符）3）不能与VB保留字重名，如public,private,dim,goto,next,with,integer,single等第二节运算符定义：运算符是代表VB某种运算功能的符号。1）赋值运算符2）数学运算符&、+(字符连接符)、+(加)、-（减）、Mod（取余）、\（整除）、*（乘）、/（除）、-（负号）、^（指数）3）逻辑运算符Not（非）、And（与）、Or(或)、Xor(异或)、Eqv(相等)、Imp(隐含)4）关系运算符=（相同）、<>（不等）、>（大于）、<（小于）、>=（不小于）、<=（不大于）、Like、Is5）位运算符Not（逻辑非）、And（逻辑与）、Or（逻辑或）、Xor（逻辑异或）、Eqv（逻辑等）、Imp（隐含）第三节数据类型VBA共有12种数据类型，具体见下表，此外用户还可以根据以下类型用Type自定义数据类型。数据类型类型标识符字节字符串型String$字符长度(0-65400)字节型Byte无1布尔型Boolean无2整数型Integer%2长整数型Long&4单精度型Single!4双精度型Double#8日期型Date无8公元100/1/1-99/12/31货币型Currency@8小数点型Decimal无14变体型Variant无以上任意类型，可变对象型Object无4第四节变量与常量1）VBA允许使用未定义的变量，默认是变体变量。2）在模块通用说明部份，加入OptionExplicit语句可以强迫用户进行变量定义。3）变量定义语句及变量作用域Dim变量as类型'定义为局部变量，如DimxyzasintegerPrivate变量as类型'定义为私有变量，如PrivatexyzasbytePublic变量as类型'定义为公有变量，如PublicxyzassingleGlobal变量as类型'定义为全局变量，如GloblalxyzasdateStatic变量as类型'定义为静态变量，如Staticxyzasdouble一般变量作用域的原则是，那部份定义就在那部份起作用，模块中定义则在该模块那作用。4）常量为变量的一种特例，用Const定义，且定义时赋值，程序中不能改变值，作用域也如同1页面11VBA语言基础橄榄树整理变量作用域。如下定义：ConstPi3.1415926assingle第五节数组数组是包含相同数据类型的一组变量的集合，对数组中的单个变量引用通过数组索引下标进行。在内存中表现为一个连续的内存块，必须用Global或Dim语句来定义。定义规则如下：Dim数组名([lowerto]upper[,[lowerto]upper,….])astype;Lower缺省值为0。二维数组是按行列排列，如XYZ(行，列)。除了以上固定数组外，VBA还有一种功能强大的动态数组，定义时无大小维数声明；在程序中再利用Redim语句来重新改变数组大小，原来数组内容可以通过加preserve关键字来保留。如下例：Dimarray1()asdouble:Redimarray1(5):array1(3)=250:Redimpreservearray1(5,10)第六节注释和赋值语句1）注释语句是用来说明程序中某些语句的功能和作用；VBA中有两种方法标识为注释语句。2）赋值语句是进行对变量或对象属性赋值的语句，采用赋值号，如X=123：Form1.caption=”我的窗口”对对象的赋值采用：setmyobject=object或myobject:=object第七节书写规范1）VBA不区分标识符的字母大小写，一律认为是小写字母；2）一行可以书写多条语句，各语句之间以冒号:分开；3）一条语句可以多行书写，以空格加下划线_来标识下行为续行；4）标识符最好能简洁明了，不造成歧义。第八节判断语句1）If…Then…Else语句IfconditionThen[statements][Elseelsestatements]如1：IfA>BAndC<DThenA=B+2ElseA=C+2如2：Ifx>250Thenx=x-100或者，可以使用块形式的语法：IfconditionThen[statements][ElseIfcondition-nThen[elseifstatements]...[Else[elsestatements]]EndIf如1:IfNumber<10ThenDigits=1ElseIfNumber<100ThenDigits=2ElseDigits=3EndIf2）SelectCase…Case…EndCase语句如1：SelectCasePidCase“A101”Price=200Case“A102”Price=3002页面12VBA语言基础橄榄树整理……CaseElsePrice=900EndCase3）Choose函数choose(index,choce-1,choice-2,…,choice-n)，可以用来选择自变量串列中的一个值，并将其返回，index必要参数，数值表达式或字段，它的运算结果是一个数值，且界于1和可选择的项目数之间。choice必要参数，Variant表达式，包含可选择项目的其中之一。如：GetChoice=Choose(Ind,"Speedy","United","Federal")4）Switch函数Switch(expr-1,value-1[,expr-2,value-2_[,expr-n,value-n]])switch函数和Choose函数类似，但它是以两个一组的方式返回所要的值，在串列中，最先为TRUE的值会被返回。expr必要参数，要加以计算的Variant表达式。value必要参数。如果相关的表达式为True，则返回此部分的数值或表达式，没有一个表达式为True，Switch会返回一个Null值。第九节循环语句1）ForNext语句以指定次数来重复执行一组语句ForcounterstartToend[Stepstep]'step缺省值为1[statements][ExitFor][statements]Next[counter]如1：ForWords=10To1Step-1'建立10次循环ForChars=0To9'建立10次循环MyString=MyString&Chars'将数字添加到字符串中NextChars'IncrementcounterMyString=MyString&""'添加一个空格NextWords2）ForEach…Next语句主要功能是对一个数组或集合对象进行，让所有元素重复执行一次语句ForEachelementIngroupStatements[Exitfor]StatementsNext[element]如1：ForEachrang2Inrange1Werior.colorindex=6.pattern=xlSolidEndwithNext这上面一例中用到了With…EndWith语句，目的是省去对象多次调用，加快速度；语法为：Withobject[statements]EndWith3）Do…loop语句在条件为true时，重复执行区块命令Do{while|until}condition'while为当型循环，until为直到型循环，顾名思义，不多说啦StatementsExitdo3页面13VBA语言基础橄榄树整理StatementsLoop或者使用下面语法Do'先do再判断，即不论如何先干一次再说StatementsExitdoStatementsLoop{while|until}condition第十节其他类语句和错误语句处理一．其他循环语句结构化程序使用以上判断和循环语句已经足够，建议不要轻易使用下面的语句，虽然VBA还支持。1)Gotoline该语句为跳转到line语句行2)Onexpressiongosubdestinatioinlist或者onexpressiongotodestinationlist语句为根据exprssion表达式值来跳转到所要的行号或行标记3)Gosubline…line…Return语句，Return返回到Gosubline行，如下例：Subgosubtry()DimnumNum=inputbox(“输入一个数字，此值将会被判断循环”)Ifnum>0thenGosubRoutine1：Debug.printnum：ExitsubRoutine1:Num=num/5ReturnEndsub4)while…wend语句，只要条件为TRUE，循环就执行，这是以前VB老语法保留下来的，如下例：whilecondition‘whileI<50[statements]‘I=I+1wend‘Wend二．错误语句处理执行阶段有时会有错误的情况发生，利用OnError语句来处理错误，启动一个错误的处理程序。语法如下：OnErrorGotoLine‘当错误发生时，会立刻转移到line行去OnErrorResumeNext‘当错误发生时，会立刻转移到发生错误的下一行去OnErroGoto0‘当错误发生时，会立刻停止过程中任何错误处理过程第十一节过程和函数过程是构成程序的一个模块，往往用来完成一个相对独立的功能。过程可以使程序更清晰、更具结构性。VBA具有四种过程：Sub过程、Function函数、Property属性过程和Event事件过程。一．Sub过程Sub过程的参数有两种传递方式：按值传递(ByVal)和按地址传递(ByRef)。如下例：Subpassword(ByValxasinteger,ByRefyasinteger)Ify=100theny=x+yelsey=x-yx=x+100EndsubSubcall_password()Dimx1asintegerDimy1asintegerx1=12y1=100Callpassword(x1,y1)‘调用过程方式：1.Call过程名(参数1,参数2…);2.过程名参数1,参数2…4页面14VBA语言基础橄榄树整理debug.printx1,y1‘结果是12、112，y1按地址传递改变了值，而x1按值传递，未改变原值Endsub二．Function函数函数实际是实现一种映射，它通过一定的映射规则，完成运算并返回结果。参数传递也两种：按值传递(ByVal)和按地址传递(ByRef)。如下例：Functionpassword(ByValxasinteger,byrefyasinteger)asbooleanIfy=100theny=x+yelsey=x-yx=x+100ify=150thenpassword=trueelsepassword=falseEndFunctionSubcall_password()Dimx1asintegerDimy1asintegerx1=12y1=100ifpasswordthen‘调用函数：1.作为一个表达式放在=右端;2.作为参数使用debug.printx1endifEndsub三．Property属性过程和Event事件过程这是VB在对象功能上添加的两个过程，与对象特征密切相关，也是VBA比较重要组成，技术比较复杂，可以参考相关书籍。第十二节内部函数在VBA程序语言中有许多内置函数，可以帮助程序代码设计和减少代码的编写工作。一．测试函数IsNumeric(x)‘是否为数字,返回Boolean结果，TrueorFalseIsDate(x)‘是否是日期,返回Boolean结果，TrueorFalseIsEmpty（x）‘是否为Empty,返回Boolean结果，TrueorFalseIsArray(x)‘指出变量是否为一个数组。IsError(expression)‘指出表达式是否为一个错误值IsNull(expression)‘指出表达式是否不包含任何有效数据(Null)。IsObject(identifier)‘指出标识符是否表示对象变量二．数学函数Sin(X)、Cos(X)、Tan(X)、Atan(x)三角函数，单位为弧度Log(x)返回x的自然对数Exp(x)返回exAbs(x)返回绝对值Int(number)、Fix(number)都返回参数的整数部分，区别：Int将-8.4转换成-9，而Fix将-8.4转换成-8Sgn(number)返回一个Variant(Integer)，指出参数的正负号Sqr(number)返回一个Double，指定参数的平方根VarType(varname)返回一个Integer，指出变量的子类型Rnd（x）返回0-1之间的单精度数据，x为随机种子三．字符串函数Trim(string)去掉string左右两端空白Ltrim(string)去掉string左端空白Rtrim(string)去掉string右端空白Len(string)计算string长度Left(string,x)取string左段x个字符组成的字符串Right(string,x)取string右段x个字符组成的字符串Mid(string,start,x)取string从start位开始的x个字符组成的字符串Ucase(string)转换为大写5页面15VBA语言基础橄榄树整理Lcase(string)转换为小写Space(x)返回x个空白的字符串Asc(string)返回一个integer，代表字符串中首字母的字符代码Chr(charcode)返回string,其中包含有与指定的字符代码相关的字符四．转换函数CBool(expression)转换为Boolean型CByte(expression)转换为Byte型CCur(expression)转换为Currency型CDate(expression)转换为Date型CDbl(expression)转换为Double型CDec(expression)转换为Decemal型CInt(expression)转换为Integer型CLng(expression)转换为Long型CSng(expression)转换为Single型CStr(expression)转换为String型CVar(expression)转换为Variant型Val(string)转换为数据型Str(number)转换为String五．时间函数Now返回一个Variant(Date)，根据计算机系统设置的日期和时间来指定日期和时间。Date返回包含系统日期的Variant(Date)。Time返回一个指明当前系统时间的Variant(Date)。Timer返回一个Single，代表从午夜开始到现在经过的秒数。TimeSerial(hour,minute,second)返回一个Variant(Date)，包含具有具体时、分、秒的时间。DateDiff(interval,date1,date2[,firstdayofweek[,firstweekofyear]])返回Variant(Long)的值，表示两个指定日期间的时间间隔数目Second(time)返回一个Variant(Integer)，其值为0到59之间的整数，表示一分钟之中的某个秒Minute(time)返回一个Variant(Integer)，其值为0到59之间的整数，表示一小时中的某分钟Hour(time)返回一个Variant(Integer)，其值为0到23之间的整数，表示一天之中的某一钟点Day(date)返回一个Variant(Integer)，其值为1到31之间的整数，表示一个月中的某一日Month(date)返回一个Variant(Integer)，其值为1到12之间的整数，表示一年中的某月Year(date)返回Variant(Integer)，包含表示年份的整数。Weekday(date,[firstdayofweek])返回一个Variant(Integer)，包含一个整数，代表某个日期是星期几第十三节文件操作文件Dir[(pathname[,attributes])]；pathname可选参数，用来指定文件名的字符串表达式，可能包含目录或文件夹、以及驱动器。如果没有找到pathname，则会返回零长度字符串("");attributes可选参数。常数或数值表达式，其总和用来指定文件属性。如果省略，则会返回匹配pathname但不包含属性的文件。删除Killpathname从磁盘中删除文件,pathname参数是用来指定一个文件名RmDirpathname从磁盘中删除目录，pathname参数是用来指定一个文件夹打开OpenpathnameFormode[Accessaccess][lock]As[#]filenumber[Len=reclength]能够对文件输入/输出(I/O)。pathname必要。字符串表达式，指定文件名，该文件名可能还包括目录、文件夹及驱动器。6页面16VBA语言基础橄榄树整理mode必要。关键字，指定文件方式，有Append、Binary、Input、Output、或Random方式。如果未指定方式，则以Random访问方式打开文件。access可选。关键字，说明打开的文件可以进行的操作，有Read、Write、或ReadWrite操作。lock可选。关键字，说明限定于其它进程打开的文件的操作，有Shared、LockRead、LockWrite、和LockReadWrite操作。filenumber必要。一个有效的文件号，范围在1到511之间。使用FreeFile函数可得到下一个可用的文件号。reclength可选。小于或等于32，767（字节）的一个数。对于用随机访问方式打开的文件，该值就是记录长度。对于顺序文件，该值就是缓冲字符数。说明对文件做任何I/O操作之前都必须先打开文件。Open语句分配一个缓冲区供文件进行I/O之用，并决定缓冲区所使用的访问方式。如果pathname指定的文件不存在，那么，在用Append、Binary、Output、或Random方式打开文件时，可以建立这一文件。如果文件已由其它进程打开，而且不允许指定的访问类型，则Open操作失败，而且会有错误发生。如果mode是Binary方式，则Len子句会被忽略掉。重要在Binary、Input和Random方式下可以用不同的文件号打开同一文件，而不必先将该文件关闭。在Append和Output方式下，如果要用不同的文件号打开同一文件，则必须在打开文件之前先关闭该文件。读入Input#filenumber,varlist从已打开的顺序文件中读出数据并将数据指定给变量Get[#]filenumber,[recnumber],varname将一个已打开的磁盘文件读入一个变量之中。写入Write#filenumber,[outputlist]将数据写入顺序文件Print#filenumber,[outputlist]将格式化显示的数据写入顺序文件中Put[#]filenumber,[recnumber],varname将一个变量的数据写入磁盘文件中。关闭Close[filenumberlist]关闭Open语句所打开的输入/输出(I/O)文件注意如果今后想用Input#语句读出文件的数据，就要用Write#语句而不用Print#语句将数据写入文件。因为在使用Write#时，将数据域分界就可确保每个数据域的完整性，因此可用Input#再将数据读出来。使用Write#还能确保任何地区的数据都被正确读出。Write与Print#语句不同，当要将数据写入文件时，Write#语句会在项目和用来标记字符串的引号之间插入逗号。Write#语句在将outputlist中的最后一个字符写入文件后会插入一个新行字符，即回车换行符，(Chr(13)+Chr(10))。其他文件函数LOF(filenumber)返回一个Long，表示用Open语句打开的文件的大小，该大小以字节为单位。EOF(filenumber)返回一个Integer，它包含Boolean值True，表明已经到达为Random或顺序Input打开的文件的结尾。Loc(filenumber)返回一个Long，在已打开的文件中指定当前读/写位置Seek(filenumber)返回一个Long，在Open语句打开的文件中指定当前的读/写位7页面17VisualBASIC程序设计网络教学橄榄树整理二、VisualBASIC程序设计网络教学第一课VBA是什么1.1VBA是什么直到90年代早期,使应用程序自动化还是充满挑战性的领域.对每个需要自动化的应用程序,人们不得不学习一种不同的自动化语言.例如:可以用EXCEL的宏语言来使EXCEL自动化,使用WORDBASIC使WORD自动化,等等.微软决定让它开发出来的应用程序共享一种通用的自动化语言VisualBasicForApplication(VBA),可以认为VBA是非常流行的应用程序开发语言VASUALBASIC的子集.实际上VBA是"寄生于"VB应用程序的版本.VBA和VB的区别包括如下几个方面:1.VB是设计用于创建标准的应用程序,而VBA是使已有的应用程序(EXCEL等)自动化2.VB具有自己的开发环境,而VBA必须寄生于已有的应用程序.3.要运行VB开发的应用程序,用户不必安装VB,因为VB开发出的应用程序是可执行文件(*.EXE),而VBA开发的程序必须依赖于它的"父"应用程序,例如EXCEL.尽管存在这些不同,VBA和VB在结构上仍然十分相似.事实上,如果你已经了解了VB,会发现学习VBA非常快.相应的,学完VBA会给学习VB打下坚实的基础.而且,当学会在EXCEL中用VBA创建解决方案后,即已具备在WORDACCESSOUTLOOKFOXPROPROWERPOINT中用VBA创建解决方案的大部分知识.*VBA一个关键特征是你所学的知识在微软的一些产品中可以相互转化.*VBA可以称作EXCEL的"遥控器".VBA究竟是什么?更确切地讲,它是一种自动化语言,它可以使常用的程序自动化,可以创建自定义的解决方案.此外,如果你愿意,还可以将EXCEL用做开发平台实现应用程序.1.2EXCEL环境中基于应用程序自动化的优点也许你想知道VBA可以干什么?使用VBA可以实现的功能包括:1.使重复的任务自动化.2.自定义EXCEL工具栏,菜单和界面.3.简化模板的使用.4.自定义EXCEL,使其成为开发平台.5.创建报表.6.对数据进行复杂的操作和分析.用EXCEL作为开发平台有如下原因:1.EXCEL本身功能强大,包括打印,文件处理,格式化和文本编辑.2.EXCEL内置大量函数.3.EXCEL界面熟悉.4.可连接到多种数据库.用其他语言开发应用程序,一半的工作是编写一些基本功能的模块,包括文件的打开和保存,打印,复制等.而用EXCEL作为开发平台,则由于EXCEL已经具备这些基本功能,你要做的只是使用它.1.3录制简单的宏在介绍学习VBA之前，应该花几分钟录制一个宏。新术语："宏"，指一系列EXCEL能够执行的VBA语句。以下将要录制的宏非常简单，只是改变单元格颜色。请完成如下步骤：1)打开新工作簿，确认其他工作簿已经关闭。2)选择A1单元格。调出"常用"工具栏。3)选择"工具"-"宏"-"录制新宏"。4)输入"改变颜色"作为宏名替换默认宏名，单击确定,注意，此时状态栏中显示"录制"，特别是"停止录制"工具栏也显示出来。替换默认宏名主要是便于分别这些宏。★宏名最多可为255个字符，并且必须以字母开始。其中可用的字符包括：字母、数字和1页面18VisualBASIC程序设计网络教学橄榄树整理下划线。宏名中不允许出现空格。通常用下划线代表空格。5)选择"格式"的"单元格"，选择"图案"选项中的红色,单击"确定"。6)单击"停止录制"工具栏按钮，结束宏录制过程。※如果"停止录制"工具栏开始并未出现，请选择"工具"-"宏"-"停止录制"。录制完一个宏后就可以执行它了。1.4执行宏当执行一个宏时，EXCEL按照宏语句执行的情况就像VBA代码在对EXCEL进行"遥控"。但VBA的"遥控"不仅能使操作变得简便，还能使你获得一些使用EXCEL标准命令所无法实现的功能。而且，一旦熟悉了EXCEL的"遥控"，你都会奇怪自己在没有这些"遥控"的情况下，到底是怎么熬过来的。要执行刚才录制的宏，可以按以下步骤进行：1）选择任何一个单元格，比如A3。2）选择"工具"-"宏"-"宏"，显示"宏"对话框。3）选择"改变颜色"，选择"执行"，则A3单元格的颜色变为红色。试着选择其它单元格和几个单元格组成的区域，然后再执行宏，以便加深印象。1.5查看录制的代码到底是什么在控制EXCEL的运行呢?你可能有些疑惑.好,让我们看看VBA的语句吧.1）选择"工具"-"宏"-"宏"，显示"宏"对话框。2）单击列表中的"改变颜色",选择"编辑"按钮。此时，会打开VBA的编辑器窗口（VBE）。关于该编辑器，以后再详细说明，先将注意力集中到显示的代码上。代码如下：（日期和姓名会有不同）Sub改变颜色()''改变颜色Macro'xw记录的宏2000-6-10''WithSelection.Interior.ColorIndex=3.Pattern=xlSolid.PatternColorIndex=xlAutomaticEndWithEndSub将来会十分熟悉这种代码，虽然现在它们看上去像一种奇怪的外语。学习VBA或编程语言在某种程度上比较像在学习一种外语。Sub改变颜色():这是宏的名称。中间的以"'"开头的五行称为"注释"，它在录制宏时自动产生。以With开头到EndWith结束的结构是With结构语句，这段语句是宏的主要部分。注意单词"selection"，它代表"突出显示的区域"（即：选定区域）。WithSelection.Interior：它读作"选择区域的的内部".这整段语句设置该区域内部的一些"属性"。其中：.ColorIndex=3:将该内部设为红色。注意：有一小圆点，它的作用在于简化语句，小圆点代替出现在With后的词,它是With结构的一部分。另外：红色被数字化为3.(红色警戒是否可称作：3号警戒，嗯？)有兴趣的话，你将3改为其他数字试试看。.Pattern=xlSolid：设置该区域的内部图案。由于是录制宏，所以，虽然你并未设置这一项，宏仍然将其记录下来(因为在"图案"选项中有此一项，只是你未曾设置而已）。xlSolid表示纯色。.PatternColorIndex=xlAutomatic：表示内部图案底纹颜色为自动配色。EndWith:结束With语句。EndSub:整个宏的结束语2页面19VisualBASIC程序设计网络教学橄榄树整理1.6编辑录制的代码在上一节，我们录制了一个宏并查看了代码，代码中有两句实际上并不起作用。哪两句？现在，在宏中作一个修改，删除多余行，直到和下面代码相同：Sub改变颜色()''改变颜色Macro'xw记录的宏2000-6-10''WithSelection.Interior.ColorIndex=3EndWithEndSub完成后，在工作表中试验一下。你会发现结果和修改前的状况一样。在With语句前加入一行:Range("A5").Select试着运行该宏,则无论开始选择哪个单元格,宏运行结果都是使A5单元格变红.现在可以看到，编辑录制的宏同样非常简单。需要编辑宏是因为以下三个方面的原因。一：在录制中出错而不得不修改。二：录制的宏中有多余的语句需要删除，提高宏的运行速度。三：希望增加宏的功能。比如：加入判断或循环等无法录制的语句。1.7录制宏的局限性希望自动化的许多EXCEL过程大多都可以用录制宏来完成.但是宏记录器存在以下局限性.通过宏记录器无法完成的工作有:1)录制的宏无判断或循环能力.2)人机交互能力差,即用户无法进行输入,计算机无法给出提示.3)无法显示EXCEL对话框.4)无法显示自定义窗体.1.8小结本课中,你已经掌握了VBA的一些基础知识,你会录制宏、编辑宏而且了解了录制宏的局限性.你很努力.并且已经为将来学习VBA甚至VB等编程语言打下了基础.关键是你已经了解了一个谜底,就是说,你了解了什么是编程.下面是些小练习,做完后才可以去玩哟.思考:1)VBA只能用于EXCEL吗?2)VBA是基于哪种语言?3)说说EXCEL和VBA的关系.4)为什么要用宏?第二课处理录制的宏2.1为宏指定快捷键你也许希望为经常使用的宏指定快捷键。快捷键是指键的组合，当其按下时执行一条命令。例如：CTRL+C在许多程序中代表"复制"命令。当给宏指定了快捷键后，就可以用快捷键来执行宏，而不必通过"工具"菜单。注意：当包含宏的工作簿打开时间，为宏指定快捷键会覆盖EXCEL默认的快捷键。例如：把CTRL+C指定给某个宏，那么CTRL+C就不再执行复制命令。用以下方法可以打印出EXCEL的快捷键清单（用A4纸打印共有24页之多）：1）打开EXCEL帮助文件并选择"目录"选项。2）从"使用快捷键"文件夹中选择""快捷键"标题。3）右击该标题，从快捷菜单中选择"打印"。4）选择"打印所选标题和所有子主题"，单击"确定"。3页面20VisualBASIC程序设计网络教学橄榄树整理可以在创建宏时指定快捷键，也可以在创建后再指定。要在创建（录制）宏时指定快捷键，只须在录制宏时在输入宏名后，在"快捷键"文本框中输入相应的键。录制宏后指定快捷键也很简单，只需选择"工具""宏"，显示"宏"对话框，选择要指定快捷键的宏，再单击"选项"按钮，通过"选项"对话框进行设置。2.2决定宏保存的位置宏可保存在三种可能的位置：1）当前工作簿。（只有该工作簿打开时，该宏才可用。）2）新工作簿。3）个人宏工作簿。2.3个人宏工作簿个人宏工作簿，是为宏而设计的一种特殊的具有自动隐藏特性的工作簿。第一次将宏创建到个人宏工作簿时，会创建名为"PERSONAL.XLS"的新文件。如果该文件存在，则每当EXCEL启动时会自动将此文件打开并隐藏在活动工作簿后面（在"窗口"菜单中选择"取消隐藏"后，可以很方便地发现它的存在。）如果你要让某个宏在多个工作簿都能使用，那么就应当创建个人宏工作簿，并将宏保存于其中。个人宏工作簿保存在"XLSTART"文件夹中。具体路径为：C:\WINDOWS\Profiles\ApplicationData\Microsoft\Excel\XLSTART。可以以单词"XLSTART"查询。注意：如果存在个人宏工作簿，则每当EXCEL启动时会自动将此文件打开并隐藏。因为它存放在XLSTART文件夹内。2.3.1保存宏到个人宏工作簿本练习,将保存一个简单的宏到个人宏工作簿,该宏为文本加下划线并改为斜体,步骤如下:1)建立一个名为"HOUR2"的工作簿，选择"工具"-"宏"-"录制新宏",显示"录制新宏"对话框.2)输入"格式化文本"作为宏名.3)从"保存在"下拉框中选择"个人宏工作簿".4)单击"确定"按钮.现在进入录制模式.5)单击"斜体"工具栏按钮.一段时间内,鼠标出现沙漏,特别是在第一次创建个人宏工作簿时,因为EXCEL在创建该工作簿.6)单击"下划线"按钮.7)停止录制.2.3.2使用并编辑个人宏工作簿中的宏刚才已经保存了一个宏到个人宏工作簿,现在可以在任何工作簿中使用该宏.可按如下步骤操作:1)关闭所有EXCEL工作簿.2)任意打开一个EXCEL文件.(EXCEL自动将个人宏工作簿同时打开并隐藏.)3)在A3中输入你的名字.4)选择"工具"-"宏",显示宏对话框.现在可以在宏列表中看到"格式化文本"这个宏.5)选择"格式化文本"宏,并执行.现在A3单元格中,你的名字变为斜体字还带有下划线.选择"窗口"-"取消隐藏",可以将PERSONAL.XLS显示出来,其中没有任何文字,但通过VBA编辑器可以在其中的模块中找到"格式化文本"这个宏.在VBA编辑器中可以对该宏进行直接编辑或者删除.如果PERSONAL.XLS中一个宏都没有,在启动EXCEL时仍会打开PERSONAL.XLS,这也许是EXCEL存在的一个小毛病.2.4将宏指定给按钮即使通过快捷键可以是宏的执行变快,但是一旦宏的数量多了也难于记忆,而且,如果宏是由其他人来使用,难道你要他们也记住那么多的快捷键吗?作为EXCEL开发者,一个主要的目标是为自动化提供一个易于操作的界面."按钮"是最常见的界面组成元素之一.通过使用"窗体"工具栏，可以为工作簿中的工作表添加按钮。在创建完一个按钮后，可以为它指定宏，然后你的用户就可以通过单击按钮来执行宏。在本练习中，将创建一个按钮，并为它指定一个宏，然后用该按钮来执行宏。具体步骤如下：1）打开"HOUR2"工作簿。2）调出"窗体"工具栏。4页面21VisualBASIC程序设计网络教学橄榄树整理3）单击"窗体"工具栏中的"按钮"控件，此时鼠标变成十字形状。4）在希望放置按钮的位置按下鼠标左键，拖动鼠标画出一个矩形，这个矩形代表了该按钮的大小。对大小满意后放开鼠标左键，这样一个命令按钮就添加到了工作表中，同时EXCEL自动显示"指定宏"对话框。5）从"指定宏"对话框中选择"格式化文本"，单击"确定"。这样，就把该宏指定给命令按钮。6）在按钮的标题"按钮1"前单击鼠标左键，按下DELETE直到删除所有文本，输入"格式化"作为标题。7）单击按钮外的任意位置，现在该按钮的标题由默认的"按钮1"变为"格式化"而且被指定了一个宏。8）试着在某个单元格中输入文本，单击按钮运行该宏。当鼠标移动至该按钮时自动变成手的形状，如果要改变其大小或标题，只需用右键单击该按钮就可以进行修改和设置。很明显，你再也不需记住宏的名字或快捷键了，只需按一下按钮。2.5将宏指定给图片或其他对象要执行宏有多种方法可以选择，可以将宏指定给按钮等控件，还可以指定给图片、自定义工具栏、窗体甚至可以将宏指定给某个"事件"，比如单击工作表，双击工作表，激活工作表，打开工作簿等等，"事件"是一个重要的概念，除此而外"方法""对象"都是将来你会经常接触到的。现在它们看来十分抽象，但是将来你会很熟悉这些词语。指定宏到图片十分简单，只需单击某个图片，单击快捷菜单中的"指定宏"进行设置即可。如果不希望在工作表上添加控件或图片执行宏，还有一种方法可以选择：将宏指定给"工具栏按钮"，可按如下步骤进行：1）打开"HOUR2"工作簿，选择"工具"-"定义"，显示"自定义工具栏"对话框。2）从"类别"列表框中选择"宏"，从"命令"列表框中选择"自定义按钮"。3）将"自定义按钮"拖动到工具栏。4）右键单击该按钮，选择"指定宏"，显示"指定宏"对话框。5）选择"格式化文本"并确定。6）单击"关闭"按钮，关闭"自定义工具栏"对话框。7）试着在某个单元格中输入文本，单击工具栏按钮运行该宏。2.6小结小结与思考：宏存放于三个可能的位置。个人宏工作簿存放的位置和特性。执行宏的方式。指定宏是为某个对象的事件指定一个程序，一旦这个对象以该事件激活，系统将运行指定的程序。常用的对象有：workbook,worksheet,range,cells,图表,图片,数据透视表,控件,窗体,工具栏.每一个对象都有其可以响应的特殊事件（也有一些通用事件如单击或双击等）。如有兴趣，可以通过EXCEL帮助文件查询这几个词条。在EXCEL中看到的几乎都是属于某个对象，而在EXCEL中所做的许多工作，如移动一下鼠标等等，都可能触发了一个事件。下一学时我们将共同学习"控件"。第三课学习控件3.1EXCEL开发过程简介需要对以下问题有个大致的概念.1)谁使用这决定了程序的操作难度及界面感观.2)数据来源和保存在哪里这决定了程序的结构.3)如何操作这将决定程序的界面和细节.4)数据处理的结果最终决定程序的价值.3.2认识不同的控件开始时请关闭所有工作簿,打开一个新工作簿并另存为"HOUR3".在工具栏上单击鼠标右键,从快捷菜单中选择"窗体",显示"窗体"工具栏.其中有16个控件，只有9个可放到工作表内。1）标签：它用于表现静态文本。2）分组框：它用于将其他控件进行组合。3）按钮：用于执行宏命令。5页面22VisualBASIC程序设计网络教学橄榄树整理4）复选框：它是一个选择控件，通过单击可以选择和取消选择，可以多项选择。5）选项按钮：通常几个选项按钮组合在一起使用，在一组中只能选择一个选项按钮。6）列表框：用于显示多个选项并从中选择。只能单选。7）组合框：用于显示多个选项并从中选择。可以选择其中的项目或者输入一个其它值。8）滚动条：不是你常见的来给很长的窗体添加滚动能力的控件，而是一种选择机制。例如调节过渡色的滚动条控件。包括水平滚动条和垂直滚动条。9）微调控件：也是一种数值选择机制，通过单击控件的箭头来选择数值。例如改变Windows日期或时间就会使用到微调控件。3.3向工作表添加控件用EXCEL设计界面十分简单,要将控件添加到工作表上,可以按以下步骤操作:1)创建新工作簿并另存为"HOUR3",显示"窗体"工具栏.2)选择"标签"控件.3)将鼠标定位到E1,此时鼠标变成小十字.4)按下左键,拖动大约四个单元格长度,放开鼠标左键.如果希望控件大小易于控制,可在创建该控件时按下ALT拖动.5)在标签1上单击右键,选择"编辑文字",现在可以输入文字.完成后,单击任何单元格退出文字编辑.6)通过以上步骤可以添加其它控件到工作表中,不再赘述.3.4设置控件的特性设置控件的特性,可以按以下步骤操作:1)选中先前创建的复选框控件,如果没有马上创建一个.2)右击该控件,选择"控制"选项卡.3)在"单元格链接"中输入A1并确定.4)单击任意单元格,退出设置.5)用鼠标左键单击复选框,A1出现TRUE,这意味着该控件被选中.再次单击该控件,A1出现FALSE.6)选择刚才创建的滚动条控件.并调出"设置控件格式"对话框.7)在"单元格链接"中输入A3并确定.8)在滚动条外任意单元格单击鼠标左键,使滚动条不被选择.9)用鼠标单击滚动条上的箭头,则A1的数值增加1,继续单击则A1的数值继续增加.10)保存并关闭该工作簿.3.5给控件命名当创建一个控件时EXCEL会自动给它指定一个名字,但不便于理解和记忆,为控件取名的方法基本和给单元格或区域取名的方法相同.选中某个控件,再在位于公式栏上的"名字"编辑框输入控件名字.这样就给控件更改了名字.3.6使用用户窗体如果希望创建专业级的应用程序,并且方便用户输入数据,那么应该使用用户窗体.用户窗体可以作为程序的对话框和窗口.向用户窗体添加控件基本类似于向工作表添加控件,然而第一步要创建一个用户窗体.这可以通过VBA编辑器实现.具体按以下步骤操作:1)打开"HOUR3"工作簿,选择"工具"-"宏"-"VBA编辑器",打开VBA编辑器.2)在VBA编辑器中选择工具栏上的"插入用户窗体"按钮或者选择"插入"菜单,从下拉菜单中选择"用户窗体"现在,VBA编辑器中出现一个名为"USERFORM1"的窗体,"控件工具箱"同时出现,在其中有许多已经熟悉的控件,另外还有一些新的控件.这些新的控件是:A)切换按钮:该控件如果被选中,那么会保持被按下的状态.如果再次单击它就恢复为没有按下的状态.EXCEL工具栏中有几个这样的按钮,例如:"全屏显示","加粗","下划线"以及"窗体"工具栏中的"切换网格"等.B)选项卡条(TabStrip):它是包含多个选项卡的控件.通常用来对相关的信息进行组织或分6页面23VisualBASIC程序设计网络教学橄榄树整理类.例如:你也许希望用选项卡条来显示各个地区的销售信息,可以给每个地区设置一个选项卡.在默认时,选项卡包含两页,分别叫做TAB1和TAB2,可以添加更多的选项卡.C)多页:外观类似选项卡条,是包含一页或多页的控件.选项卡条给人相似的外观,而多页控件的各页包含各自不同的控件,有各自不同的布局.多页的例子很多,例如:"设置控件格式"对话框和"工具"菜单中的"选项"对话框.以及"格式"菜单中的"单元格..."对话框.D)图像控件:它允许向窗体上放置图片.图片格式须为:*.bmp,*.cur,*.gif,*.ico,*.jpg,*.wmf.F)RefEdit:这是工具箱中默认情况下的最后一个控件。它外观象文本框，通过这个控件可以将用户窗体折叠起来，以便选择单元格区域。还记得在使用fx"粘贴函数"时的情况吗？通过实践，我们会逐渐掌握每个控件的特性，这的确需要花时间，但不必死记硬背。在对用户窗体设计得满意时，可以对其进行预览，方法是在VBA编辑器中选择该窗体，单击"运行"菜单中的三角符号"运行子过程/用户窗体"，三角符号在VBA工具栏上也可能看得到，旁边是一个垂直的等于符号，最右边是个小正方形符号，它们类似于录音机上的按钮。运行窗体的另一个方法是按F5键。小结：学习完本学时后，我们具备了用于程序界面设计的基本知识。我们对控件不在感到陌生，也明白如何向工作表和窗体添加控件,但控件的内容很多,需要边用边理解.此后，我们将从界面转移到学习编写代码，并最终将二者融合。让我们准备好学习编程吧！3.7疑难解答问题1.怎样决定控件的位置?如何选择添加到工作表还是添加到用户窗体?解答:这完全取决于个人的爱好和应用程序的用户.如果用户对EXCEL非常熟悉,那么他们也许更希望以工作表的方式操作.在这种情况下不妨直接在工作表上创建控件;如果你的用户对EXCEL不熟悉或者你需要给用户一个专业的界面感觉,那么应该使用用户窗体.问题2.什么情况下该用选项卡条而不是多页控件?解答:如果每一页具有相同布局,则应选择选项卡条,否则应该选择多页.本节作业1.思考：1）列举两种可以让用户进行多选一的控件。2）如何将控件与单元格链接起来。2.判断:1）只有在VBA编辑器中才能添加用户窗体。2）在VBA编辑器中看到的窗体网格线在运行时会自动显示。3.填空:()是显示静态文本的控件。第四课理解变量和变量的作用4.1代码存在的位置：模块VBA代码必须存放在某个位置，这个地方就是模块。有两种基本类型的模块：标准模块和类模块。模块中的每个过程或者是函数过程，或者是子程序概念.本课的最后部分将讨论函数过程和子程序的区别。新术语：模块：它是作为一个单元保存在一起的VBA定义和过程的集合。类模块：VBA允许你创建自己的对象，对象的定义包含在类模块中。你的大部分工作集中在标准模块中（简称为模块）当录制宏时如果不存在模块，EXCEL自动创建一个。EXCEL和VBA不关心代码存放在哪一个模块中，只要代码存在于打开的工作簿中即可。4.2对模块的概览过程被定义为VBA代码的一个单元，过程中包括一系列用于执行某个任务或是进行某种计算的语句。工作簿的每个过程都有唯一的名字加以区分。有两种不同的过程：子程序和函数过程。子程序只执行一个或多个操作，而不返回数值。当录制完宏查看代码时，所看到的就是子程序。宏只能录制子程序，而不能录制函数过程。一个子程序的例子如清单4-1所示。程序清单4-1子程序的例子7页面24VisualBASIC程序设计网络教学橄榄树整理SubcmdSmallFont_Click()WithSelection.Font.Name="Arial".FontStyle="Regular".Size=16EndWithEndsub上面列出的过程实际上是一个事件过程。通过它的名字，就可以知道这是一个事件过程。这个过程的名字是由一个对象的名字CmdSmallFont和一个事件的名字Click组成的，两者之间用下划线分开。如果还不明白，可以告诉你，CmdSmallFont是一个命令按钮的名字。也就是说，当单击这个命令按钮时，就会运行这个事件过程。函数过程通常情况下称为函数，要返回一个数值。这个数值通常是计算的结果或是测试的结果，例如False或True.正如前面所说，可以用VBA创建自定义函数。实际上可以在工作表上使用你创建的函数。程序清单4-2是一个计算价格的10%为运费的简单例子。程序清单4-2简单的用户定义函数示例。PublicFunctionShipping(Price)Shipping=Price*0.1EndFunction请注意，这个函数使用一个参数（Price).子程序和函数都可以使用参数。不论Price的值是多少，它都将决定运费额。Price可以是数字和单元格引用。函数返回计算出来的运费，这个函数可以用在单元格中。AB1Price1002Shipping=shipping(B1)4.2.1创建过程创建第一个过程需要两个基本步骤。首先，需要向工作簿中添加一个模块。接着需要向模块中添加一个工程。对于创建的每一个应用程序，只需添加一次模块。可以使用多个模块，但这是不必要的。某些开发者喜欢使用多个模块，以便根据他们的目的或者窗体对过程进行组织。在本练习中，创建的过程只显示一个消息框。在本练习中创建的过程只显示一个消息框。在本练习中使用Msgbox是为了提供一个可见的例子，虽然我们还没有介绍过Msgbox语句，但是在本例中将使用它。要创建该过程，请按如下步骤进行：1）打开一个新工作簿。2）选择"工具"-"宏"-"VisualBasic编辑器"，打开VBA编辑器窗口。3）在`VBA编辑器的左面，可以看到"工程资源管理器"窗口。在工程资源管理器窗口的"Thisworkbook"上单击鼠标右键，选择"插入"-"模块"，这样就将一个模块添加到应用程序中了。(如果你没有看见"工程资源管理器"窗口，可以按Ctrl+R)4）选择"插入""过程"，显示"添加过程"对话框。5）输入"第一个工程"作为过程名字。在"类型"分组框中，确认选择了"子程序"。单击"确定"按钮。这样一个新的过程就添加到模块中了。可以在模块中看到以PublicSub第一个过程（）开始，以EndSub结束的语句结构。6）在过程中插入光标，输入以下语句并回车：Msgbox"这是我的第一个过程"在输入Msgbox后，会自动弹出一个消息框告诉你有关这条命令的信息，称之为自动列表技术。输入完成的过程如下所示：PublicSub第一个过程（）Msgbox"这是我的第一个过程"EndSubVBA对子程序和函数有如下的命名规则：*名字中可以包含字母数字和下划线。*名字中不能包含空格句号惊叹号，也不能包含字符@&$#.*名字最多可以包含255个字符。8页面25VisualBASIC程序设计网络教学橄榄树整理4.2.2运行宏创建这个过程后，可以运行一下。运行一个过程有几种方法：可以直接使用"运行"菜单，"运行子程序/用户窗体"工具栏按钮或按下F5键。要运行一个过程，可以按照如下步骤：1）单击"运行子程序/用户窗体"工具栏按钮，过程执行并显示一个消息框。2）单击消息框之中的"确定"按钮，关闭该消息框。4.3保存对模块所做的改变要保存新过程,需要保存过程所驻留的工作簿.可以用VBA编辑器保存工作簿.具体步骤如下:1)选择"文件"-"保存工作簿".因为本工作簿还没有保存过,所以要给它命名.2)输入"HOUR4"作为文件名并按回车键,则工作簿和模块与过程都保存下来了.第四课理解变量和变量的作用ExcelHome4.4变量变量是用于临时保存数值的地方.每次应用程序运行时,变量可能包含不同的数值,而在程序运行时,变量的数值可以改变.为了说明为什么需要变量,可以按照如下步骤创建一个简单的过程:1)创建一个名为"你叫什么名字"的过程.2)在过程中输入如下代码:Inputbox"输入你的名字:"现在不要担心inputbox语句的语法,将在第六学时中了解到有关这条命令的更多信息.3)按下F5键运行过程,这时会显示一个输入框,要求输入你的名字.4)输入你的名字并按"确定"按钮,则结束该过程.你输入的名字到那里去了?如何找到用户在输入框中输入的信息?在这种情况下,需要使用变量来存储用户输入的结果.4.4.1变量的数据类型使用变量的第一步是了解变量的数据类型.变量的数据类型控制变量允许保存何种类型的数据.表4-1列出了VBA支持的数据类型,还列出了各种类型的变量所需要的存储空间和能够存储的数值范围.数据类型存储空间数值范围Byte1字节0-255Booleam2字节True或者FalseInteger2字节-32768-32767Long(长整型)4字节-2147483648-2147483647Single4字节负值范围:-3.402823E38--1.401298E-45正值范围:1.401298E-45-3.402823E38Double8字节负值范围:-1.79769313486232E308--494065645841247E-324正值范围:4.94065645841247E-324-1.79769313486232E308Currency8字节-922337203685477-922337203685477Decimal14字节不包括小数时:+/-79228162514264337593543950335包括小数时:+/7.9228162514264337593543950335Date8字节1000年1月1日-9999年12月31日Object4字节任何引用对象String(长字符串）10字节+1字节/字符0-约20亿String(固定长度）字符串的长度1-约65400Varient（数字）16字节Double范围内的任何数值Varient（文本）22字节+1字节/字符数据范围和变长字符串相同表4-1VBA数据类型作为ABV程序员，一个目标是选择需要存储空间尽量小的数据类型来保存所需要的数据，这正是表4-1提供各种数据类型存储空间的原因。例如，要保存诸如班级学生总数这样的小数9页面26VisualBASIC程序设计网络教学橄榄树整理字，那么Byte数据类型就足够了。在这种情况下，使用Single数据类型只是对计算机存储空间的浪费。4.4.2用Dim语句创建变量(声明变量)现在,你对变量可以使用的数据类型已经比较熟悉了,以下我们将创建变量.创建变量可以使用Dim语句,创建变量通常成为"声明变量"Dim语句的基本语法如下:Dim变量名AS数据类型这条语法中的变量名代表将要创建的变量名.对变量的命名规则和对过程的命名规则相同.这条语句中的数据类型部分可以是表4-1中的任何一种数据类型.变量名必须以字母开始,并且只能包含字母数字和特定的特殊字符,不能包含空格句号惊叹号,也不能包含字符@&$#.名字最大长度为255个字符在接下来的练习中将说明如何在VBA中使用变量,你将要输入你的名字,并用一个消息框将其显示出来.具体步骤如下:1)创建一个名为"显示你的名字"的子程序.2