vba语句集100句(第1辑)
我将学习vba过程中常用的语句进行了归纳，希望能对excel爱好者和vba初学者有所帮助。
vba语句集。
第1辑)定制模块行为。
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) '关闭屏幕刷新。
= true '打开屏幕刷新。
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) ‘取消当前工作表所有超链接。
或 = 2 '将页面设置更改为横向。
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) ‘在活动工作表中返回所有符合条件格式设置的区域。
VBA语句集100句
vba语句集100句 第1辑 我将学习vba过程中常用的语句进行了归纳，希望能对excel爱好者和vba初学者有所帮助。vba语句集。第1辑 定制模块行为。1 option explicit 强制对模块内所有变量进行声明。option private module 标记模块为私有，仅对同一工程中其它...
VBA语句集400句
工作表。18 当前工作表中已使用的行数。19 获取工作表的行数 注 考虑向前兼容性 20 sheets sheet1 name sum 将sheet1命名为sum 21 before worksheets 1 添加一个新工作表在第一工作表前。22 after activeworkbook.sheet...
常用英语句子100句
1 你从 学会说英语的呢？2 这场表演应当是相当好的。3 我恐怕这事不会成的。4 我很喜欢和你一起工作。5 球赛结果如何？6 你喜欢香港吗？7 很高兴见到你。8 到你家要多久？9 很高兴再次见到你。10 听说你要结婚了，恭喜！11 咱们喝点啤酒什么的。12 我会打 给你。13 我不知道他是世界上最有...