定制模块行为。
1) option explicit '强制对模块内所有变量进行声明。
option private module '标记模块为私有，仅对同一工程中其它模块有用，在宏对话框中不显示。
option compare text '字符串不区分大小写。
option base 1 '指定数组的第一个下标为1
2) on error resume next '忽略错误继续执行vba**，避免出现错误消息。
3) on error goto errorhandler '当错误发生时跳转到过程中的某个位置。
4) on error goto 0 '恢复正常的错误提示。
5) '在程序执行过程中使出现的警告框不显示。
6) '关闭屏幕刷新。
'打开屏幕刷新。
7) '禁用ctrl+break中止宏运行的功能。
工作簿。8) '创建一个新的工作簿。
9) workbooks(“ 激活名为book1的工作簿。
10) '保存工作簿。
11) '关闭当前工作簿。
12) '获取活动工作薄中工作表数。
13) '返回活动工作薄的名称。
14) ‘返回当前工作簿名称。
‘返回当前工作簿路径和名称。
15) ‘禁止调整活动工作簿的大小。
16) xlarrangestyletiled ‘将工作簿以平铺方式排列。
17) ‘将当前工作簿最大化。
工作表。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的名称。
26) '切换工作表中的网格线显示，这种方法也可以用在其它方面进行相互切换，即相当于开关按钮。
27) ‘切换工作表中的行列边框显示。
28) ‘删除当前工作表中所有的条件格式。
29) ‘取消当前工作表所有超链接。
或 '将页面设置更改为横向。
31) ‘在页面设置的表尾中输入文件路径。
‘将用户名放置在活动工作表的页脚。
单元格/单元格区域。
或range(
选择当前活动单元格所包含的范围，上下左右无空行。
33) ‘选定当前工作表的所有单元格。
34) range(“a1”).clearcontents '清除活动工作表上单元格a1中的内容。
'清除选定区域内容。
range(“a1:d4”).clear '彻底清除a1至d4单元格区域的内容，包括格式。
35) '清除工作表中所有单元格的内容。
36) '活动单元格下移一行，同理，可下移一列。
37) range(“a1”).offset(columnoffset:=1)或range(“a1”).offset(,1) ‘偏移一列。
range(“a1”).offset(rowoffset:=-1)或range(“a1”).offset(-1) ‘向上偏移一行。
38) range(“a1”).copy range(“b1”) 复制单元格a1，粘贴到单元格b1中。
range(“a1:d8”).copy range(“f1”) 将单元格区域复制到单元格f1开始的区域中。
range(“a1:d8”).cut range(“f1”) 剪切单元格区域a1至d8，复制到单元格f1开始的区域中。
range(“a1”).sheets(“sheet2”).range(“a1”) 复制包含a1的单元格区域到工作表2中以a1起始的单元格区域中。
注：currentregion属性等价于定位命令，由一个矩形单元格块组成，周围是一个或多个空行或列。
39) '将值xx输入到所选单元格区域中。
40) '活动窗口中选择的单元格数。
41) '当前选中区域的单元格数。
42) getaddress=replace( ‘返回单元格中超级链接的地址并赋值。
43) textcolor=range(“a1”).检查单元格a1的文本颜色并返回颜色索引。
range(“a1”).获取单元格a1背景色。
44) ‘返回当前工作表的单元格数。
45) ‘激活当前活动单元格下方3行，向右4列的单元格。
46) ‘引单元格c5
‘引单元格c5
47) range(“a1”).offset(rowoffset:=4,columnoffset:=5)
或 range(“a1”).offset(4,5) ‘指定单元格f5
48) range(“b3”).resize(rowsize:=11,columnsize:=3)
rnage(“b3”).resize(11,3) ‘创建b3：d13区域。
49) range(“data”).resize(,2) ‘将data区域扩充2列。
50) union(range(“data1”),range(“data2”))将data1和data2区域连接。
51) intersect(range(“data1”),range(“data2”))返回data1和data2区域的交叉区域。
52) range(“data”).count ‘单元格区域data中的单元格数。
range(“data”).单元格区域data中的列数。
range(“data”).单元格区域data中的行数。
53) ‘当前选中的单元格区域中的列数。
‘当前选中的单元格区域中的行数。
54) ‘选中的单元格区域所包含的区域数。
55) ‘获取单元格区域中使用的第一行的行号。
56) ‘获取单元格区域rng左上角单元格所在列编号。
57) ‘在活动工作表中返回所有符合条件格式设置的区域。
58) range(“a1”).autofilter field:=3,visibledropdown:=false ‘关闭由于执行自动筛选命令产生的第3个字段的下拉列表名称。
英语常用语句
she failed one of the exam s,but we oughtto make allowance for the fact that she was ill.她有一门课不及格，但是我们必须考虑到她当时有病！this is a task well within your abili...
作文常用语句
致远浙江专升本英语试题库 作文常用语句。时间 2011 11 3 16 13 22 作者 致远专升本 致远专升本查看 240 评论 0 内容摘要 致远浙江专升本英语试题库 作文常用语句一 h e a great influence on 对 有很大的影响 二 pose a great threat ...
英语对话常用语句子 英语对话常用语
情景对话因为有生动的生活场景和话题，极大地激发了学生练习英语口语的兴趣，为学生提供了练习口语表达的机会。小编整理了英语对话常用语句子，欢迎阅读！英语对话常用语句子一。祝愿wish 英汉对照 祝福你好运！祝愿对对新人健康 幽默 幸福。祝福你生日快乐！祝你身体健康。我也同样祝愿你。我希望你永远快乐。祝你...