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

VBA / Excel / Access / Word
1. Access
2. Application
3. Data Type
4. Data Type Functions
5. Date Functions
6. Excel
7. File Path
8. Forms
9. Language Basics
10. Math Functions
11. Outlook
12. PowerPoint
13. String Functions
14. Windows API
15. Word
16. XML
Java
Java Tutorial
Java Source Code / Java Documentation
Java Open Source
Jar File Download
Java Articles
Java Products
Java by API
Photoshop Tutorials
Maya Tutorials
Flash Tutorials
3ds-Max Tutorials
Illustrator Tutorials
GIMP Tutorials
C# / C Sharp
C# / CSharp Tutorial
C# / CSharp Open Source
ASP.Net
ASP.NET Tutorial
JavaScript DHTML
JavaScript Tutorial
JavaScript Reference
HTML / CSS
HTML CSS Reference
C / ANSI-C
C Tutorial
C++
C++ Tutorial
Ruby
PHP
Python
Python Tutorial
Python Open Source
SQL Server / T-SQL
SQL Server / T-SQL Tutorial
Oracle PL / SQL
Oracle PL/SQL Tutorial
PostgreSQL
SQL / MySQL
MySQL Tutorial
VB.Net
VB.Net Tutorial
Flash / Flex / ActionScript
XML
XML Tutorial
Microsoft Office PowerPoint 2007 Tutorial
Microsoft Office Excel 2007 Tutorial
Microsoft Office Word 2007 Tutorial
VBA / Excel / Access / Word » Application » Application 
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 = To lLastRow
        If lRow Mod nInterval = 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
www.java2java.com | Contact Us
Copyright 2009 - 12 Demo Source and Support. All rights reserved.
All other trademarks are property of their respective owners.