Excel VBA教程:ScreenUpdating属性

如果屏幕更新功能是打开的,则该值为 True。Boolean 类型,可读写。

说明

关闭屏幕更新可加快宏的执行速度。这样将看不到宏的执行过程,但宏的执行速度加快了。

当宏结束运行后,请记住将 ScreenUpdating属性设回到 True。

Excel VBA教程:ScreenUpdating属性·示例

本示例演示将屏幕更新关闭以后,系统如何加快代码的执行速度。本示例隔列隐藏 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."

上页:Excel VBA教程:ScreenTip属性 下页:Excel VBA教程:Script属性

Excel VBA教程:ScreenUpdating属性

Excel VBA教程:Script属性 Excel VBA教程:Scripts属性
Excel VBA教程:ScrollArea属性 Excel VBA教程:ScrollColumn属性
Excel VBA教程:ScrollRow属性 Excel VBA教程:SecondaryPlot属性
Excel VBA教程:SecondPlotSize属性 Excel VBA教程:SegmentType属性
Excel VBA教程:SelectedSheets属性 Excel VBA教程:Selection属性
Excel VBA教程:SelectionMode属性 Excel VBA教程:获取有关 Macintosh 关键字的帮助
Excel VBA教程:获取有关 Macintosh 关键字的帮助 Excel VBA教程:Separator属性
Excel VBA教程:SeriesLines属性 Excel VBA教程:ServerBased属性
Excel VBA教程:Shadow属性 Excel VBA教程:Shape属性
Excel VBA教程:ShapeRange属性 Excel VBA教程:Shapes属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号