Performance Implications of Screen Updating : Application « Application « VBA / Excel / Access / Word






Performance Implications of Screen Updating

 
Sub TimeScreenUpdating() 
    Dim dResult As Double 
    dResult = TestScreenUpdating(True) 
    MsgBox Format(dResult, "0.00") & " seconds.", vbOKOnly 

    dResult = TestScreenUpdating(False) 
    MsgBox Format(dResult, "0.00") & " seconds.", vbOKOnly 

End Sub 
Function TestScreenUpdating(bUpdatingOn As Boolean) As Double 
    Dim nRepetition As Integer 
    Dim ws As Worksheet 
    Dim dStart As Double 

    dStart = Timer 

    Application.ScreenUpdating = bUpdatingOn 

    For nRepetition = 1 To 250 
        For Each ws In ThisWorkbook.Worksheets 
            ws.Activate 
        Next 
    Next 

    Application.ScreenUpdating = True 
    TestScreenUpdating = Timer - dStart 
    Set ws = Nothing 
End Function 

 








Related examples in the same category

1.Get application user name
2.Application.Path
3.Use the Application object qualifier to set properties
4.start word
5.start Power point
6.start mail client
7.start Access
8.start Foxpro
9.start Project
10.start schedule
11.Listing Application CommandBars
12.Make sure that the help file can be located:
13.Specifying the proper Excel version: Warn users who attempt to open the add-in using Excel 97
14.Pick the Perfect Location with GetSaveAsFilename
15.System Information Available Using Application Object Properties
16.CalculationVersion: Right four digits indicate the version of the calculation engine whereas the digits to the left indicate the major version of Excel.
17.MemoryFree Returns the amount of memory in bytes that Excel is allowed to use, not including memory already in use.
18.MemoryUsed Returns the amount of memory, in bytes, that Excel is currently using.
19.MemoryTotal Returns the total amount of memory, in bytes, that Excel can use. It includes memory that is already in use. It is the sum of MemoryFree and MemoryUsed.
20.OperatingSystem Returns the name and version of the Operating System.
21.OrganizationName Returns the name of the organization to which the product is registered.
22.UserName Returns or sets the name of the current user.
23.Version Returns the version of Excel that is in use.
24.Toggles the calculation mode between manual and automatic and displays a message indicating the current mode:
25.Turning off screen updating
26.Turning off automatic calculation: Sets the Excel calculation mode to manual
27.Execute the next statement to set the calculation mode to automatic:
28.To avoid these alert messages, insert the following VBA statement in your macro:
29.Clearing the Recently Used Files List
30.Setting a Default File Location
31.If you need to avoid user interaction you can turn off alerts in Excel by setting the DisplayAlerts property of the Application object to False before deleting the worksheet and then turning alerts back on again:
32.Quitting Application
33.Benchmark with/without setting the Application.ScreenUpdating
34.Application.InchesToPoints
35.Get window state information
36.Using the StatusBar property to Display Information
37.Cursors Available to Use with the Cursor Property
38.Demonstration of Window size Properties
39.Display application in full screen mode