在多年的VBA的利用中，觉得VBA对我们的工作确实是非常的有帮助。利用VBA的知识可以让有逻辑关系的计算，数据统计，数据分析的自动计算成为可能。可以完善大家的数据录入，数据报表的形成等多项工作。在VBA的多年实践中我也在总结一些利用的规律，及利用的价值。大的方面朋友可以根据我写的VBA解决方案系列丛书（共三套）来寻求自己的利用点，小的方面可以根据我这里经常总结的一些语句来提高自己。让VBA发挥到极致，才能让我们自己清闲下来。
241 <object>.Add Cell.Value CStr(Cell.Value) 向集合中添加惟一的条目(即将重复的条目忽略)
242 Declare Function GetWindowsDirectoryA Lib "kernel32"
(ByVal lpBuffer As String,ByVal nSize As Long) As Long API函数声明。返回安装Windows所在的目录名称，调用该函数后，安装Windows的目录名称将在第一个参数lpBuffer中，该目录名称的字符串长度包含在第二个参数nSize中
243 Set objExcel = CreateObject("Excel.Application")
objExcel.Workbooks.Add创建Excel工作簿
244
Application.ActivateMicrosoftApp xlMicrosoftWord 开启Word应用程序
245 Application.TemplatesPath 获取工作簿模板的位置
246 Application.Calculation = xlCalculationManual 设置工作簿手动计算
247 Application.Calculation = xlCalculationAutomatic 工作簿自动计算
248 Worksheets(1).EnableCalculation = False 不对第一张工作表自动进行重算
249 Application.CalculateFull 重新计算所有打开的工作簿中的数据
250
Application.RecentFiles.Maximum = 5 将最近使用的文档列表数设为5
251 Application.RecentFiles(4).Open 打开最近打开的文档中的第4个文档
252 Application.OnTime DateSerial(2006, 6, 6) + TimeValue("16:16:16"), "BaoPo" 在2006年6月6日的16:16:16开始运行BaoPo过程
253 Application.Speech.Speak ("Hello" & Application.UserName) 播放声音，并使用用户的姓名问候用户
254 MsgBox Application.International(xlCountrySetting) 返回应用程序当前所在国家的设置信息
255
Application.AutoCorrect.AddReplacement "葛洲坝", "三峡" 自动将在工作表中进行输入的"葛洲坝"更正为"三峡"
256 Beep 让计算机发出声音
257 Err.Number 返回错误代码
258 MsgBox IMEStatus 获取输入法状态
259 Date = #6/6/2006#
Time = #6:16:16 AM# 将系统时间更改为2006年6月6日上午6时16分16秒
260 Application.RollZoom = Not Application.RollZoom 切换是否能利用鼠标中间的滑轮放大/缩小工作表
261
Application.ShowWindowsInTaskba = True 显示任务栏中的窗口,即各工作簿占用各自的窗口
262
Application.DisplayScrollBars = True 显示窗口上的滚动条
263
Application.DisplayFormulaBar = Not
Application.DisplayFormulaBar 切换是否显示编辑栏
264 Application.Dialogs(xlDialogPrint).Show 显示打印内容对话框
265
Application.MoveAfterReturnDirection = xlToRight 设置按Enter键后单元格的移动方向向右
266 Application.FindFile 显示打开对话框
267
ThisWorkbook.FollowHyperlink ####### 打开超链接文档
268
ActiveWorkbook.ChangeFileAccess Mode:=xlReadOnly 将当前工作簿设置为只读
269
ActiveWorkbook.AddToFavorites 将当前工作簿添加到收藏夹文件夹中
270 ActiveSheet.CheckSpelling 在当前工作表中执行"拼写检查"
VBA解决方案系列丛书中，其一是VBA码解决方案，是VBA入门及初级、中级人员的不可多得的实用资料，其二是数据库解决方案，是数据处理的利器；其三是VBA的字典，是VBA的精华。