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

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

VBA是面向对象编程的语言，博大精深。很多朋友咨询VBA的学习方法，我会陆续给大家讲解一些我的经验，大家可以慢慢体会。今日的内容是如何学习VBA_3.3.11 VBA编程经典460句161-200

【分享成果，随喜正能量】353一个人每次说出伤人的话，都是在给自己造业，福报都从这张嘴里跑光了。如果能去清净自己的口业，不说妄语、两舌、恶口这些造恶业的话，经常说善语、利益他人的话，福报就会越积越多。

161 RefEdit1.Text=ActiveWindow.RangeSelection.Address 初始化RefEdit控件显示当前所选单元格区域

162 Set FirstCell=Range(RefEdit1.Text).Range(“A1”) 设置某单元格区域左上角单元格

163 Application.OnTime Now + TimeValue("00:00:15"), "myProcedure" 等待15秒后运行myProcedure过程

164 ActiveWindow.ScrollColumn=ScrollBarColumns.Value 将滚动条控件的值赋值给ActiveWindow对象的ScrollColumn属性

165 ActiveWindow.ScrollRow=ScrollBarRows.Value 将滚动条控件的值赋值给ActiveWindow对象的ScrollRow属性

166 UserForm1.ListBox1.AddItem Sheets(“Sheet1”).Cells(1,1) 将单元格A1中的数据添加到列表框中

167 ListBox1.List=Product 将一个名为Product数组的值添加到ListBox1中

168 ListBox1.RowSource=”Sheet2!SumP” 使用工作表Sheet2中的SumP区域的值填充列表框

169 ListBox1.Selected(0) 选中列表框中的第一个条目(注：当列表框允许一次选中多个条目时，必须使用Selected属性)

170 ListBox1.RemoveItem ListBox1.ListIndex 移除列表框中选中的条目

171 Application.UserName 返回应用程序的用户名

172 Application.Caller 返回代表调用函数的单元格

173 Application.Caller.Parent.Parent 返回调用函数的工作簿名称

174 Application.StatusBar=”请等待……” ‘将文本写到状态栏

175 Application.StatusBar=”请等待……” & Percent & “% Completed” ‘更新状态栏文本，以变量Percent代表完成的百分比

176 Application.StatusBar=False 将状态栏重新设置成正常状态

177 Application.Goto Reference:=Range(“A1:D4”) 指定单元格区域A1至D4，等同于选择“编辑——定位”，指定单元格区域为A1至D4，不会出现“定位”对话框

178 Application.Dialogs(xlDialogFormulaGoto).Show 显示“定位”对话框，但定位条件按钮无效

179 Application.Dialogs(xlDialogSelectSpecial).Show 显示“定位条件”对话框

180 Application.Dialogs(xlDialogFormatNumber).show 显示“单元格格式”中的“数字”选项卡

181 Application.Dialogs(xlDialogAlignment).show 显示“单元格格式”中的“对齐”选项卡

182 Application.Dialogs(xlDialogFontProperties).show 显示“单元格格式”中的“字体”选项卡

183 Application.Dialogs(xlDialogBorder).show 显示“单元格格式”中的“边框”选项卡

184 Application.Dialogs(xlDialogPatterns).show ‘显示“单元格格式”中的“图案”选项卡

185 Application.Dialogs(xlDialogCellProtection).show ‘显示“单元格格式”中的“保护”选项卡

186 Application.Dialogs(xlDialogFormulaGoto).show Range("b2"), True ‘显示“引用位置”的默认单元格区域并显示引用使其出现在窗口左上角(注：内置对话框参数的使用)

187 Application.CommandBars(1).Controls(2).Controls(16).Execute 执行“定位”话框，相当于选择菜单“编辑——定位”命令

188 Application.Transpose(Array(“Sun”,”Mon”,”Tur”,”Wed”,”Thu”,”Fri”,”Sat”)) 返回一个垂直的数组

189 Application.Version ‘返回使用的Excel版本号

190 Application.Cursor = xlNorthwestArrow 设置光标形状为北西向箭头

191 Application.Cursor = xlIBeam 设置光标形状为Ⅰ字形

192 Application.Cursor = xlWait 设置光标形状为沙漏(等待)形

193 Application.Cursor = xlDefault 恢复光标的默认设置

194 Application.WindowState 返回窗口当前的状态

195 Application.WindowState = xlMinimized 窗口最小化

196 Application.WindowState = xlMaximized 窗口最大化

197 Application.WindowState = xlNormal 窗口正常状态

198 Application.UsableHeight 获取当前窗口的高度

199 Application.UsableWidth 获取当前窗口的宽度

200 Application.ActiveCell.Address 返回活动单元格的地址(注:返回的是绝对地址)

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