提高 Excel中 VBA 编程效率研究.docVIP

提高 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 TheV