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

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

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

【分享成果，随喜正能量】337圆满的人生，不是靠成大功、立大业，或是做大官、赚大钱就能实现，而是要靠自己有信仰、有道德、有修行、有智慧，才能慢慢完成。

大家在学习VBA过程中要注意积累自己的所学，把自己经常用到的一些语句总结，下面是的总结资料，供大家参考。这些可以作为积木编程的一个有效补充。

111 ThisWorkbook.BuiltinDocumentProperties(“Last Save Time”) 返回上次保存工作簿的日期和时间

112 Application.Caller.Parent.Parent.BuiltinDocumentProperties(“Last Save Time”) 返回上次保存工作簿的日期和时间

113 ThisWorkbook.BuiltinDocumentProperties("Last Print Date") 返回上次打印或预览工作簿的日期和时间

114 Application.Caller.Parent.Parent.BuiltinDocumentProperties(“Last Print Date”) 返回上次打印或预览工作簿的日期和时间

115 Workbooks.Close 关闭所有打开的工作簿

116 ActiveWorkbook.LinkSources(xlExcelLinks)(1) 返回当前工作簿中的第一条链接

117 ActiveWorkbook.CodeName返回工作簿代码的名称

117 ThisWorkbook.CodeName 返回工作簿代码的名称

118 ActiveWorkbook.FileFormat 返回当前工作簿文件格式代码

119 ThisWorkbook.FileFormat 返回当前工作簿文件格式代码

120 ThisWorkbook.Path返回当前工作簿的路径(注:若工作簿未保存,则为空)

121 ActiveWorkbook.Path 返回当前工作簿的路径(注:若工作簿未保存,则为空)

122 ThisWorkbook.Saved 工作簿存储

123 ActiveWorkbook.Saved 工作簿存储值

124 Application.Visible = False 隐藏工作簿

125 Application.Visible = True 显示工作簿

126 ActiveSheet.Columns("B").Insert 在A列右侧插入列，即插入B列

127 ActiveSheet.Columns("E").Cut

ActiveSheet.Columns("B").Insert 以上两句将E列数据移至B列，原B列及以后的数据相应后移

128 ActiveSheet.Columns("B").Cut

ActiveSheet.Columns("E").Insert 以上两句将B列数据移至D列，原C列和D列数据相应左移一列

129 ThisWorkbook.Worksheets(“sheet1”).Visible=xlSheetHidden 隐藏工作表

130 ThisWorkbook.Worksheets(“sheet1”).Visible=xlSheetVeryHidden 隐藏工作表，不能通过在Excel菜单中选择“格式——工作表——取消隐藏”来重新显示工作表

131 ThisWorkbook.Worksheets(“sheet1”).Visible=xlSheetVisible 显示被隐藏的工作表

132 ThisWorkbook.Sheets(1).ProtectContents 保护工作表

133 ThisWorkbook.Worksheets.Add Count:=2, Before:=ThisWorkbook.Worksheets(2)

在第二个工作表之前添加两个新的工作表

134 ThisWorkbook.Workshees.Add ThisWorkbook.Worksheets(2), , 2 在第二个工作表之前添加两个新的工作表

135 ThisWorkbook.Worksheets(3).Copy 复制一个工作表到新的工作簿

136 ThisWorkbook.Worksheets(3).Copy ThisWorkbook.Worksheets(2) 复制第三个工作表到第二个工作表之前

137 ThisWorkbook.ActiveSheet.Columns.ColumnWidth = 20 改变工作表的列宽为20

138 ThisWorkbook.ActiveSheet.Columns.ColumnWidth=ThisWorkbook.ActiveSheet.StandardWidth 将工作表的列宽恢复为标准值

139 ThisWorkbook.ActiveSheet.Columns(1).ColumnWidth = 20 改变工作表列1的宽度为20

140 ThisWorkbook.ActiveSheet.Rows.RowHeight = 10 改变工作表的行高为10

141 ThisWorkbook.ActiveSheet.Rows.RowHeight = ThisWorkbook.ActiveSheet.StandardHeight 将工作表的行高恢复为标准值

142 ThisWorkbook.ActiveSheet.Rows(1).RowHeight = 10 改变工作表的行1的高度值设置为10

143 ThisWorkbook.Worksheets(1).Activate 当前工作簿中的第一个工作表被激活

144 ThisWorkbook.Worksheets("Sheet1").Rows(1).Font.Bold = True 设置工作表Sheet1中的行1数据为粗体

145 ThisWorkbook.Worksheets("Sheet1").Rows(1).Hidden = True 将工作表Sheet1中的行1隐藏

144 ActiveCell.EntireRow.Hidden = True 将当前工作表中活动单元格所在的行隐藏

145 ActiveSheet.Range(“A:A”).EntireColumn.AutoFit 自动调整当前工作表A列列宽

146 ActiveSheet.Cells.SpecialCells(xlCellTypeConstants,xlTextValues) 选中当前工作表中常量和文本单元格

147 ActiveSheet.Cells.SpecialCells(xlCellTypeConstants,xlErrors+xlTextValues) 选中当前工作表中常量和文本及错误值单元格

148 Application.WorksheetFunction.CountA(Range(“A:A”))+1 获取A列的下一个空单元格

149 WorksheetFunction.CountA(Cell.EntireColumn) 返回该单元格所在列非空单元格的数量

150 WorksheetFunction.CountA(Cell.EntireRow) 返回该单元格所在行非空单元格的数量

151 WorksheetFunction.CountA(Cells) 返回工作表中非空单元格数量

152 ActiveSheet.Range(“A20:D20”).Formula=“=Sum(R[-19]C:R[-1]C” 对A列至D列前19个数值求和

153 ActiveWindow.Visible=False 使当前窗口图表处于非活动状态

154 ActiveChart.Deselect 使图表处于非活动状态

155 UserForms.Add(MyForm).Show 添加用户窗体MyForm并显示

156 TextName.SetFocus 设置文本框获取输入焦点

157 UserForm1.Controls.Count 显示窗体UserForm1上的控件数目

159 ListBox1.ListIndex 返回列表框中条目的值，若为-1，则表明未选中任何列表框中的条目

160 RefEdit1.Text 返回代表单元格区域地址的文本字符串

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

来源：VBA语言专业教育