文档介绍：使用手册定制模块行为(1) Option Explicit ' 强制对模块内所有变量进行声明 Option Private Module ' 标记模块为私有,仅对同一工程中其它模块有用,在宏对话框中不显示 pare Text ' 字符串不区分大小写 Option Base 1' 指定数组的第一个下标为 1 (2) On Error Resume Next ' 忽略错误继续执行 VBA 代码, 避免出现错误消息(3) On Error GoTo ErrorHandler ' 当错误发生时跳转到过程中的某个位置(4) On Error GoTo 0' 恢复正常的错误提示(5) =False ' 在程序执行过程中使出现的警告框不显示(6) =False ' 关闭屏幕刷新 =True ' 打开屏幕刷新(7) =xlDisabled ' 禁用 Ctrl+Brea k 中止宏运行的功能工作簿(8) () ' 创建一个新的工作簿(9) Workbooks( “ ”).Activate ' 激活名为 book1 的工作簿(10) ' 保存工作簿(11) ' 关闭当前工作簿(12) ' 获取活动工作薄中工作表数(13) ' 返回活动工作薄的名称(14) ‘返回当前工作簿名称 ‘返回当前工作簿路径和名称(15) =False ‘禁止调整活动工作簿的大小(16) xlArrangeStyleTiled ‘将工作簿以平铺方式排列(17) =xlMaximized ‘将当前工作簿最大化工作表(18) ‘当前工作表中已使用的行数(19) ‘获取工作表的行数( 注:考虑向前兼容性) (20) Sheets(Sheet1).Name= “ Sum ”'将 Sheet1 命名为 Sum (21) Before:=Worksheets(1) ' 添加一个新工作表在第一工作表前(22) After:=() ' 将当前工作表移至工作表的最后(23) Worksheets(Array( “ sheet1 ”,” sheet2 ”)).Select ' 同时选择工作表 1 和工作表 2 (24) Sheets( “ sheet1 ”).Delete 或 Sheets(1).Delete ' 删除工作表1 (25) (i).Name ' 获取工作表 i 的名称(26) =Not ' 切换工作表中的网格线显示,这种方法也可以用在其它方面进行相互切换,即相当于开关按钮(27) =Not ‘切换工作表中的行列边框显示(28) ‘删除当前工作表中所有的条件格式(29) ‘取消当前工作表所有超链接(30) =xlLandscape 或 =2 ' 将页面设置更改为横向(31) = ‘在页面设置的表尾中输入文件路径 =Applica