vba progress bar

Animated VBA progress bar for Excel and Access

1 Star2 Stars3 Stars4 Stars5 Stars (2 votes, average: 5.00 out of 5)

Sometimes there are very large and complex solutions built in Excel (which is a mistake mind you), where calculations or macro executions can take minutes or even hours. This causes many issues, especially for the end users who usually do not know how long processing the calculations/macros will take. In such cases it is important to notify the end users of the progress of your macros/calculations so they can switch to other activities. This is where the VBA Progress bar can aid you.

For one of my older projects I needed a VBA Progress Bar that would show:

  1. The current progress of the computations
  2. How much execution time was left (estimation)

Users especially wanted to know how much execution time was left – whether they should grab a coffee or stay and wait for the macro to finish.

Option 1: Animated VBA Progress Bar UserForm

The easiest approach to animating an Excel is to create a simple UserForm with the use of a label control which width you can manipulate to show the current progress. Easy and straightforward.

Example of how to use the VBA Progress Bar in Excel:

Sub ExampleProgressBar()
    Dim pb As ProgressBar
    Set pb = New ProgressBar
    pb.Initialize "My title", 100
    'Add 10% progress
    pb.AddProgress 10
    'Hide and remove the Progress Bar
    Set pb = Nothing
End Sub

The result:

Advanced VBA Progress Bar
Advanced VBA Progress Bar

Download the Progress UserForm complete with sourcecode here:

Option 2: Animated Worksheet VBA Progress Bar

The UserForm progress bar is very good to use when you don’t want to show too much content or use advanced formatting. However, if you want the Progress Bar GUI to be more attractive I would suggest to go with a Worksheet Progress Bar. This gives you unlimited possibilities of how to make your Progress Bar more visually attractive and allows you to use Charts/Conditional formatting etc. My example below calculates the expected time left to complete a given task based on historical progress (forecasting based on how much time to make certain progress). Pretty cool and useful in my opinion when dealing with long lasting VBA Macros.

Excel VBA Progress Bar
Excel VBA Progress Bar

Below feel free to download a Workbook with the Excel Worksheet ProgressBar VBA:

Now how does it work? The progress bar is located on a separate hidden worksheet which appears only when the progress bar is activated. The estimation of the time left is extrapolated based on the time which elapsed to the current progress and will become more accurate with time – depending on how comparative each increment is.

See the example below of how the progress bar is activated and incremented.

Example of how to use the VBA Progress Bar in Excel:

Sub TestProgressBar()
    'Activate the progress bar - switch to the progress bar worksheet
    Call ActivateProgressBar(ActiveWorkbook, ActiveSheet, 100)
    For i = 1 To 100
        Call AddOneProgress
    Next i
    'Deactivate the progress bar - switch to your original worksheet
    Call DeactivateProgressBar(ActiveWorkbook)
End Sub

So simple! Notice also when opening the example file that the update procedure contains the “DoEvents” command. This guarantees that when doing long computations the Excel screen will not freeze but will update and be responsive. The “DoEvents” command is better than using a “Sleep” command as the “Sleep” command does not always work as expected (sometimes freezing Excel) and will unnecessarily extend the time needed to execute the macro. Whereas the “DoEvents” command will only carry out pending Excel events (usually just refreshing the window).

Related Posts

Leave a Reply