文档介绍：该【Excel-VBA编程教程最新完整版 】是由【儒林】上传分享，文档一共【563】页，该文档可以免费在线阅读，需要了解更多关于【Excel-VBA编程教程最新完整版 】的内容，可以使用淘豆网的站内搜索功能，选择自己适合的文档，以下文字是截取该文章内的部分文字，如需要获得完整电子版，请下载此文档到您的设备，方便您编辑和打印。Excel-VBA编程教程最新完整版VBA语言基础橄榄树整理一、、常量、过程、函数、类等语言构成单位的符号,利用它可以完成对变量、常量、过程、函数、类等的引用。)字母打头,由字母、数字和下划线组成,如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自定义数据类型。数据类型类型标识符字节数组是包含相同数据类型的一组变量的集合,对数组中的单个变量引用通过数组索引下标进行。在内存中表现为一个连续的内存块,必须用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:=”我的窗口”对对象的赋值采用: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-----------------------页面12-----------------------VBA语言基础橄榄树整理……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:==xlSolidEndwithNext这上面一例中用到了With…EndWith语句,目的是省去对象多次调用,加快速度;语法为:Withobject[statements]EndWith3)Do…loop语句在条件为true时,重复执行区块命令Do{while|until}condition'while为当型循环,until为直到型循环,顾名思义,不多说啦StatementsExitdo3-----------------------页面13-----------------------VBA语言基础橄榄树整理StatementsLoop或者使用下面语法Do'先do再判断,即不论如何先干一次再说StatementsExitdoStatementsLoop{while|until},建议不要轻易使用下面的语句,虽然VBA还支持。1)Gotoline该语句为跳转到line语句行2)Onexpressiongosubdestinatioinlist或者onexpressiongotodestinationlist语句为根据exprssion表达式值来跳转到所要的行号或行标记3)Gosubline…line…Return语句,Return返回到Gosubline行,如下例:Subgosubtry()DimnumNum=inputbox(“输入一个数字,此值将会被判断循环”)Ifnum>0thenGosubRoutine1::ExitsubRoutine1:Num=num/5ReturnEndsub4)while…wend语句,只要条件为TRUE,循环就执行,这是以前VB老语法保留下来的,如下例:whilecondition‘whileI<50[statements]‘I=I+1wend‘,利用OnError语句来处理错误,启动一个错误的处理程序。语法如下:otoLine‘当错误发生时,会立刻转移到line行去OnErrorResumeNext‘当错误发生时,会立刻转移到发生错误的下一行去OnErroGoto0‘当错误发生时,会立刻停止过程中任何错误处理过程第十一节过程和函数过程是构成程序的一个模块,往往用来完成一个相对独立的功能。过程可以使程序更清晰、更具结构性。VBA具有四种过程:Sub过程、Function函数、Property属性过程和Event事件过程。:按值传递(ByVal)和按地址传递(ByRef)。如下例:Subpassword(ByValxasinteger,ByRefyasinteger)Ify=100theny=x+yelsey=x-yx=x+100EndsubSubcall_password()Dimx1asintegerDimy1asintegerx1=12y1=100Callpassword(x1,y1)‘调用过程方式:(参数1,参数2…);,参数2…4-----------------------页面14-----------------------,y1‘结果是12、112,y1按地址传递改变了值,而x1按值传递,,它通过一定的映射规则,完成运算并返回结果。参数传递也两种:按值传递(ByVal)和按地址传递(ByRef)。如下例:Functionpassword(ByValxasinteger,byrefyasinteger)asbooleanIfy=100theny=x+yelsey=x-yx=x+100ify=150thenpassword=trueelsepassword=falseEndFunctionSubcall_password()Dimx1asintegerDimy1asintegerx1=12y1=100ifpasswordthen‘调用函数:=右端;,与对象特征密切相关,也是VBA比较重要组成,技术比较复杂,可以参考相关书籍。第十二节内部函数在VBA程序语言中有许多内置函数,可以帮助程序代码设计和减少代码的编写工作。(x)‘是否为数字,返回Boolean结果,TrueorFalseIsDate(x)‘是否是日期,返回Boolean结果,TrueorFalseIsEmpty(x)‘是否为Empty,返回Boolean结果,TrueorFalseIsArray(x)‘指出变量是否为一个数组。IsError(expression)‘指出表达式是否为一个错误值IsNull(expression)‘指出表达式是否不包含任何有效数据(Null)。IsObject(identifier)‘指出标识符是否表示对象变量