《Excel-VBA-300语句.docx》由会员分享，可在线阅读，更多相关《Excel-VBA-300语句.docx（15页珍藏版）》请在三一办公上搜索。
1、ExcelVBA300语句集(全)定制模块行为(1) OptionEXPIiCiI强制对模块内全部变量进行声明OptionPrivateModUIe标记模块为私有,仅对同工程中其它模块有用，在宏对话框中不显示OptionCompareText字符串不区分大小写OptionBaSel指定数组的第一个卜标为1(2) OnErrorResumeNext忽视错误接着执行VBA代码,避开出现错误消息OnErrorGoToErrorHandler当错误发生时跳转到过程中的某个位置(4) OnErrorGoTo0豆原正常的错误提示(5) Application.DisplayAIerts-False在程序执
2、行过程中使出现的警告框不显示(6) Application.ScreenUpdating=False关闭屏幕刷新Application.ScreenUpcIating=True打开屏幕刷新(7) pplication.Enable1CancelKey=XlDisabled禁用CtrI+Break中止宏运彳的功能工作簿(8) Workbooks.AddO创建个新的工作簿(9) WorkbooksC,*bookl.xls,).Activate激活名为bookl的工作簿(10) ThisWorkbook.Save保存工作簿(11) ThisWorkbook.close关闭当前工作簿(12) ACti
3、VCWorkbOOk.Sheets.Count获得活动工作薄中工作表数(13) ACtiYCWOrkbOOk.name返回活动工作簿的名称(14) ThisWorkbook.Name返回当前工作簿名称ThisWorkbook.FullNanie返回当前工作簿路径和名称(15) ActivowindoMEnablcResize=False禁止阔整活动工作簿的大小(16) Application.Window.Arrangex1ArrangeStv1eTi1ed将工作簿以平铺方式排列(17) ActiveWorkbook.WindowState=XlMaxiniized，将当前工作簿段大化工作表(
4、18) ActiveSheet.UsedRange.Rows.Count当前工作表中已运用的行数(19) Rows.Count获得工作表的行数(注：芍虑向前兼容性)(20) Sheets(Sheetl).Name=Sum”将Sheetl命名为SUm(21) ThisWorkbook.Sheets.AddBefore:=WorkSheelSU)添加一个新工作表在第一工作表前(22) ActivcShect.MoveAfter:=ActiveWorkbook.Sheets(ActiveW0rkl00k.Sheets.Count)将当前工作表移至工作表的最终(23) Worksheets(Array
5、(wsheet,sheet2).Select同时选择工作表1和工作表2(24) Sheets(sheet1).DeleteSheetS(D.Delete删除工作表1(25) ActiveWorkbook.Sheets(i).Name获得工作表i的名称(26) AcIiveWinlow.DisplayGrid1ines=NotcIiveWindou.DisplayGridlines切换工作表中的网格线显示，这种方法也可以用在其它方面进行相互切换，即相当于开关按钮(27) ActiveWindow.DisplayHeadings=NotActivcWindow.DisplayHcadings切换工
6、作表中的行列边框显示(28) ActiveSheet.UsedRange.EonnalCorKlitions.DeleteIiiH除当前工作表中全部的条件格式(29) Cells.Hyperlinks1Delete取消当前工作表全部超链接(30) ActiveSheot.PageSetup.Orientation-Xl1.andscape或AcliveSheel.PageSelup.Orientation=2将页面设置更改为横向(31) ActiveSheet.PageSetup.RiKhtFooter=ActiveWorkbook.FullName在页面设置的表尾中输入文件路径ActivoS
7、heet.PageSetup.1.eftFooter-Application.1.serMame，将用户名放置在活动工作表的页脚单元格/单元格区域(32) ctiveCe11.CurrentRegion.Select或Range(ActivcCell.End(xllp),ActivcCel1.End(x1Down).Se1ect选择当前活动单元格所包含的范围，上下左右无空行(33) Cells.Select选定当前工作表的全部单元格(34) Range(44).ClearContents清除活动工作表上单元格Al中的内容Selection.ClearContcnts清除选定区域内容Range(
8、*AkD4,).Clear彻底清除Al至D4单元格区域的内容,包括格式(35) CelIs.Clear消除工作表中全部单元格的内容(36) ActiveCelI.Offset(1,0).Select活动单元格卜,移一行，同理，可F移一列(37) Range(uAl).Offset(ColumnOffsetRango(,A1,).Offset(,1)，偏移一列Range(Al).Offset(Rowoffset:=T)或Range(Al).Offset(-I)向上偏移行(38) Range(ttAl).CopyRange(“Bl)夏制单元格Al,粘贴到单元格Bl中Range(wAkD8w).Co
9、pyRange(Fl”)将单元格区域复制到单元格Fl起先的区域中Range(A1:D8).CutRange(Fl”)剪切单元格区域Al至D8,复制到单元格FI起先的区域中Range(uAlw).CurrentRegion.CopySheetS(Sheet2).Range(*A,)复制包含Al的单元格区域到工作表2中以Al起始的单元格区域中注：CUrrentRegion属性等价于定位吩咐，由一个矩形单元格块组成，四周是一个或多个空行或列(39) ActiveWindow.RangeSelection.Value-XX将值XX输入到所选埴元格区域中(40) ACtiVeWindOW.RangeSe
10、lection.Count活动窗口中选择的单元格数(41) SeleClion.Counl当前选中区域的单元格数(42)GetAddress=Replace(Hyper1inkcel1.Hyperlinks(1).Address,nM:*公式与函数(126) Application.MacroOptionsMacro:=SumProw,Category:=4将自定义的SUmPrO函数指定给Excel中的“统计函数”类别(127) pplicalion.MacroOplionsMacro:=*SuiiiPro,DescriptionFirstSum,thenProduct,，为自定义函数SUnP
11、rO进行了功能说明(128) Application.WorksheetFunction.CountA(Range(uKtfin)+1，获得A列的下一个空单元格(129) WorksheetFunction.CountACCelI.EntireColumn)返回该单元格所在列非空单元格的数量WorksheetFunction.CountA(Cel1.EntireRow)，返回该单元格所在行非空单元格的数量(130) WorksheetFunction.CountA(Cells)返回工作表中非空单元格数量(131)ActiveSheet.Range(MA20:D20).Formula=w=Sum
12、(R-19CrR-lC对A列至D列前19个数值求和*在*图表(132) ActiveHinoto).Show,显示“定位”对话框.但定位条件按用无效(154) pplication.Dialogs(xlDialogSeIec(Special).Show，显示U定位条件”对话框(155)pplicatin.Dialogs(xlDialogFormatNumbcr).shw,显示“单元格格式中的数字选项KApplication.Dialogs(XlDialogAlignmcnt)Jihow，显示“单元格格式“中的对齐”选项卡Application.Dialogs(XlDialogFontpropc
13、rtics),Show，显示“单元格格式“中的字体选项卡APPIiCaHon.Dialogs(xlDialogBorder).show，显示，单元格格式呻的“边框”选项卡pplication.Dialogs(xlDialogPattems).show,能示“单元格格式中的图案选项卡APPliCatiOn.DialogVxIDiaIOgCeUProtCCtion).show，显示,单元格格式”中的爱护”选原卡注：无法一次显示带选项卡的“单元格格式X对话框.只能一次显示一个选项卡.(156) .Appiication.Dialogs(xIDialogFomwlaGoto).showRangc(b2
14、),True显示弓I用位置”的制：认单元格区域并显示引用使其出现在窗口左上角(注：内置对话框参数的运用)(157) Application.CommandBa11ls(2).Cont11ls(i6).Executct执行“定位”话框.相当于选择菜单,编辑定位F)附(158) Application.Transposc(Array(0Sunfon,Tur,Wcd,Thu,Tri,Sa)*11l个垂直的数姐(159) Application.Version。返回运用的Excel版本号(160) Apphcaton.Cursor=XlNorthwcstzXrrow,设JS光标形态为北西向箭头APPl
15、iCation.Cursor=XlIBcam，设置光标形态为I字形APPliCaIionCursorriWaiI、设置光标形态为沙漏(等恃)形APPIiCat沁n.Cuntor-xlDdh山、如京光标的默认设置(161) APPliCatkm.WindowStatc,返回窗口当前的状态Application.WindowStatc=XlMinimizcd,窗口最小化ApplicationtWindowState-XlMaximized*TIHiftApplicationaWindowState-XlNOnnar窗口正常状态(162) Application.IJsablcHcight获得当前窗11的高度APmiC31ion.UsabIcWidih，获得当前窗口的宽度(163)pplication.ActiveCell.Address，返回活动单元格的地址(注:返回的是肯定推址)(164) Applicalion.ActivePrinter”返回当前打印机的名称(165) APPhCatlon.ActivcShcc1.Namc，返回活动匚作表的名称(166) AppiicaIion.ActivcWind
