vba语句集.doc

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).Delete '删除工作表1
(25) (i).Name '获取工作表i的名称
(26) =Not
idlines '切换工作表中的网格线显示,这种方法也可以用在其它方面进行相互切换,即相当于开关按钮
(27) =Not   ‘切换工作表中的行列边框显示
(28) ‘删除当前工作表中所有的条件格式
(29) ‘取消当前工作表所有超链接
(30) =xlLandscape
=2 '将页面设置更改为横向
(31) = ‘在页面设置的表尾中输入文件路径
Acti