Status Bar Progress Meter

[Admin]

Hi All,

Here are some status bar progress meters you could try :)


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 !!

[analyst]

@ 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


Application.StatusBar = False

[snb]

the same result:


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