[分享]提速效果明显的语法

nelsonwg

我最近试用过以下语法, 果然提速很明显, 特别是在抄写大量数据时, 不过最好只加在抄写数据, 因为它是把控件及工作表事件作了禁止, 在还没恢复时 会影响控件及工作表操作. 大家可自行测试一下. 记得用的时候别漏了恢复.... Sub Test() Application.EnableEvents = 0 With Application .EnableEvents = False '禁止控件及工作表事件,提速效果明显 .Calculation = xlCalculationManual .ScreenUpdating = False End With '要处理的东西放在这里 With Application .EnableEvents = True .Calculation = xlCalculationAutomatic .ScreenUpdating = True End With Application.EnableEvents = 1 End Sub

wormofsky

谢谢

zw1028

先收藏！谢谢！同时想请老师能否逐句注释一下，这么好的句子能够知其然，且知其所以然，才能活学活用。望老师能如学生所愿！再次谢谢！

[此贴子已经被作者于2006-3-19 19:57:12编辑过]

nelsonwg

可以参考一下ＨＥＬＰ中的说明 EnableEvents 属性 参阅应用于示例特性 如果对指定对象启用事件，则该值为 True。Boolean 类型，可读写。 示例 本示例在保存文件之前禁用事件，以使 BeforeSave 事件不能触发。 Application.EnableEvents = False ActiveWorkbook.Save Application.EnableEvents = True 示例 本示例设置 Microsoft Excel 在将工作簿保存到磁盘之前对工作簿进行计算。 Application.Calculation = xlCalculationManual Application.CalculateBeforeSave = True ScreenUpdating 属性参阅应用于示例特性如果屏幕更新功能是打开的，则该值为 True。Boolean 类型，可读写。说明关闭屏幕更新可加快宏的执行速度。这样将看不到宏的执行过程，但宏的执行速度加快了。当宏结束运行后，请记住将 ScreenUpdating 属性设回到 True。示例本示例演示将屏幕更新关闭以后，系统如何加快代码的执行速度。本示例隔列隐藏 Sheet1 上的列，并保存其执行时间。第一次，示例隐藏列时，屏幕更新是打开的；第二次执行时，屏幕更新是关闭的。运行本示例时，可比较信息框中显示的两次执行时间。Dim elapsedTime(2) Application.ScreenUpdating = True For i = 1 To 2 If i = 2 Then Application.ScreenUpdating = False startTime = Time Worksheets("Sheet1").Activate For Each c In ActiveSheet.Columns If c.Column Mod 2 = 0 Then c.Hidden = True End If Next c stopTime = Time elapsedTime(i) = (stopTime - startTime) * 24 * 60 * 60 Next i Application.ScreenUpdating = True MsgBox "Elapsed time, screen updating on: " & elapsedTime(1) & _ " sec." & Chr(13) & _ "Elapsed time, screen updating off: " & elapsedTime(2) & _ " sec."