ecel-VBA常用的100条语法.doc

VA语句集（第1辑)定制模块行为(1） OtionExlict 强制对模块内所有变量进行声明ptio Piv Mou 标记模块为私有,仅对同一工程中其它模块有用,在宏对话框中不显示Otonpar Tet 字符串不区分大小写Optionase 1 指定数组得第一个下标为1(2) On ErrRee xt 忽略错误继续执行VB代码,避免出现错误消息（） OnErrrGo rrorHndlr当错误发生时跳转到过程中得某个位置(）On Eo Go 0 恢复正常得错误提示(5) Alication、DisplayAlers=False 在程序执行过程中使出现得警告框不显示（6） Appicaton、reenUptingFlse 关闭屏幕刷新 pplctio、ScrenUdatingru 打开屏幕刷新(7)Apiato、Enale、ncelKyxDialed 禁用Crl+Brek中止宏运行得功能工作簿(8) orkooks、Ad() 创建一个新得工作簿(9) Wbooks（“bok1、xls”）、Actite 激活名为oo得工作簿(10) sWorkbook、Save 保存工作簿(11) ThWorboo、os 关闭当前工作簿(12) ActiveWoboo、Sheets、out 获取活动工作薄中工作表数(13) AtveWrkbook、nam 返回活动工作薄得名称（） Thsokboo、Na返回当前工作簿名称 ThisWorkbook、Fulae返回当前工作簿路径与名称（） Ativindow、EnableRi=Fls禁止调整活动工作簿得大小(1) Application、Wind、rge xlrrangeStylTed 将工作簿以平铺方式排列(7） AtiWorkbo、Widowte=xaxiized 将当前工作簿最大化工作表(18) AiveSeet、seRang、Rows、Count 当前工作表中已使用得行数（9） ows、ount获取工作表得行数(注:考虑向前兼容性)(0) Shet(he1)、Nae“m” 将Sheet1命名为Sum(2)ThsWrkk、hets、dd efore：=Wrksets(1） 添加一个新工作表在第一工作表前（22) AcveShet、o After:ActveWorkbok、_Shets(Actvekbo、Sheets、Cunt) 将当前工作表移至工作表得最后(23)Worksheets(Arry(“seet1”,”hee”)）、elc 同时选择工作表与工作表2（)Seets(“shet1”)、Delee或 Shes（1)、elee 删除工作表1（25) AtiveWokbok、Shes(i）、Name获取工作表i得名称（6)ActieWndow、DisplayGriines=NotctieWidow、splardl切换工作表中得网格线显示，这种方法也可以用在其它方面进行相互切换,即相当于开关按钮(2) ActiveWndo、DiayeadigsNot AcivWindow、DispHadings 切换工作表中得行列边框显示(2)Activheet、UsedRage、FormatCnitons、Deee 删除当前工作表中所有得条件格式(2)Cells、Hyeliks、elte取消当前工作表所有超链接（30)ActiveS、geSetup、Orientatio=xlLascape 或ActiveSeet、PaeSetup、rienation=2 将页面设置更改为横向（3) tivShet、Pageetu、ihtoteActieWorkbook、uNae 在页面设置得表尾中输入文件路径Atvhe、PaeStp、LefFor=Aplicatin、Urm 将用户名放置在活动工作表得页脚单元格单元格区域(32） ActiveCell、urentRgon、Seect 或ange（Aivell、nd（xlU),Actveell、End(xDwn)、Sct选择当前活动单元格所包含得范围,上下左右无空行(3) Cl、Slct 选定当前工作表得所有单元格（)Rge(“A1”）、CleaContets 清除活动工作表上单元格A1中得内容lection、ClarCnts 清除选定区域内容age（“A1:4”)、Cear 彻底清除A1至D4单元格区域得内容，包括格式（35) ells、Cear清除工作表中所有单元格得内容()ActiveCe、Offet(1,0）、Seet 活动单元格下移一行,同理,可下移一列(3) an（“A1”)、Offset（CoumnOfft：=1)或Rang(“A1”）、Offse(,1） 偏移一列Range(“A1”)、fset(Rowofset:-)或Range（“1”）、Off(1)向上偏移一行（38) Range（“A”)、py Range(“1”) 复制单元格A,粘贴到单元格B1中Rnge（“A1:D”)、opy ange(“F1”) 将单元格区域复制到单元格F开始得区域中Rang(“A1:D8”)、Cut Rang(“F1”) 剪切单元格区域A1至8,复制到单元格开始得区域中Ran(“A1”)、Currentegin、Copy Shets(“Sheet2”)、Range(“A”) 复制包含A1得单元格区域到工作表中以1起始得单元格区域中注:rentRegion属性等价于定位命令,由一个矩形单元格块组成,周围就是一个或多个空行或列(39) ActiveWindow、RaSelcon、alue=X将值XX输入到所选单元格区域中(4）Actveidow、RneSelecion、Count 活动窗口中选择得单元格数(41)Selectio、Coun 当前选中区域得单元格数(2) Getddress=Rpla(Hyeinkcell、erlinks（1)、dres,mailo:,”）返回单元格中超级链接得地址并赋值(4） TxtCo=Rage（“A1”）、ot、ColoIdx 检查单元格A1得文本颜色并返回颜色索引Range(“1”)、Itror、ClorIndex 获取单元格A背景色(44) cl、ct 返回当前工作表得单元格数(45) Selcion、Rane（“E”）、Select 激活当前活动单元格下方3行，向右4列得单元格(46)Ces、Ite(5,”) 引单元格5Cells、Itm(5,)引单元格C5(47) ange（“1”)、Ofst(Rowffst:4,ColunOfet:=5)或Rage(“A1”)、Ofset（4,)指定单元格5(48)ange(“”)、Resize(RowSie：=1,olmize:=3)Rnae(“B3”)、size（11,3) 创建B3：D13区域(4） Range(“Data”）、Resize(,2） 将ta区域扩充2列（50) Uin(Rage(“Da1”）,Rage(“Data”) 将Dta1与ta2区域连接(1)Intsect（Range(“at1”）,Range(“Dta2”)返回aa1与Data2区域得交叉区域(5) Rane(“Da”)、Cont 单元格区域Data中得单元格数 Rne(“Daa”)、Columns、Cout 单元格区域Data中得列数 ange（“Data”）、 Rows、Con单元格区域Da中得行数（3) Selcton、Columns、ount 当前选中得单元格区域中得列数Section、Rows、ont 当前选中得单元格区域中得行数(54） Seectio、res、Count选中得单元格区域所包含得区域数（55)ivSet、sedage、Row 获取单元格区域中使用得第一行得行号(6) Rng、olm获取单元格区域Rng左上角单元格所在列编号（57） ctvSheet、ell、Specialels(xlellTyeAllForaCondiins)在活动工作表中返回所有符合条件格式设置得区域(8） Range(“1”）、Atiltr Feld:=3,iibleDropDo:=alse 关闭由于执行自动筛选命令产生得第3个字段得下拉列表名称(59) Rang（“A1:C3”）、Name=“puter” 命名A1：C3区域为pter或Range(“1:E6”)、Name=“Shet1！ok” 命名局部变量,即Sheet1上区域1:E6为book或 ames(“ute”)、Ne“obt” 将区域puer重命名为obo(60)Nmes(“boo”)、elete 删除名称(6) Nam、dd Nme:=“ntentList”,_Reers:=“=OFSET(See1！A2，0,0，CUTA(het2！$A:)”动态命名列(62) Nmes、Ad Nam:=“pany”,RefTo:=“panyCa” 命名字符串panCa(63) Names、Ad e：=“tal”,RefersT：14 将数字12356命名为Tol。注意数字不能加引号,否则就就是命名字符串了。(64） Names、Add ae:“Array”，Refers：=ArraNum 将数组Arrayu命名为MyArra。（6) ames、 a:“ProduceNum”,Refrs:=“=$1”，Vble：=Fals将名称隐藏(6) ActiveWrbk、Names(“”)、ame 返回名称字符串公式与函数(67) Aplication、WorkshtFuncon、INumbe(“A”) 使用工作表函数检查1单元格中得数据就是否为数字(68) Range(“:A”)、Find(Alcaio、WoksheeFnction、x（nge(“A:A”）)、Ativte 激活单元格区域A列中最大值得单元格(69) Cells(，8)、ForulaArr“=SM（RC-1:R-1C1*R:-1C）” 在单元格中输入数组公式。注意必须使用11样式得表达式图表(7)AivSheet、ChartOject、Cout 获取当前工作表中图表得个数(71） ctivSheet、ChaObect(“Chat”)、elt 选中当前工作表中图表Cht1（） ActiveShe、htOjects(“Cat1”)、ctivate AteCart、CrtArea、Slect 选中当前图表区域（7)WokSet(“Shet1”)、CatObjects(“Chart2”)、hart、_ChatArea、ntei、CorIndx更改工作表中图表得图表区得颜色(74） Sees(“Cart2”)、Chrtea、nteror、ColorIex=2 更改图表工作表中图表区得颜色（5）Chrts、Ad 添加新得图表工作表(） ctehart、tSourceData Sce:Shees(“Se1”)、ang(“A1：D5”), _PloBy：=xlClumns 指定图表数据源并按列排列(77)ActiveChart、Loation Whe:=xlLcationAsNwShet 新图表作为新图表工作表(78） ActivChart、PlotAea、Inteior、Cornde=xlone 将绘图区颜色变为白色(7）okShets（“heet1”)、ChaObjects（1）、art、 _xpot “:MyChrt、if”，iteNam：“GF” 将图表1导出到C盘上并命名为MyChrt、i 窗体(0） Mgox“Hllo!”消息框中显示消息Hllo(1) An=MgBo(“ontinue？”,vbeso) 在消息框中点击“就是”按钮,则As值为vbYe;点击“否”按钮，则Ans值为vb。I MgBox(“Cotne?”,veNo)bYes The Ex ub 返回值不为“就是”，则退出（8) onfigvbeNo+vbutnDefalttton2使用常量得组合,赋值组Config变量,并设置第二个按钮为缺省按钮(3) MsBox “Tis is the firstli、” & vbNewLine “ecn line、” 在消息框中强制换行,可用vbCL代替vbewLine。(84) MsgBx he average is :&rmat(Applctio、WorkseeFuncion、Average(Seleco),#,、00)，vbIformaion,seletiount avrage & Chr（13） 应用工作表函数返回所选区域得平均值并按指定格式显示(85） seform、So 显示用户窗体(8） LodUserform1加载一个用户窗体,但该窗体处于隐藏状态（7) serr1、Hide 隐藏用户窗体（88) Unlad Uefrm1 或 Uload e 卸载用户窗体(8） (图像控件)、Pitue=oadPictr（“图像路径”) 在用户窗体中显示图形（)Userorm、Sow 0 或 UserForm1、Showvbdees 将窗体设置为无模式状态(91) M、Hght=nt（、8*AcieWidow、Heigh) 窗体高度为当前活动窗口高度得0、88 Me、WidthIt(0、88*ActiveWindow、Wth) 窗体宽度为当前活动窗口高度得0、8事件(2) Appiation、nablevnt=Flse禁用所有事件plcation、nbleEvent=True 启用所有事件 注:不适用于用户窗体控件触发得事件对象() Set celSheet= CeateObect(Exel、Shee) 创建一个Exc工作表对象xclShee、Aplcatio、Viibe =Tue 设置 Aplcation 对象使Exel 可见ExclSeet、pplicatn、els(1， 1)、Valu=Data在表格得第一个单元中输入文本ExclShet、Sae C：TEST、XL将该表格保存到C:tst、xls 目录Excelhe、Aplicato、Qit 关闭 EcelSeExelSet= Nothing 释放该对象变量(4) 声明并创建一个Exel对象引用ip A Excl、Aplicon Dm xooAsExcel、Worbokim xlSeet As xe、orkhetSetxlAp Createbject(Exce、Apicai)St xlB =lpp、orkbooks、AddSet xlSheet = xlBo、Woseets(1）（95)创建并传递一个 Excel、Appliction 对象得引用Cl MySub(CaeOject(Excel、Alicatin) (96） e d = reaeObjct(Scrping、Ditonary） 创建一个 Dicionary 对象变量(97） d、dda, Athns 为对象变量添加关键字与条目其她() Applaion、OnKey “”,”acro” 设置CtI键为macr过程得快捷键(99) Appiction、CutopyMode=False 退出剪切/复制模式（100)ppicaton、Volatle rue无论何时工作表中任意单元格重新计算，都会强制计算该函数Aplcaton、Voatl Flse 只有在该函数得一个或多个参数发生改变时,才会重新计算该函数