Excel-VBA-快速上手

ExcelVBA快速上手之宝典zhoujibin2006年7月写于ExcelHome论坛目录第一章ExcelVBA简明语言之基础第一节标识符第二节运算符第三节数据类型第四节变量与常量第五节数组使用第六节注释和赋值语句第七节书写规范第八节条件语句第九节循环语句第十节其他类语句和错误语句处理第十一节过程和函数第十二节内部函数第二章ExcelVBA常用对象之使用第一节文件的操作1)Excel文件2)文本文件3)Access文件4)文件其它操作第二节工作表操作1)新建与删除2)隐藏与显示3)锁定与保护第三节单元格操作1)如何引用单元格和区域2)如何处理单元格和区域3)单元格和区域的定位4）单元格和区域的保护与锁定第四节图表的操作1)新建及类型2)设置图表的数据3)图表格式设置4)散点图增加系列和文字5)实例第三章ExcelVBA高级使用第一节WinAPI的使用1)堀明API函数2)使用API函数3)堀明补充说明4)实例第二节ExcelVBA程序的保密1)使用动态连接库DLL2)获得硬盘物理地址3)加密与注册第四章ExcelVBA优化及结束语第一节ExcelVBA优化第二节结束语附录IExcelVBA对象框架图第一章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-9999/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定义，且定义时赋值，程序中不能改变值，作用域也如同变量作用域。如下定义：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中有两种方法标识为注释语句。9单引号’;如：’定义全局变量；可以位于别的语句之尾，也可单独一行9Rem;如：Rem定义全局变量；只能单独一行2）赋值语句是进行对变量或对象属性赋值的语句，采用赋值号=，如X=123：Form1.caption=”我的窗口”对对象的赋值采用：setmyobject=object或myobject:=object第七节书写规范1）VBA不区分标识符的字母大小写，一律认为是小写字母；2）一行可以书写多条语句，各语句之间以冒号:分开；3）一条语句可以多行书写，以空格加下划线_来标识下行为续行；4）标识符最好能简洁明了，不造成歧义。第八节条件语句1）If…Then…Else语句IfconditionThen[statements][Elseelsestatements]如1：IfABAndCDThenA=B+2ElseA=C+2如2：Ifx250Thenx=x-100或者，可以使用块形式的语法：IfconditionThen[statements][ElseIfcondition-nThen[elseifstatements]...[Else[elsestatements]]EndIf如1:IfNumber10ThenDigits=1ElseIfNumber100ThenDigits=2ElseDigits=3EndIf2）SelectCase…Case…EndCase语句如1：SelectCasePidCase“A101”Price=200Case“A102”Price=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：ForEachrang2Inrange1Withrange2.interior.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还支持。1)Gotoline该语句为跳转到line语句行2)Onexpressiongosubdestinatioinlist或者onexpressiongotodestinationlist语句为根据exprssion表达式值来跳转到所要的行号或行标记3)Gosubline…line…Return语句，Return返回到Gosubline行，如下例：Subgosubtry()DimnumNum=inputbox(“输入一个数字，此值将会被判断循环”)Ifnum0thenGosubRoutine1：Debug.printnum：ExitsubRoutine1:Num=num/5ReturnEndsub4)while…wend语句，只要条件为TRUE，循环就执行，这是以前VB老语法保留下来的，如下例：whilecondition‘whileI50[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(ByV