《excelvba常用的100条语法》由会员分享，可在线阅读，更多相关《excelvba常用的100条语法（11页珍藏版）》请在金锄头文库上搜索。
1、VBA语句集(第1辑)定制模块行为(1) OptionExplicit强制对模块内所有变量进行声明OptionPrivateModule标记模块为私有，仅对同一工程中其它模块有用，在宏对话框中不显示OptionCompareText字符串不区分大小写OptionBase1指定数组的第一个下标为1(2) OnErrorResumeNext忽略错误继续执行VBA代码，避免出现错误消息(3) OnErrorGoToErrorHandler当错误发生时跳转到过程中的某个位置(4) OnErrorGoTo0恢复正常的错误提示(5) =False在程序执行过程中使出现的警告框不显示(6) =False关闭
2、屏幕刷新=True打开屏幕刷新(7) 禁用Ctrl+Break中止宏运行的功能工作簿(8) ()创建一个新的工作簿(9) Workbooks().ActiVate名为bookl的工作簿(10) 保存工作簿(11) 关闭当前工作簿(12) 获取活动工作薄中工作表数(13) 返回活动工作薄的名称(14) 返回当前工作簿名称返回当前工作簿路径和名称(15) =False禁止调整活动工作簿的大小(16) xlArrangeStyleTiled将工作簿以平铺方式排列(17) =xlMaximized将当前工作簿最大化工作表(18) 当前工作表中已使用的行数(19) 获取工作表的行数(注：考虑向前兼容性)
3、(20) Sheets(Sheet1).Name=SUSihneetl命名为Sum(21) Before:=Worksheets(1)添加一个新工作表在第一工作表前(22) After:=ActiveWorkbook._Sheets将当前工作表移至工作表的最后(23) Worksheets(Array(sheetl,sheets时选烽SieCtl1和工作表2(24) Sheets(sheetl”质eSheets.Delete删除工作表1(25) (i).Name获取工作表i的名称(26) =Not切换工作表中的网格线显示，这种方法也可以用在其它方面进行相互切换，即相当于开关按钮(27) =No
4、t切换工作表中的行列边框显示(28) 删除当前工作表中所有的条件格式(29) 取消当前工作表所有超链接(30)或将页面设置更改为横向(31) 在页面设置的表尾中输入文件路径将用户名放置在活动工作表的页脚单元格/单元格区域(32)或Range(xlUp),(xlDown).Select选择当前活动单元格所包含的范围，上下左右无空行(33) 选定当前工作表的所有单元格(34) Range(A1).ClearContens活动工作表上单元格A1中的内容清除选定区域内容Range(A1:D4).ClW清除A1至D4单元格区域的内容，包括格式(35) 清除工作表中所有单元格的内容(36) (1,0).S
5、elect活动单元格下移一行，同理，可下移一列(37) Range(A1).Offset(ColumnOffset=Range(A1).Offset(岬一歹URange(A)lOffset(Rowoffset:=-1)或Range(A1).OffSet(向上偏移一行(38) Range(“A1”).CopyRange(复制W格)A1,粘贴到单元格B1中Range(A1:D8).CopyRange(将单F1格星域复制到单元格F1开始的区域中Range(A1:D8).CutRange(剪切F1e椅区域A1至D8,复制到单元格F1开始的区域中Range(“A1”).Sheets(Sheet2).侬询
6、堀含“A1”的单元格区域到工作表2中以A1起始的单元格区域中注：CurrentRegion属性等价于定位命令，由一个矩形单元格块组成，周围是一个或多个空行或列(39) 将值XX输入到所选单元格区域中(40) 活动窗口中选择的单元格数(41) 当前选中区域的单元格数(42) GetAddress=Replace(1).Address,mailto:,返回单元格中超级链接的地址并赋值”)(43) TextColor=Range(A1B单)元格A1的文本颜色并返回颜色索引Range(“A1”狷取单元格A1背景色(44) 返回当前工作表的单元格数(45)(“E4”).SeeCti前活动单元格下方3行，
7、向右4列的单元格(46) (5,”师兄格C5(5,3)引单元格C5(47) Range(“A1”).Offset(RowOffset:=4,ColumnOffset:=5)或Range(“A1”).Offset(4,5揩定单元格F5(48) Range(“B3”).Resize(Reo:=w1S1i,zColumnSize:=3)Rnage(“B3”).Resize(13)tB3:D13区域(49) Range(Data).ResiZeData区域扩充2歹U(50) Union(Range(Data1),Range(将Daaa21禾ff)Data2区域连接(51) Intersect(Rang
8、e(Data1),Range(返回DDiafe21禾H)Data2区域的交叉区域(52) Range(Data).COun恪区域Data中的单元格数Range(“Data”单元格区域).Data中的列数Range(“Data”单元格区域).Data中的行数(53) 当前选中的单元格区域中的列数当前选中的单元格区域中的行数(54) 选中的单元格区域所包含的区域数(55) 获取单元格区域中使用的第一行的行号(56)获取单元格区域Rng左上角单元格所在列编号(57) 在活动工作表中返回所有符合条件格式设置的区域(58) Range(“A1”).AtuetroFiielld:=3,VisibleDro
9、pDown:=False关闭由于执行自动筛选命令产生的第3个字段的下拉列表名称(59) Range(:AC3).Name=computed名A1：C3区域为computer或Range(“D：1E6”).Name=“Sheet1!book”命名局部变量，即Sheet1上区域D1：E6为book或Names(computer).Name=robot将区域computer重命名为robot(60) Names(book).DeBte名称(61) Name:=“ContentList，_”RefersTo:=OFFSET(Sheet1!A2,0,0,COUNTA(Sheet2!$A:$A)态命名列(
10、62) Name:=Company”,RefersTo:=CompanyCa符串CompanyCar(63) NamekTotal，RefersTo:=12345敝字123456命名为Total。注意数字不能加引号，否则就是命名字符串了。(64) Name:=MyArray”,RefersTo:=ArrayNu|mt组ArrayNum命名为MyArray。(65)Name:=ProduceNum,RefersTo:=$B$1，VisibleMF隐藏(66)(“Com).Name名称字符串公式与函数(67) 使用工作表函数检查A1单元格中的数据是否为数字(68) Range(“A:A”).Fin
11、d激活单元格区域A列中最大值的单元格(69) Cells(8,8).FormulaArray=“=SUM(R2-C1:R-1C-1*R2C:R-1C)”在单元格中输入数组公式。注意必须使用R1C1样式的表达式图表(70) 获取当前工作表中图表的个数(71)(Chartl).睡电器前工作表中图表Chartl(72) (“Chart1”).Activate选中当前图表区域(73) WorkSheets(“Sheet1”).ChartObjects(“Chart2”).Chart._更改工作表中图表的图表区的颜色(74) Sheets(Chart2更改)图表工作表中图表区的颜色(75) 添加新的图表
12、工作表(76) Source:=Sheets(“Sheet1”).Range(“A1:D5”),_PlotBy:=xlColumns指定图表数据源并按列排列(77) Where:=xlLocationAsNewSheet新图表作为新图表工作表(78) 将绘图区颜色变为白色(79)WorkSheets(Sheet1).ChartObjects(1).Chart._ExportFileName:=:C,FilterName:=彳翎Ft1导出到C盘上并命名为窗体(80) MsgBox“HellO!息框中显示消息Hello(81) Ans=MsgBox(Continue”,vbYeSNO)框中点击是“
13、按钮，则Ans值为vbYes;点击否“按钮，则Ans值为vbNo。IfMsgBox(Continue”,vbYesNo)vbYesThenEXitBSUb为是“，贝U退出(82) Config=vbYesNo+vbQuestion+vbDefaultButton2使用常量的组合，赋值组Config变量，并设置第二个按钮为缺省按钮(83) MsgBox“Thisisthefirstline.”&vbNewLine&在消息框中强制换行，可用“Secondline.”vbCrLf代替vbNewLine。(84) MsgBoxtheaverageis:&Format#,#),vbInformation
14、,selectioncountaverage&Chr(13)应用工作表函数返回所选区域的平均值并按指定格式显示(85) 显示用户窗体(86) LoadUserform1加载一个用户窗体,但该窗体处于隐藏状态(87) 隐藏用户窗体(88) UnloadUserform1或UnloadMe卸载用户窗体(89) (图像控件).Picture=LoadPicture(图像路径“”)在用户窗体中显示图形(90) 0或vbModeless将窗体设置为无模式状态(91) =Int*窗体高度为当前活动窗口高度的=Int*窗体宽度为当前活动窗口高度的事件(92) =False禁用所有事件=True启用所有事件注：不适用于用户窗体控件触发的事件对象(93) SetExcelSheet=CreateObject()创建一个Excel工作表对象=True设置Application对象使Excel可见1) .Value=Data在表格的第一个单元中输入文本C:将该表格保存到C:目录关闭ExcelSetExcelSheet=Nothing释放该对象变量(94) 声明并创建一个Excel对象引用DimxlAppAsDimxlBookAsDimxlSheetAsSetxlApp=CreateObject()SetxlBook=SetxlSheet=
