摘要：我给VBA的定义：VBA是个人小型自动化处理的有效工具。利用好了，可以大大提高自己的劳动效率，而且可以提高数据处理的准确度。我推出的VBA系列教程共九套和一部VBA汉英手册，现在已经全部完成，希望大家利用、学习。

我给VBA的定义：VBA是个人小型自动化处理的有效工具。利用好了，可以大大提高自己的劳动效率，而且可以提高数据处理的准确度。我推出的VBA系列教程共九套和一部VBA汉英手册，现在已经全部完成，希望大家利用、学习。

如果您只是一般的职场VBA需求，可以打包选择7.1.3.9教程+汉英手册，第7套教程是入门，第1套教程是入门后的提高，第3套教程字典是必备的VBA之精华，第9套教程是实用的典型案例讲解。这四套教程内容掌握后足以处理一般工作中的问题，实际写代码的时候再辅助代码汉英手册，足矣！如果您想进一步提高，就需要选择高级阶段的教程了。

【分享成果，随喜正能量】336你信不信，上天有些事让你做不成，那是在保护你，别抱怨，别生气，世间万物都是有定数的。过去，已成幻影，再多追悔也无法改写往昔的遗憾；未来，充满未知，过度担忧只是徒增心头的负担。真正的修行，便在此时、此地、此刻。

61 Range(“Data”). Columns.Count 单元格区域Data中的列数

62 Range(“Data”). Rows.Count 单元格区域Data中的行数

63 Selection.Columns.Count 当前选中的单元格区域中的列数

64 Selection.Rows.Count 当前选中的单元格区域中的行数

65 Selection.Areas.Count 选中的单元格区域所包含的区域数

66 ActiveSheet.UsedRange.Row 获取单元格区域中使用的第一行的行号

67 Rng.Column 获取单元格区域Rng左上角单元格所在列编号

68 Range(“A1”).AutoFilter Field:=3,VisibleDropDown:=False 关闭由于执行自动筛选命令产生的第3个字段的下拉列表名称

69 Range(“A1：C3”).Name=“my” 命名A1：C3区域为my

70 Names(“computer”).Name=“robot” 将区域computer重命名为robot

71 Names(“book”).Delete 删除名称

72 Application.WorksheetFunction.IsNumber(“A1”) 使用工作表函数检查A1单元格中的数据是否为数字

73 Range(“A:A”).Find(Application.WorksheetFunction.Max(Range(“A:A”))).Activate 激活单元格区域A列中最大值的单元格

74 Cells(8,8).FormulaArray=“=SUM(R2C[-1]:R[-1]C[-1]*R2C:R[-1]C)” 在单元格中输入数组公式。注意必须使用R1C1样式的表达式

75 ActiveSheet.ChartObjects.Count 获取当前工作表中图表的个数

76 ActiveSheet.ChartObjects(“Chart1”).Select 选中当前工作表中图表Chart1

77 ActiveSheet.ChartObjects(“Chart1”).Activate

ActiveChart.ChartArea.Select 选中当前图表区域

78 WorkSheets(“Sheet1”).ChartObjects(“Chart2”).Chart.ChartArea.Interior.ColorIndex=2 更改工作表中图表的图表区的颜色

79 Sheets(“Chart2”).ChartArea.Interior.ColorIndex=2 更改图表工作表中图表区的颜色

80 Charts.Add 添加新的图表工作表

81 Ans=MsgBox(“Continue?”,vbYesNo) 在消息框中点击“是”按钮，则Ans值为vbYes；点击“否”按钮，则Ans值为vbNo。

82 If MsgBox(“Continue?”,vbYesNo)vbYes Then Exit Sub 返回值不为“是”，则退出

83 Config=vbYesNo+vbQuestion+vbDefaultButton2使用常量的组合，赋值组Config变量，并设置第二个按钮为缺省按钮

84 MsgBox “This is the first line.” & vbNewLine & “Second line.” 在消息框中强制换行，可用vbCrLf代替vbNewLine。

85 MsgBox "theAverage is :"&Format(Application.WorksheetFunction.Average(Selection),"#,##0.00") vbInformation,"selectioncount average" & Chr(13) 应用工作表函数返回所选区域的平均值并按指定格式显示

86 Userform1.Show 显示用户窗体

87 Load Userform1 加载一个用户窗体,但该窗体处于隐藏状态

88 Userform1.Hide 隐藏用户窗体

89 Unload Userform1 或 Unload Me 卸载用户窗体

90 (图像控件).Picture=LoadPicture(“图像路径”) 在用户窗体中显示图形

91 UserForm1.Show 0 或 UserForm1.Show vbModeless 将窗体设置为无模式状态

92 Me.Height=Int(0.88*ActiveWindow.Height) 窗体高度为当前活动窗口高度的0.88

93 Me.Width=Int(0.88*ActiveWindow.Width) 窗体宽度为当前活动窗口高度的0.88

94 Application.EnableEvents=False禁用所有事件

95 Application.EnableEvents=True 启用所有事件

96 Set ExcelSheet = CreateObject("Excel.Sheet") 创建一个Excel工作表对象

97 ExcelSheet.Application.Visible = True 设置 Application 对象使 Excel 可见

98 ExcelSheet.Application.Cells(1, 1).Value = "Data" 在表格的第一个单元中输入文本

99 ExcelSheet.SaveAs "C:\TEST.XLS" 将该表格保存到C:\test.xls 目录

100 ExcelSheet.Application.Quit 关闭 Excel

101 Set ExcelSheet = Nothing 释放该对象变量

102 Dim xlApp As Excel.Application

Dim xlBook As Excel.Workbook

Dim xlSheet As Excel.WorkSheet

Set xlApp = CreateObject("Excel.Application")

Set xlBook = xlApp.Workbooks.Add

Set xlSheet = xlBook.Worksheets(1)

声明并创建一个Excel对象引用

103 Call MySub (CreateObject("Excel.Application")) 创建并传递一个 Excel.Application 对象的引用

104 Set d = CreateObject(Scripting.Dictionary) 创建一个 Dictionary 对象变量

105 d.Add "a", "Athens" '为对象变量添加关键字和条目

106 Application.OnKey “^I”,”macro” 设置Ctrl+I键为macro过程的快捷键

107 Application.CutCopyMode=False 退出剪切/复制模式

108 Application.Volatile True 无论何时工作表中任意单元格重新计算，都会强制计算该函数

109 Application.Volatile False 只有在该函数的一个或多个参数发生改变时，才会重新计算该函数

110 Err.Clear 清除程序运行过程中所有的错误

我20多年的VBA实践经验，全部浓缩在下面的各个教程中：

来源：VBA语言专业教育