Results 1 to 3 of 3

Thread: Status Bar Progress Meter

  1. #1
    Administrator Admin's Avatar
    Join Date
    Mar 2011
    Posts
    1,122
    Rep Power
    10

    Lightbulb Status Bar Progress Meter

    Hi All,

    Here are some status bar progress meters you could try

    Code:
    Sub StatusBarProgressMeters()
        
        Dim i   As Long
        Dim n   As Long
        Dim c   As String
        Dim a
        
        a = Array(8, 8718, 9670, 10026, 10687)
        
        For i = 1 To 50
            If (i - 1) Mod 10 = 0 Then
                n = n + 1
                c = ChrW(a(n - 1))
            End If
            Application.Wait Now + TimeSerial(0, 0, 1)
            Application.StatusBar = "Processing " & String(i Mod 10, c)
        Next
        Application.StatusBar = False
        
    End Sub
    Enjoy !!
    Cheers !

    Excel Range to BBCode Table
    Use Social Networking Tools If You Like the Answers !

    Message to Cross Posters

    @ Home - Office 2010/2013/2016 on Win 10 (64 bit); @ Work - Office 2016 on Win 10 (64 bit)

  2. #2
    Member
    Join Date
    Aug 2013
    Posts
    59
    Rep Power
    11
    @ Thanks, Admin

    This could be nice code, when someone is running a big procedures, and not sure whats going on except mouse pointer turns as hourglass.

    I guess, the main Macro/Code/Procedure should start before

    Code:
    Application.StatusBar = False

  3. #3
    Senior Member
    Join Date
    Jun 2012
    Posts
    337
    Rep Power
    12
    the same result:

    Code:
    Sub StatusBarProgressMeters()
        For j = 1 To 50
            Application.Wait Now + TimeSerial(0, 0, 1)
            Application.StatusBar = "Processing " & String(j Mod 10, ChrW(Choose(j \ 10 + 1, 8, 8718, 9670, 10026, 10687)))
        Next
        Application.StatusBar = False
    End Sub

Similar Threads

  1. Command Bar Width Property
    By vitesh in forum Excel Help
    Replies: 2
    Last Post: 05-30-2014, 09:48 AM
  2. Send Automatic Reminder Mails Row By Row Based On Status
    By amar.kshirsagar in forum Excel Help
    Replies: 4
    Last Post: 08-09-2013, 07:36 PM
  3. Replies: 11
    Last Post: 11-10-2011, 12:32 AM
  4. Adding A Menu Bar To A User Form
    By Rasm in forum Excel Help
    Replies: 14
    Last Post: 05-05-2011, 04:05 AM
  5. Hide Ribbon and Formula Bar
    By Excel Fox in forum Excel and VBA Tips and Tricks
    Replies: 0
    Last Post: 04-21-2011, 07:03 PM

Tags for this Thread

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •