VBA语句集.doc

-1- VBA 语句集(第1辑) 定制模块行为(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+Break 中止宏运行的功能工作簿(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:=ActiveWorkbook. _ Sheets() ' 将当前工作表移至工作表的最后(23) Worksheets(Array("sheet1","sheet2")).Select ' 同时选择工作表 1 和工作表 2 (24) Sheets("sheet1").Delete 或 Sheets(1).De