最棒最经典Excel-VBA程序设计

目录TOC\o"1-3"\h\z一、VBA语言根底1第一节标识符1第二节运算符1第三节数据类型1第四节变量与常量1第五节数组2第六节注释和赋值语句2第七节书写标准2第八节判断语句2第九节循环语句3第十节其他类语句和错误语句处理4第十一节过程和函数4一．Sub过程5二．Function函数5三．Property属性过程和Event事件过程5第十二节内部函数5一．测试函数5二．数学函数6三．字符串函数6四．转换函数6五．时间函数6第十三节文件操作7文件7删除7翻开7读入7写入7关闭8其他文件函数8二、VisualBASIC程序设计网络教学1第一课VBA是什么11.1VBA是什么11.2EXCEL环境中基于应用程序自动化的优点11.3录制简单的宏21.4执行宏21.5查看录制的代码21.6编辑录制的代码31.7录制宏的局限性41.8小结4第二课处理录制的宏42.1为宏指定快捷键42.2决定宏保存的位置52.3个人宏工作簿52.3.1保存宏到个人宏工作簿52.3.2使用并编辑个人宏工作簿中的宏52.4将宏指定给按钮62.5将宏指定给图片或其他对象62.6小结7第三课学习控件73.1EXCEL开发过程简介73.2认识不同的控件73.3向工作表添加控件73.4设置控件的特性83.5给控件命名83.6使用用户窗体83.7疑难解答9第四课理解变量和变量的作用94.1代码存在的位置：模块94.2对模块的概览104.2.1创立过程104.2.2运行宏114.3保存对模块所做的改变114.4变量114.4.1变量的数据类型114.4.2用Dim语句创立变量(声明变量)134.4.3变量命名的惯例134.4.4使用数组144.4.5变量赋值15第五课利用VBA设置工作表使用权限151．使用With语句。172．使用对象变量。17方法3：减少对象的激活和选择17方法4：关闭屏幕更新18第六课提高Excel中VBA的效率19方法1：尽量使用VBA原有的属性、方法和Worksheet函数19方法2：尽量减少使用对象引用，尤其在循环中191．使用With语句。192．使用对象变量。203．在循环中要尽量减少对象的访问。20方法3：减少对象的激活和选择20方法4：关闭屏幕更新20第七课如何在Excel里使用定时器20三、学习微软Excel2002VBA编程和XML，ASP技术22第一章电子表格自动化简介和了解宏命令221了解宏222宏命令的普通应用223写宏之前的方案234录制宏245运行宏256修改宏代码267添加注释298分析宏代码299去除宏代码3010测试修改好的宏3111两个层面运行宏的方法3112完善你的宏代码3213重新命名宏3414运行宏的其它方法3415使用键盘快捷键运行宏3416通过菜单运行宏3517通过工具栏按钮运行宏3718通过工作表里面的按钮运行宏3819保存宏3920打印宏3921保存宏在个人宏工作簿3922翻开含有宏的工作簿4123VB编辑窗口4224了解工程浏览窗口4225了解属性窗口4326了解代码窗口4327VB编辑器里的其它窗口4528接下来……46第二章VBA第一步461了解指令，模块和过程462VBA工程命名463模块重命名474从其它工程调用过程485了解对象，属性和方法496学习对象，属性和方法507句法和文法528打断很长的VBA语句549了解VBA错误5410查找帮助5611语法和编程快捷助手5712属性/方法列表5813常数列表5814参数信息5915快速信息5916自动完成关键字5917缩进/凸出6018设置注释块/解除注释块6019使用对象浏览器6020使用VBA对象库6521用对象浏览器来定位过程6622使用立即窗口6623获取立即窗口里的信息6824学习对象6825电子表格单元格操作6926使用Range属性6927使用Cells属性6928使用Offset属性7029选择单元格的其它方法7130选择行和列7131获取工作表信息7232往工作表输入数据7233返回工作表中的信息7234单元格格式7235移动，复制和删除单元格7336操作工作簿和工作表7337操作窗口〔Windows〕7438管理Excel应用程序7539接下来……75第三章了解变量，数据类型和常量751保存VBA语句的结果762变量是什么763数据类型764如何产生变量775如何声明变量776明确变量的数据类型797变量赋值808强制声明变量829了解变量范围8310过程级别〔当地〕变量8311模块级别变量8312工程级别变量8413变量的存活期8514了解和使用静态变量8515声明和使用对象变量8616使用明确的对象变量8617查找变量定义8718在VB过程里面使用常量8719内置常量8720接下来……88第四章VBA过程：子程序和函数891.关于函数过程892.创立函数过程893.执行函数过程914.从工作表里运行函数过程915.从另外一个VBA过程里运行函数过程936.传递参数937.明确参数类型948.按地址和按值传递参数959.使用可选的参数9610.定位内置函数9711.使用MsgBox函数9812.MsgBox函数的运行值10213.使用InputBox函数10214.数据类型转变10415.使用InputBox方法10516.使用主过程和子过程10717.接下来……109第五章基于VBA做决定1091.关系和逻辑运算符1102.If…Then语句1103.基于多于一个条件的决定1124.TheIf…Then…Else语句1135.If…Then…ElseIf语句1166.嵌套的If…Then语句1177.SelectCase语句1188.和Case子句一起使用Is1199.确定Case子句里数值的范围12010.在Case子句里确定多个表达式12111.接下来…121第六章在VBA中重复操作1211.DoLoops:Do…While和Do…Until1212.观察过程执行1243.While…Wend循环1254.For…Next循环1265.ForEach…Next循环1277.提前跳出循环1288.循环嵌套1299.接下来…129第七章利用VBA数组管理数据清单和表格1291.了解数组1302.声明数组1313.数组的上界和下界1314.在VBA过程里使用数组1315.数组和循环语句1326.使用二维数组1347.静态和动态数组1358.数组函数1369.Array函数13710.IsArray函数13711.Erase函数13812.LBound函数和UBound函数13813.数组中的错误13914.数组作为参数14115.接下来…141第八章利用VBA操纵文件和文件夹1411.获取当前文件夹的名称〔CurDir函数〕1422.更改文件或文件夹名称〔Name函数〕1423.检查文件或文件夹是否存在〔Dir函数〕1434.获得文件修改的日期和时间〔FileDateTime函数〕1445.获得文件大小〔FileLen函数〕1456.返回和设置文件属性〔GetAttr函数和SetAttr函数〕1457.更改缺省文件夹或驱动器〔ChDir语句和ChDrive语句〕1468.创立和删除文件夹〔MkDir语句和RmDir语句〕1469.复制文件〔FileCopy语句〕14710.删除文件〔Kill语句〕14811.从文件读取和写入数据〔Input/Output〕14912.文件访问类型14913.使用顺序文件14914.读取储存于顺序文件里的数据14915.逐行读取文件15016.从顺序文件中读取字符15117.读取分隔文本文件15218.往顺序文件里写数据15319.使用Write#和Print#语句15320.操作随机文件15421.创立用户定义的数据类型15522.操作二进制文件15823.操作文件和文件夹的时髦方法15924.使用WSH获取文件信息16125.FileSystemObjec的方法和属性16226.对象File的属性16527.文件夹对象属性16528.驱动器对象属性16629.使用WSH创立文本文件16730.使用WSH进行其它操作16831.运行其它应用程序16932.创立快捷方式16933.接下来……171第九章利用VBA控制其它应用程序1711.启动应用程序1712.在应用程序之间切换1733.控制其它应用程序1744.控制应用程序的其它方法1755.了解自动控制1766.了解链接和嵌入1767.使用VBA进行链接和嵌入1778和自动控制1789.了解绑定17810.后期绑定17811.早期绑定17812.建立到对象库的引用17913.创立自动控制对象18014.使用CreateObject函数18015.使用自动控制创立一个新的Word文档18116.使用GetObject函数18117.翻开存在的Word文档18218.使用关键字New18319.使用自动控制访问MicrosoftOutlook18420.接下来……185第十章对话框和自定义窗体1851.文件翻开和另存为对话框1882.GetOpenFilename和GetSaveAsFilename方法1923.创立窗体1934.创立用户窗体的工具1945.标签1956.文字框1957.框架1968.选项按钮1969.复选框19610.切换按钮19611.列表框19612.复合框19613.滚动条19614.旋转按钮19715.图像19716.多页控件19717.TabStrip控件19718.RefEdit控件19719.在窗体上放置控件19720.应用程序例如1：信息调查19821.在窗体上添加按钮、选项框和其它控件19922.更改控件名称20123.设置其它控件属性20224.准备工作表以储存窗体数据20225.显示自定义窗体20326.设置Tab顺序20427.了解窗体和控件事件20428.编写VBA过程对窗体和控件事件反响20629.编写过程来初始化窗体20630.编写过程填充列表框控件20831.编写过程控制选项按钮20832.编写过程同步文字框和旋转按钮20933.编写过程关闭用户窗体20934.转移窗体数据到工作表21035.使用InfoSurvey应用程序21136.应用程序例如2：学生和考试21137.使用多页和TabStrip控件21138.给窗体StudentsandExams自定义窗体编写VBA过程21339.使用自定义窗体StudentsandExams21740.接下来……220第十一章自定义集合和类模块2201.使用集合2202.声明自定义集合2213.给自定义集合添加对象2214.从自定义集合移出对象2225.创立自定义对象2236.创立类2247.变量声明2248.定义类的属性2249.创立PropertyGet过程22510.创立PropertyLet过程22511.创立类方法22612.创立类的例如22713.类模块里的事件过程22714.创立用户界面22715.观察VBA过程的执行23616.接下来……238一、VBA语言根底ZhouJibin2004-11-30第一节标识符一．定义标识符是一种标识变量、常量、过程、函数、类等语言构成单位的符号，利用它可以完成对变量、常量、过程、函数、类等的引用。二．命名规那么字母打头，由字母、数字和下划线组成，如A987b_23Abc字符长度小于40，〔Excel2002以上中文版等，可以用汉字且长度可达254个字符〕不能与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类型'定义为局部变量，如Dim xyzasintegerPrivate 变量as类型'定义为私有变量，如Private xyzasbytePublic 变量as类型'定义为公有变量，如Public xyzassingleGlobal 变量as类型'定义为全局变量，如Globlal xyzasdateStatic 变量as类型'定义为静态变量，如Static xyzasdouble一般变量作用域的原那么是，那部份定义就在那部份起作用，模块中定义那么在该模块那作用。4〕常量为变量的一种特例，用Const定义，且定义时赋值，程序中不能改变值，作用域也如同变量作用域。如下定义：ConstPi=3.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中有两种方法标识为注释语句。单引号’;如：’定义全局变量；可以位于别的语句之尾，也可单独一行Rem;如：Rem定义全局变量；只能单独一行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“A101Price=200Case“A102Price=300……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语句以指定次数来重复执行一组语句Forcounter=startToend[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：ForEachrang2InWitherior.colorindex=6.pattern=xlSolidEndwithNext这上面一例中用到了With…EndWith语句，目的是省去对象屡次调用，加快速度；语法为：Withobject[statements]EndWith3〕Do…loop语句在条件为true时，重复执行区块命令Do{while|until}condition'while为当型循环，until为直到型循环，顾名思义，不多说啦StatementsExitdoStatementsLoop或者使用下面语法Do '先do再判断，即不管如何先干一次再说StatementsExitdoStatementsLoop{while|until}condition第十节其他类语句和错误语句处理一．其他循环语句结构化程序使用以上判断和循环语句已经足够，建议不要轻易使用下面的语句，虽然VBA还支持。Gotoline该语句为跳转到line语句行Onexpressiongosubdestinatioinlist或者onexpressiongotodestinationlist语句为根据exprssion表达式值来跳转到所要的行号或行标记Gosubline…line…Return语句，Return返回到Gosubline行，如下例：Subgosubtry()DimnumNum=inputbox(“输入一个数字，此值将会被判断循环”)Ifnum>0thenGosubRoutine1：Debug.printnum：ExitsubRoutine1:Num=num/5ReturnEndsubwhile…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…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) 转换为大写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必要。字符串表达式，指定文件名，该文件名可能还包括目录、文件夹及驱动器。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语句翻开的文件中指定当前的读/写位二、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个字符，并且必须以字母开始。其中可用的字符包括：字母、数字和下划线。宏名中不允许出现空格。通常用下划线代表空格。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:整个宏的结束语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〕选择"打印所选标题和所有子主题"，单击"确定"。可以在创立宏时指定快捷键，也可以在创立后再指定。要在创立〔录制〕宏时指定快捷键，只须在录制宏时在输入宏名后，在"快捷键"文本框中输入相应的键。录制宏后指定快捷键也很简单，只需选择"工具""宏"，显示"宏"对话框，选择要指定快捷键的宏，再单击"选项"按钮，通过"选项"对话框进行设置。2.2决定宏保存的位置宏可保存在三种可能的位置：1〕当前工作簿。〔只有该工作簿翻开时，该宏才可用。〕2〕新工作簿。3〕个人宏工作簿。2.3个人宏工作簿个人宏工作簿，是为宏而设计的一种特殊的具有自动隐藏特性的工作簿。第一次将宏创立到个人宏工作簿时，会创立名为"PERSONAL.XLS"的新文件。如果该文件存在，那么每当EXCEL启动时会自动将此文件翻开并隐藏在活开工作簿后面〔在"窗口"菜单中选择"取消隐藏"后，可以很方便地发现它的存在。〕如果你要让某个宏在多个工作簿都能使用，那么就应当创立个人宏工作簿，并将宏保存于其中。个人宏工作簿保存在"XLSTART"文件夹中。具体路径为：C:\WINDOWS\Profiles\ApplicationData\Microsoft\Excel\XLSTART。可以以单词"XLSTART"查询。注意：如果存在个人宏工作簿，那么每当EXCEL启动时会自动将此文件翻开并隐藏。因为它存放在XLSTART文件夹内。保存宏到个人宏工作簿本练习,将保存一个简单的宏到个人宏工作簿,该宏为文本加下划线并改为斜体,步骤如下:1)建立一个名为"HOUR2"的工作簿，选择"工具"-"宏"-"录制新宏",显示"录制新宏"对话框.2)输入"格式化文本"作为宏名.3)从"保存在"下拉框中选择"个人宏工作簿".4)单击"确定"按钮.现在进入录制模式.5)单击"斜体"工具栏按钮.一段时间内,鼠标出现沙漏,特别是在第一次创立个人宏工作簿时,因为EXCEL在创立该工作簿.6)单击"下划线"按钮.7)停止录制.使用并编辑个人宏工作簿中的宏刚刚已经保存了一个宏到个人宏工作簿,现在可以在任何工作簿中使用该宏.可按如下步骤操作: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〕调出"窗体"工具栏。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〕按钮：用于执行宏命令。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):它是包含多个选项卡的控件.通常用来对相关的信息进行组织或分类.例如:你也许希望用选项卡条来显示各个地区的销售信息,可以给每个地区设置一个选项卡.在默认时,选项卡包含两页,分别叫做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子程序的例子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)创立过程创立第一个过程需要两个根本步骤。首先，需要向工作簿中添加一个模块。接着需要向模块中添加一个工程。对于创立的每一个应用程序，只需添加一次模块。可以使用多个模块，但这是不必要的。某些开发者喜欢使用多个模块，以便根据他们的目的或者窗体对过程进行组织。在本练习中，创立的过程只显示一个消息框。在本练习中创立的过程只显示一个消息框。在本练习中使用Msgbox是为了提供一个可见的例子，虽然我们还没有介绍过Msgbox语句，但是在本例中将使用它。要创立该过程，请按如下步骤进行：1〕翻开一个新工作簿。2〕选择"工具"-"宏"-"VisualBasic编辑器"，翻开VBA编辑器窗口。3〕在`VBA编辑器的左面，可以看到"工程资源管理器"窗口。在工程资源管理器窗口的"Thisworkbook"上单击鼠标右键，选择"插入"-"模块"，这样就将一个模块添加到应用程序中了。(如果你没有看见"工程资源管理器"窗口，可以按Ctrl+R)4〕选择"插入""过程"，显示"添加过程"对话框。5〕输入"第一个工程"作为过程名字。在"类型"分组框中，确认选择了"子程序"。单击"确定"按钮。这样一个新的过程就添加到模块中了。可以在模块中看到以PublicSub第一个过程〔〕开始，以EndSub结束的语句结构。6〕在过程中插入光标，输入以下语句并回车：Msgbox"这是我的第一个过程"在输入Msgbox后，会自动弹出一个消息框告诉你有关这条命令的信息，称之为自动列表技术。输入完成的过程如下所示：PublicSub第一个过程〔〕Msgbox"这是我的第一个过程"EndSubVBA对子程序和函数有如下的命名规那么：*名字中可以包含字母数字和下划线。*名字中不能包含空格句号惊叹号，也不能包含字符@&$#.*名字最多可以包含255个字符。运行宏创立这个过程后，可以运行一下。运行一个过程有几种方法：可以直接使用"运行"菜单，"运行子程序/用户窗体"工具栏按钮或按下F5键。要运行一个过程，可以按照如下步骤：1〕单击"运行子程序/用户窗体"工具栏按钮，过程执行并显示一个消息框。2〕单击消息框之中的"确定"按钮，关闭该消息框。4.3保存对模块所做的改变要保存新过程,需要保存过程所驻留的工作簿.可以用VBA编辑器保存工作簿.具体步骤如下:1)选择"文件"-"保存工作簿".因为本工作簿还没有保存过,所以要给它命名.2)输入"HOUR4"作为文件名并按回车键,那么工作簿和模块与过程都保存下来了.第四课理解变量和变量的作用ExcelHome4.4变量变量是用于临时保存数值的地方.每次应用程序运行时,变量可能包含不同的数值,而在程序运行时,变量的数值可以改变.为了说明为什么需要变量,可以按照如下步骤创立一个简单的过程:1)创立一个名为"你叫什么名字"的过程.2)在过程中输入如下代码:Inputbox"输入你的名字:"现在不要担忧inputbox语句的语法,将在第六学时中了解到有关这条命令的更多信息.3)按下F5键运行过程,这时会显示一个输入框,要求输入你的名字.4)输入你的名字并按"确定"按钮,那么结束该过程.你输入的名字到那里去了?如何找到用户在输入框中输入的信息?在这种情况下,需要使用变量来存储用户输入的结果.变量的数据类型使用变量的第一步是了解变量的数据类型.变量的数据类型控制变量允许保存何种类型的数据.表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字节Date8字节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提供各种数据类型存储空间的原因。例如，要保存诸如班级学生总数这样的小数字，那么Byte数据类型就足够了。在这种情况下，使用Single数据类型只是对计算机存储空间的浪费。用Dim语句创立变量(声明变量)