VBA 常用语句定制模块行为(1)强制对模块内所有变量进行声明 Option Explicit 标记模块为私有，仅对同一工程中其它模块有用，在宏对话框中不显示 Option Private Module 字符串不区分大小写 Option Compare Text 指定数组的第一个下标为 1 Option Base 1(2)忽略错误继续执行 VBA 代码,避开出现错误消息 On Error Resume Next(3)当错误发生时跳转到过程中的某个位置 On Error GoTo ErrorHandler(4)恢复正常的错误提示 On Error GoTo 0(5)在程序执行过程中使出现的警告框不显示 Application.DisplayAlerts = False(6)关闭屏幕刷新 Application.ScreenUpdating = False 打开屏幕刷新 Application.ScreenUpdating = True(7)禁用 Ctrl+Break 中止宏运行的功能 Application.Enable.CancelKey = xlDisabled工作簿(8)创建一个新的工作簿 Workbooks.Add()(9)激活名为 book1 的工作簿 Workbooks("book1.xls").Activate(10)保存工作簿 ThisWorkbook.Save(11)关闭当前工作簿 ThisWorkbook.Close(12)猎取活动工作薄中工作表数 ActiveWorkbook.Sheets.Count(13)返回活动工作薄的名称 ActiveWorkbook.Name(14)返回当前工作簿名称 ThisWorkbook.Name 返回当前工作簿路径和名称 ThisWorkbook.FullName(15)禁止调整活动工作簿的大小 ActiveWindow.EnableResize = False(16)将工作簿以平铺方式排列 Application.Window.Arrange xlArrangeStyleTiled(17)将当前工作簿最大化 ActiveWorkbook.WindowState = xlMaximized工作表(18)当前工作表中已使用的行数 ActiveSheet.UsedRange.Rows.Count(19)猎取工作表的行数(注：考虑向前兼容性) Rows.Count(20)将 Sheet1 命名为 Sum Sheets(Sheet1).Name = "Sum"(21)添加一个新工作表在第一工作表前 ThisWorkbook.Sheets.Add Before:=Worksheets(1)(22)将当前工作表移至工作表的最后 ActiveSheet.Move After:=ActiveWorkbook. _ Sheets(ActiveWorkbook.Sheets.Count)(23)同时选择工作表 1 和工作表 2 Worksheets(Array("sheet1", "sheet2")).Select(24)删除工作表 1 Sheets("sheet1").Delete 或 Sheets(1).Delete(25)猎取工作表 i 的名称 ActiveWorkbook.Sheets(i).Name(26)切换工作表中的网格线显示，这种方法也可以用在其它方面进行相互切换，即相当于开关按钮 ActiveWindow.DisplayGridlines = Not ActiveWindow.DisplayGridline...
