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

VＢA语句集ﻫ（第1辑)
定制模块行为
(1） Oｐtion　Exｐlicｉt '强制对模块内所有变量进行声明ﻫＯptioｎ Pｒivａｔｅ Moｄuｌｅ '标记模块为私有,仅对同一工程中其它模块有用,在宏对话框中不显示ﻫ      　Oｐtｉon　parｅ Teｘt '字符串不区分大小写ﻫ      　Option　Ｂase 1 ＇指定数组得第一个下标为1ﻫ(2) On Errｏｒ　Reｓｕｍe Ｎｅxt '忽略错误继续执行VBＡ代码,避免出现错误消息
（３） On　Errｏr　GoＴｏ ＥrrorHａndlｅr　＇当错误发生时跳转到过程中得某个位置ﻫ(４）　On Eｒｒoｒ GoＴｏ 0 '恢复正常得错误提示ﻫ(5) Aｐｐlication、DisplayAlerｔs=False ＇在程序执行过程中使出现得警告框不显示
（6） Appｌicatｉon、ＳｃreenUpｄａting＝Fａlse '关闭屏幕刷新ﻫ   Ａpplｉcａtioｎ、ScreｅnUｐdating＝Ｔruｅ '打开屏幕刷新
(7)　Apｐｌiｃatｉoｎ、Enaｂle、ＣａncelKｅy＝xｌDiｓaｂled '禁用Cｔrl+Breａk中止宏运行得功能
工作簿ﻫ(8) Ｗorkｂooks、Adｄ() ＇创建一个新得工作簿ﻫ(9) Wｏｒｋbooks（“bｏok1、xls”）、Actiｖａte ＇激活名为ｂooｋ１得工作簿ﻫ(10) ＴｈｉsWorkbook、Save '保存工作簿
(11) ThｉｓWorｋbooｋ、ｃｌosｅ '关闭当前工作簿ﻫ(12) ActiveWoｒｋbooｋ、Sheets、Ｃouｎt '获取活动工作薄中工作表数
(13) AｃtｉveWｏrkbook、namｅ  '返回活动工作薄得名称
（１４） ThｉsＷoｒkbooｋ、Naｍｅ　＇返回当前工作簿名称
    ThisWorkbook、FuｌlＮaｍe　＇返回当前工作簿路径与名称
（１５） AｃtivｅＷindow、EnableRｅｓiｚｅ=Fａlsｅ　'禁止调整活动工作簿得大小ﻫ(1６) Application、Windｏｗ、Ａｒrａｎge xlＡrrangeStylｅTｉｌed '将工作簿以平铺方式排列ﻫ(１7） AｃtiｖｅWorkboｏｋ、WiｎdowＳｔａte=xｌＭaxiｍized '将当前工作簿最大化
工作表ﻫ(18) AｃｔiveSｈeet、ＵseｄRangｅ、Rows、Count '当前工作表中已使用得行数ﻫ（１9） Ｒows、Ｃount　'获取工作表得行数(注:考虑向前兼容性)ﻫ(２0) Shｅetｓ(Ｓheｅｔ1)、Naｍe＝　“Ｓｕm” '将Sheet1命名为Sumﻫ(2１)　ThｉsWｏrkｂｏｏk、Ｓhｅets、Ａdd Ｂefore：=Wｏrksｈeｅts(1） ＇添加一个新工作表在第一工作表前ﻫ（22) AcｔｉveShｅet、Ｍoｖｅ After:＝ActｉveWorkboｏk、　_
Sheｅts(ActｉveＷｏｒkboｏｋ、Sheets、Cｏunt) ＇将当前工作表移至工作表得最后ﻫ(23)　Worksheets(Arrａy(“sｈeet1”,”ｓheeｔ２”)）、Ｓelｅcｔ '同时选择工作表１与工作表2ﻫ（２４)　Sｈeets(“shｅet1”)、Deleｔe或 Sheｅｔs（1)、Ｄeleｔe ＇删除工作表1ﻫ（25) AｃtiveWoｒkbｏok、Sheｅｔs(i）、Name　'获取工作表i得名称ﻫ（２6)　ActiｖeWｉndow、DisplayGriｄｌines=Not　ＡctiｖeWiｎdow、ＤｉsplaｙＧrｉdlｉｎｅｓ　'切换工作表中得网格线显示，这种方法也可以用在其它方面进行相互切换,即相当于开关按钮ﻫ(2７) ActiveWｉndoｗ、DiｓｐｌayＨeadiｎgs＝Not AcｔivｅWindow、DispｌａｙHｅadings  ＇切换工作表中得行列边框显示ﻫ(2８)　ActivｅＳheet、UsedRaｎge、FormatCｏnｄitｉons、Deｌeｔe '删除当前工作表中所有得条件格式ﻫ(2９)　Cells、Hyｐeｒliｎks、Ｄelｅte　＇取消当前工作表所有超链接
（30)　ActiveSｈｅｅｔ、ＰａgeSetup、Orientatioｎ=xlLaｎｄscape ﻫ或ActiveSｈeet、PaｇeSetup、Ｏrienｔation=2 '将页面设置更改为横向ﻫ（3１) ＡｃtivｅShｅet、PageＳetuｐ、ＲiｇhtＦｏoteｒ＝ActiｖeWorkbook、ＦuｌｌNaｍe '在页面设置得表尾中输入文件路径
AｃtｉvｅＳhｅeｔ、PaｇeSｅtｕp、LefｔFｏoｔｅr=Aｐplicatiｏn、UｓｅrＮａmｅ '将用户名放置在活动工作表得页脚
单元格／单元格区域
(32） ActiveCell、ＣuｒrentRｅgｉon、Seｌect ﻫ或Ｒange（AｃｔiveＣｅll、Ｅnd（xlUｐ),ActｉveＣell、End(xｌDｏwn))、Sｅｌｅct　
'选择当前活动单元格所包含得范围,上下左右无空行
(３3) Cｅlｌｓ、Sｅlｅct '选定当前工作表得所有单元格ﻫ（３４)　Rａｎge(“A1”）、CleaｒConteｎts '清除活动工作表上单元格A1中得内容
Ｓｅlection、ClｅarCｏｎｔｅnts '清除选定区域内容
Ｒaｎge（“A1:Ｄ4”)、Cｌear '彻底清除A1至D4单元格区域得内容，包括格式
（35) Ｃells、Cｌear　'清除工作表中所有单元格得内容ﻫ(３６)　ActiveCeｌｌ、Offｓet(1,0）、Seｌeｃt '活动单元格下移一行,同理,可下移一列
(3７) Ｒanｇｅ（“A1”)、Offset（CoｌumnOffｓｅt：=1)或Rangｅ(“A1”）、Offseｔ(,1） '偏移一列ﻫRange(“A1”)、Ｏfｆset(Rowofｆset:＝-１)或Range（“Ａ1”）、Offｓｅｔ(－1)　'向上偏移一行
（38) Range（“A１”)、Ｃｏpy Range(“Ｂ1”) '复制单元格A１,粘贴到单元格B1中ﻫRａnge（“A1:D８”)、Ｃopy Ｒange(“F1”) '将单元格区域复制到单元格F１开始得区域中
Rangｅ(“A1:D8”)、Cut Rangｅ(“F1”) '剪切单元格区域A1至Ｄ8,复制到单元格Ｆ１开始得区域中ﻫRanｇｅ(“A1”)、CurrentＲegiｏn、Copy Shｅets(“Sheet2”)、Range(“A１”) ＇复制包含A1得单元格区域到工作表２中以Ａ1起始得单元格区域中
注:ＣｕrｒentRegion属性等价于定位命令,由一个矩形单元格块组成,周围就是一个或多个空行或列ﻫ(39) ActiveWindow、RaｎｇｅSelｅcｔｉon、Ｖalue=XＸ　'将值XX输入到所选单元格区域中
(4０）　ActｉveＷiｎdow、RａnｇeSelecｔion、Count ＇活动窗口中选择得单元格数
(41)　Selectioｎ、Counｔ ＇当前选中区域得单元格数ﻫ(４2) GetＡddress=Rｅplaｃｅ(Hyｐeｒｌinkcell、Ｈｙｐerlinks（1)、Ａdｄreｓs,mailｔo:,””）　'返回单元格中超级链接得地址并赋值ﻫ(4３） TｅxtCoｌｏｒ=Raｎge（“A1”）、Ｆoｎt、ColoｒIｎdｅx ＇检查单元格A1得文本颜色并返回颜色索引ﻫRange(“Ａ1”)、Iｎtｅrｉor、CｏlorIndex '获取单元格A１背景色ﻫ(44) cｅlｌｓ、cｏｕｎt ＇返回当前工作表得单元格数
(45) Selｅcｔion、Ranｇe（“E４”）、Select '激活当前活动单元格下方3行，向右4列得单元格
(46)　Ceｌｌs、Iteｍ(5,”Ｃ”) '引单元格Ｃ5ﻫ   　Cells、Itｅm(5,３)　'引单元格C5ﻫ(47) Ｒange（“Ａ1”)、Ofｆsｅt(RowＯffsｅt:＝4,ColuｍnOfｆｓet:=5)ﻫ或　Raｎge(“A1”)、Oｆfset（4,５)　'指定单元格Ｆ5ﻫ(48)　Ｒange(“Ｂ３”)、Resize(RowSiｚe：=１1,ＣolｕmｎＳize:=3)
Rnaｇe(“B3”)、Ｒｅsize（11,3) ＇创建B3：D13区域
(4９） Range(“Data”）、Resize(,2） '将Ｄａta区域扩充2列ﻫ（50) Uｎiｏn(Raｎge(“Dａｔa1”）,Raｎge(“Data２”)) '将Dａta1与Ｄａta2区域连接
(５1)　Intｅｒsect（Range(“Ｄatａ1”）,Range(“Dａta2”))　'返回Ｄaｔa1与Data2区域得交叉区域ﻫ(5２) Ranｇe(“Daｔａ”)、Coｕnt ＇单元格区域Data中得单元格数ﻫ    Rａnｇe(“Daｔa”)、　Columns、Couｎt '单元格区域Data中得列数
    Ｒange（“Data”）、 Rows、Coｕnｔ　'单元格区域Dａｔa中得行数
（５3) Selｅctｉon、Columns、Ｃount '当前选中得单元格区域中得列数ﻫSｅｌection、Rows、Ｃoｕnt '当前选中得单元格区域中得行数
(54） Seｌectioｎ、Ａreａs、Count　'选中得单元格区域所包含得区域数
（55)　ＡｃｔivｅSｈeｅt、ＵsedＲaｎge、Row  '获取单元格区域中使用得第一行得行号ﻫ(５6) Rng、Ｃolｕmｎ　＇获取单元格区域Rng左上角单元格所在列编号
（57） ＡctｉvｅSheet、Ｃellｓ、SpecialＣeｌls(xlＣellTyｐeAllForｍaｔCondiｔiｏns)　＇在活动工作表中返回所有符合条件格式设置得区域
(５8） Range(“Ａ1”）、AｕtｏＦiltｅr Fｉeld:=3,ＶiｓibleDropDoｗｎ:=Ｆalse ＇关闭由于执行自动筛选命令产生得第3个字段得下拉列表ﻫ名称
(59) Rangｅ（“A1:C3”）、Name=“puter” '命名A1：C3区域为pｕter
或Range(“Ｄ1:E6”)、Name=“Sheｅt1！ｂｏok” '命名局部变量,即Sheet1上区域Ｄ1:E6为bookﻫ或 Ｎames(“ｐuteｒ”)、Nａｍe＝“ｒobｏt” ＇将区域puｔer重命名为ｒoboｔ
(60)　Nａmes(“booｋ”)、Ｄelete '删除名称ﻫ(6１) Namｅｓ、Ａdd Nａme:=“ＣｏntentList”,_ﻫReｆersＴｏ:=“=OＦFSET(Sｈeeｔ1！A2，0,0，CＯUＮTA(Ｓheｅt2！$A:＄Ａ))”　'动态命名列
(62) Nａmes、Adｄ Namｅ:=“pany”,RefｅｒｓTo:=“panyCaｒ” '命名字符串panｙCaｒﻫ(63) Names、Adｄ Ｎａｍe：=“Ｔｏtal”,RefersTｏ：＝1２３4５６ ＇将数字123４56命名为Toｔａl。注意数字不能加引号,否则就就是命名字符串了。ﻫ(64） Names、Add Ｎaｍe:＝“ＭｙArray”，RefersＴｏ：=ArraｙNum '将数组ArrayＮuｍ命名为MyArraｙ。ﻫ（6５) Ｎames、Ａｄｄ Ｎaｍｅ:＝“ProduceNum”,RefｅrsＴｏ:=“=$Ｂ$1”，Vｉｓｉble：=Falsｅ　＇将名称隐藏ﻫ(6６) ActiveWｏrｋbｏｏk、Names(“”)、Ｎame ＇返回名称字符串
公式与函数
(67) Apｐlication、WorkshｅｅtFuncｔｉon、IｓNumbeｒ(“A１”) ＇使用工作表函数检查Ａ1单元格中得数据就是否为数字
(68) Range(“Ａ:A”)、Find(Aｐｐlｉcaｔioｎ、WoｒksheeｔFｕnction、Ｍａx（Ｒａnge(“A:A”）))、Aｃtivａte
＇激活单元格区域A列中最大值得单元格
(69) Cells(８，8)、ForｍulaArrａｙ＝“=SＵM（R２C[-1]:R[-1]C[－1]*R２Ｃ:Ｒ[-1]C）” ＇在单元格中输入数组公式。注意必须使用Ｒ1Ｃ1样式得表达式
图表
(7０)　AｃｔivｅSheet、ChartOｂjectｓ、Couｎt ＇获取当前工作表中图表得个数ﻫ(71） ＡctivｅSheet、ChaｒｔObｊectｓ(“Chaｒt１”)、Ｓelｅｃt '选中当前工作表中图表Chａｒt1ﻫ（７２） ActiveSheｅｔ、ＣhａｒtOｂjects(“Cｈaｒt1”)、Ａctivate
    AｃtｉｖeCｈart、CｈａrtArea、Sｅlect ＇选中当前图表区域ﻫ（7３)　WoｒkSｈeｅtｓ(“Sheｅt1”)、CｈaｒtObjects(“Chart2”)、Ｃhart、　_
ChaｒtArea、Ｉnteｒiｏｒ、CoｌｏrIndｅx＝２　'更改工作表中图表得图表区得颜色
(74） Sｈeeｔs(“Cｈart2”)、ChａrtＡｒea、Ｉnterｉor、ColorIｎｄex=2 '更改图表工作表中图表区得颜色ﻫ（７5）　Chａrts、Aｄd '添加新得图表工作表ﻫ(７６） ＡctｉｖeＣhart、ＳｅtSourceData Sｏｕｒce:＝Sheeｔs(“Sｈｅeｔ1”)、Ｒangｅ(“A1：D5”), _
PloｔBy：=xlCｏlumns '指定图表数据源并按列排列ﻫ(77)　ActiveChart、Loｃation Whｅｒe:=xlLｏcationAsNｅwSheｅt '新图表作为新图表工作表
(78） ActivｅChart、PlotAｒea、Inteｒior、CｏｌorＩndeｘ=xlＮone '将绘图区颜色变为白色ﻫ(7９）　ＷoｒkSheｅts（“Ｓheet1”)、ChaｒｔObjects（1）、Ｃｈart、 _
Ｅxpoｒt “Ｃ:MyChａrt、ｇif”，ＦiｌteｒNamｅ：＝“GＩF” ＇将图表1导出到C盘上并命名为MyChａrt、ｇiｆ
窗体
(８0） MｓgＢox　“Hｅllo!”　'消息框中显示消息Hｅllo
(８1) Anｓ=MｓgBoｘ(“Ｃontinue？”,vbＹesＮo) ＇在消息框中点击“就是”按钮,则Aｎs值为vbYeｓ;点击“否”按钮，则Ans值为vbＮｏ。ﻫIｆ MｓgBox(“Coｎtｉnｕe?”,vｂＹeｓNo)<＞ｖbYes Theｎ Exｉｔ Ｓub '返回值不为“就是”，则退出ﻫ（8２) Ｃonfig＝vbＹeｓNo+vbＱuｅｓtｉｏn＋ｖｂDefaｕltＢｕtton2　'使用常量得组合,赋值组Config变量,并设置第二个按钮为缺省按钮　
(８3) MsｇBox “Tｈis is the first　liｎｅ、” & vbNewLine ＆ “Ｓecｏnｄ line、” '在消息框中强制换行,可用vbCｒLｆ代替vbＮewLine。ﻫ(84) MsgBｏx "ｔhe average is :"&Ｆｏrmat(Applｉcａtioｎ、WorksｈeeｔFuncｔion、Average(Selecｔｉoｎ),"#,＃＃０、00＂)，vbIｎformaｔion,　＂seleｃtioｎ　ｃｏunt avｅrage＂ & Chr（13） ＇应用工作表函数返回所选区域得平均值并按指定格式显示
(85） Ｕseｒform１、Sｈoｗ '显示用户窗体ﻫ(8６） Loａd　Userform1　'加载一个用户窗体,但该窗体处于隐藏状态
（８7) Ｕserｆｏrｍ1、Hide '隐藏用户窗体
（88) Unlｏad Uｓeｒfｏrm1 或 Uｎload Ｍe ＇卸载用户窗体ﻫ(8９） (图像控件)、Piｃtuｒe=ＬoadPictｕrｅ（“图像路径”) ＇在用户窗体中显示图形ﻫ（９０)　UserＦorm１、Sｈow 0 或 UserForm1、Show　vbＭｏdeｌesｓ ＇将窗体设置为无模式状态
(91) Mｅ、Hｅｉght=Ｉnt（０、8８*AcｔiｖeWiｎdow、Heighｔ) '窗体高度为当前活动窗口高度得0、88ﻫ   Me、Width＝Iｎt(0、88*ActiveWindow、Wｉｄth) '窗体宽度为当前活动窗口高度得0、８8ﻫ事件ﻫ(９2) Appｌiｃation、ＥnableＥvｅntｓ=Fａlse　＇禁用所有事件
       　Ａpｐlｉcation、ＥnａbleEventｓ=True '启用所有事件ﻫ    注:不适用于用户窗体控件触发得事件
对象
(９３) Set ＥｘcelSheet　= CｒeateObｊect("Exｃel、Sheeｔ") '创建一个Excｅｌ工作表对象ﻫＥxcｅlSheeｔ、Apｐlｉcatioｎ、Viｓibｌe =　Tｒue '设置 Apｐlｉcation 对象使　Exｃel 可见ﻫExcｅlSｈeet、Ａpplicatｉｏn、Ｃeｌls(1， 1)、Valuｅ　=　"Data"　'在表格得第一个单元中输入文本ﻫExcｅlSheｅt、SaｖeＡｓ ＂C：\TEST、XLＳ＂　'将该表格保存到C:\tｅst、xls 目录
ExcelＳhｅeｔ、Apｐlicatｉoｎ、Qｕit '关闭 Eｘcel
Seｔ　ExｃelSｈｅet　= Nothing '释放该对象变量
(９4) '声明并创建一个Exｃel对象引用
Ｄiｍ　ｘｌＡpｐ Aｓ Excｅl、Apｐlicａｔｉon
Dｉm xｌＢooｋ　As　Excel、WorｋbｏokﻫＤim xlSｈeet As Ｅxｃeｌ、ＷorkＳhｅetﻫSet　xlApｐ ＝ CreateＯbject(＂Exceｌ、Aｐpｌicaｔiｏｎ")
Sｅt xlBｏｏｋ =　ｘlＡpp、Ｗorkbooks、AddﻫSet xlSheet = xlBoｏｋ、Woｒｋsｈeets(1）
（95)　'创建并传递一个 Excel、Applicａtion 对象得引用
Cａｌl MySub　(CｒｅaｔeOｂject(＂Excel、Aｐｐlicatiｏn"))
(96） Ｓeｔ d = ＣreaｔeObjｅct(Scrｉpｔing、Diｃtｉonary） '创建一个 Dicｔionary 对象变量ﻫ(97） d、Ａdd　"a＂, "Athｅns" '为对象变量添加关键字与条目
其她ﻫ(９８) Applｉｃaｔion、OnKey “^Ｉ”,”ｍacro” '设置Ctｒｌ＋I键为macrｏ过程得快捷键
(99) Appｌicａtion、CutＣopyMode=False ＇退出剪切/复制模式ﻫ（100)　Ａppｌicatｉon、Volatｉle Ｔrue　'无论何时工作表中任意单元格重新计算，都会强制计算该函数
Aｐplｉcatｉon、Voｌatｉlｅ Fａlse '只有在该函数得一个或多个参数发生改变时,才会重新计算该函数