Display Status Bar ''//Get the statusbar display setting Application.
Display Status Bar = True ''//Make sure that the statusbar is visible For i = 1 To i Max ''// imax is usually 30 or so fraction Done = CDbl(i) / CDbl(i Max) Application.
Status Bar = Format(fraction Done, "0%") & " done..." ''// or, alternatively: ''// status Range.value = Format(fraction Done, "0%") & " done..." ''// Some code....... Display Status Bar = boo Status Bar State ''//Reset Status bar display setting Application.
Status Bar = False ''//Return control of the Status bar to Excel Application.
The following commands seem to do the trick: Specifically, if you are dealing with a User Form, then you might try the Repaint method.
You might encounter an issue with Do Events if you are using event triggers in your form.
Here are the example codes to control the Events, Screen Updating, Progress Bar, Display Alerts and other Application Objects.
This will help you to write Optimized VBA Code to fasten your code and build better VBA Macro Applications. Enable Events = False 'Do your Task 'changing combo box combo1.But the screen doesn't refresh, or stops refreshing at some point (e.g. The task eventually completes but the progress bar is useless. For i=1 to imax ' imax is usually 30 or so fraction Done=cdbl(i)/cdbl(imax) Application.Status Bar = Format(fraction Done, "0%") & "done..." ' or, alternatively: ' status Range.value = Format(fraction Done, "0%") & "done..." ' Some code.......This example demonstrates how turning off screen updating can make your code run faster.The example hides every other column on Sheet1, while keeping track of the time it takes to do so.To avoid this, here is the solution: To Enable display alerts: Sub sb Status Bar() 'Pring some text on statusbar Application.