提高 Excel中 VBA 编程的效率研究

中图分类号：TP 文献标识码：A 文章编号：1007-0745（2013）09-0350-01

摘要：由于 Microsoft Office 办公套件的广泛应用，以及该软件版本的不断提升，功能不断完善，在 Office 办公套件平台上开发出的的 VBA 应用程序越来越多，而 VBA 是一种宏语言，在运行速度上有很大的限制。因此 VBA 编程的方法直接关系到 VBA 程序运行的效率，本文列举了一些提高 VBA 程序运行效率的方法。

关键词：VBA 属性 方法 函数

由于微软Office软件的普及，人们常见的办公软件Office软件中的Word、excel、Access、Powerpoint都可以利用vba使这些软件的应用更高效率，例如：通过一段VBA代码，可以实现画面的切换；可以实现复杂逻辑的统计等。掌握了VBA，可以发挥以下作用：

1.规范用户的操作，控制用户的操作行为；

2.操作界面人性化，方便用户的操作；

3.多个步骤的手工操作通过执行VBA代码可以迅速的实现；

4.实现一些VB无法实现的功能

为了办公的需求，提高VBA的执行效率也成为了EXCEL开发中的首要问题。经过多年的学习，本人总结了以下几点：

一、尽量使用 VBA 原有的属性、方法

由于 Excel 对象多达百多个，对象的属性、方法、事件多不胜数，对于初学者来说可能对 它们不全部了解，这就产生了编程者经常编写与 Excel 对象的属性、方法相同功能的 VBA 代码段，而这些代码段的运行效率显然与 Excel 对象的属性、方法完成任务的速度相差甚大。例如：用 Range 的属性 CurrentRegion 来返回 Range 对象，该对象代表当前区。同样功能的 VBA 代码需数十行。因此编程前应尽可能多地了解 Excel对象的属性、方法。充分利用 Worksheet 函数是提高程序运行速度的极度有效的方法。如求平均工资的例子：

For Each c InWorksheet（1）.Range（″A1：A1000″）

TotalValue = TotalValue + c.ValueNext

AverageValue = TotalValue / Worksheet（1）.Range（″A1：A1000″）.Rows.Count

而下面代码程序比上面例子快得多：

AverageValue=Application.WorksheetFunction.Average（Worksheets（1）.Range（ ″A1：A1000″））

其它函数如 Count，Counta，Countif，Match，Lookup 等等，都能代替相同功能的 VBA 程序代 码，提高程序的运行速度。

二、尽量减少使用对象引用，尤其在循环中

每一个 Excel 对象的属性、方法的调用都需要通过 OLE 接口的一个或多个调用，这些 OLE 调用都是需要时间的，减少使用对象引用能加快 VBA 代码的运行。例如

1.使用 With 语句。

Workbooks（1）.Sheets（1）.Range（″A1：A1000″）.Font.Name=″Pay″

Workbooks（1）.Sheets（1）.Range（″A1：A1000″）.Font.FontStyle=″Bold″ ...

则以下语句比上面的快

With Workbooks（1）.Sheets（1）.Range（″A1：A1000″）.Font

.Name = ″Pay″

.FontStyle = ″Bold″

End With

2.使用对象变量。

如果你发现一个对象引用被多次使用，则你可以将此对象用 Set 设置为对象变量，以减少对对象的访问。如：Workbooks（1）.Sheets（1）.Range（″A1″）.Value = 100

Workbooks（1）.Sheets（1）.Range（″A2″）.Value = 200

则以下代码比上面的要快： Set MySheet = Workbooks（1）.Sheets（1）MySheet.Range（″A1″）.Value = 100 MySheet.Range（″A2″）.Value = 200

3.在循环中要尽量减少对象的访问。

For k = 1 To 1000Sheets（″Sheet1″）.SelectCells（k，1）.Value = Cells（1，1）.Value

Next k

则以下代码比上面的要快：Set TheValue = Cells（1，1）.Value

Sheets（″Sheet1″）.SelectFor k = 1 To 1000 Cells（k，1）.Value = TheValue

Next k

三、减少对象的激活和选择

如果你的通过录制宏来学习 VBA 的，则你的 VBA 程序里一定充满了对象的激活和选择，例如 Workbooks（XXX）.Activate、Sheets（XXX）.Select、Range（XXX）.Select 等，但事实上大多数情况下这些操作不是必需的。例如

Sheets（″Sheet3″）.SelectRange（″A1″）.Value = 100 Range（″A2″）.Value = 200

可改为：

With Sheets（″Sheet3″）.Range（″A1″）.Value = 100 .Range（″A2″）.Value = 200

End With

四、关闭屏幕更新

如果你的 VBA 程序前面三条做得比较差，则关闭屏幕更新是提高 VBA 程序运行速度的最有效的方法，缩短运行时间 2/3 左右。关闭屏幕更新的方法：

Application.ScreenUpdate = False

请不要忘记 VBA 程序运行结束时再将该值设回来：

Application.ScreenUpdate = True

结束语：

掌握VBA最好的方式就是使用，从基础学起，多练习多动脑筋。通过示例可以加速学习程序设计概念的过程。实用程序不一定很复杂，有一些最有用的实用程序实际上非常简单。切合实际，学习VBA就会更快。起先很难掌握VBA，但是具体的实践会使其简单很多；试验是掌握VBA的关键；Excel几乎可以做任何事情；加强对VBA源代码的学习，特别是高质量源代码的学习。通过上述几种方法可以提高应用程序的执行速度，并能够有效的提高代码的可读性，避免了一些不必要的时间浪费。