Using the StatusBar property to Display Information

 
Sub TimeStatusBar()
    Dim dStart As Double
    Dim dResult As Double
    Dim bDisplayStatusBar As Boolean

    bDisplayStatusBar = Application.DisplayStatusBar
    Application.DisplayStatusBar = True

    dStart = timer
    TestStatusBar 1, False
    dResult = timer - dStart
    MsgBox Format(dResult, "0.00") & " seconds.", vbOKOnly

    dStart = timer
    TestStatusBar 1, True
    dResult = timer - dStart
    MsgBox Format(dResult, "0.00") & " seconds.", vbOKOnly

    dStart = timer
    TestStatusBar 5, True
    dResult = timer - dStart
    MsgBox Format(dResult, "0.00") & " seconds.", vbOKOnly

    Application.DisplayStatusBar = bDisplayStatusBar
End Sub
Sub TestStatusBar(nInterval As Integer, bUseStatusBar As Boolean)
    Dim lRow As Long
    Dim lLastRow As Long
    Dim ws As Worksheet

    Set ws = ThisWorkbook.Worksheets(1)

    lLastRow = ws.Rows.Count

    For lRow = 1 To lLastRow
        If lRow Mod nInterval = 0 Then
            If bUseStatusBar Then
                Application.StatusBar = "Processing row: " & lRow & _
                " of " & lLastRow & " rows."
            End If
        End If
    Next

    Application.StatusBar = False
    Set ws = Nothing
End Sub

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.	Cursors Available to Use with the Cursor Property
37.	Demonstration of Window size Properties
38.	Performance Implications of Screen Updating
39.	Display application in full screen mode

Using the StatusBar property to Display Information : Application « Application « VBA / Excel / Access / Word

Related examples in the same category