工作表。
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个字段的下拉列表。
名称。59) range(“a1：c3”).name=“computer” ‘命名a1：c3区域为computer
或range(“d1：e6”).name=“sheet1!book” ‘命名局部变量，即sheet1上区域d1：e6为book
或names(“computer”).name=“robot” ‘将区域computer重命名为robot
60) names(“book”).delete ‘删除名称。
61) name:=“contentlist”，_
refersto:=“offset(sheet1!a2,0,0,counta(sheet2!$a:$a))”动态命名列。
62) name:=“company”,refersto:=“companycar” ‘命名字符串companycar
63) name:=“total”,refersto:=123456 ‘将数字123456命名为total。注意数字不能加引号，否则就是命名字符串了。
64) name:=“myarray”,refersto:=arraynum ‘将数组arraynum命名为myarray。
65) name:=“producenum”,refersto:=“b$1”,visible:=false ‘将名称隐藏。
66) ‘返回名称字符串。
公式与函数。
67) '使用工作表函数检查a1单元格中的数据是否为数字。
68) range(“a:a”).find(
激活单元格区域a列中最大值的单元格。
69) cells(8,8).formulaarray=“=sum(r2c[-1]:r[-1]c[-1]*r2c:
r[-1]c)” 在单元格中输入数组公式。注意必须使用r1c1样式的表达式。
图表。70) '获取当前工作表中图表的个数。
71) ‘选中当前工作表中图表chart1
‘选中当前图表区域。
73) worksheets(“sheet1”).chartobjects(“chart2”).chart. _
‘更改工作表中图表的图表区的颜色。
74) sheets(“chart2”).更改图表工作表中图表区的颜色。
75) ‘添加新的图表工作表。
76) source:=sheets(“sheet1”).range(“a1:d5”),
plotby:=xlcolumns ‘指定图表数据源并按列排列。
77) where:=xllocationasnewsheet ‘新图表作为新图表工作表。
78) ‘将绘图区颜色变为白色。
79) worksheets(“sheet1”).chartobjects(1).chart. _
export filename:=“c： ‘将图表1导出到c盘上并命名为。
窗体。80) msgbox “hello!” 消息框中显示消息hello
81) ans=msgbox(“continue?”,vbyesno) '在消息框中点击“是”按钮，则ans值为vbyes；点击“否”按钮，则ans值为vbno。
if msgbox(“continue?”,vbyesno)<>vbyes then exit sub '返回值不为“是”，则退出。
82) config=vbyesno+vbquestion+vbdefaultbutton2 '使用常量的组合，赋值组config变量，并设置第二个按钮为缺省按钮。
83) msgbox “this is the first line.” vbnewline & second line.” 在消息框中强制换行，可用vbcrlf代替vbnewline。
84) msgbox "the **erage is :"format("###0.00"),vbinformation, "selection count **erage" &chr(13) '应用工作表函数返回所选区域的平均值并按指定格式显示。
85) ‘显示用户窗体。
86) load userform1 ‘加载一个用户窗体，但该窗体处于隐藏状态。
87) ‘隐藏用户窗体。
88) unload userform1或unload me ‘卸载用户窗体。
89) (图像控件).picture=loadpicture(“图像路径”) 在用户窗体中显示图形。
90) 0或 vbmodeless ‘将窗体设置为无模式状态。
91) ‘窗体高度为当前活动窗口高度的0.88
‘窗体宽度为当前活动窗口高度的0.88
事件。92) '禁用所有事件。
'启用所有事件。
注：不适用于用户窗体控件触发的事件。
VBA语句集100句
vba语句集100句 第1辑 我将学习vba过程中常用的语句进行了归纳，希望能对excel爱好者和vba初学者有所帮助。vba语句集。第1辑 定制模块行为。1 option explicit 强制对模块内所有变量进行声明。option private module 标记模块为私有，仅对同一工程中其它...
VBA语句集100句
vba语句集100句 第1辑 我将学习vba过程中常用的语句进行了归纳，希望能对excel爱好者和vba初学者有所帮助。vba语句集。第1辑 定制模块行为。1 option explicit 强制对模块内所有变量进行声明。option private module 标记模块为私有，仅对同一工程中其它...
忠告400句
忠告四百句。作者 艾哈默德尔兹丁白亚努尼 译者 阿里牛彦俊 1 虔诚敬意为主，不要沽名钓誉。2 以 逊乃 指导自己的生活。3 敬畏真主，执行主命，远离主禁。4 爱主爱圣要超越于其它的一切。5 真诚向真主忏悔，多求主的恕饶。6 顺从教律，因为伊斯兰就是顺从，不能只以自己的理性演绎律法，犹如视力有限一样...