Displaying progress bar in VBA using a form

Courtesy: Microsoft.com

1.Open a new workbook in Excel.


2.In Microsoft Office Excel 2003 and in earlier versions of Excel, click Tools, point to Macro, and then click Visual Basic Editor.

In Microsoft Office Excel 2007, click Visual Basic in the Code group on the Developer tab.

Note To display the Developer tab in the Ribbon, follow these steps:

a.Start Excel 2007, click the Microsoft Office Button, and then click Excel Options.

b.In the Excel Options dialog box, click Popular, and then click to select the Show Developer tab in the Ribbon check box.

3.On the Insert menu, click UserForm.

4.Draw a Label control on the user form.

5.Change the following properties of the Label control to the following values:

Property Value

--------------------------------------------

Caption Now updating. Please wait...

Note If the Properties window is not visible, click Properties Window on the View menu.

6.Draw a Frame control on the user form.

7.Change the following properties of the Frame control to the following values:

Property Value
-----------------------------

Name FrameProgress

8.Draw a Label control on the Frame control.

9.Change the following properties of the Label control to the following values:

Property Value

-------------------------------------

Name LabelProgress

BackColor &H000000FF&

SpecialEffect fmSpecialEffectRaised

Type the Macro Code

1.Double-click the user form to open the Code window for the user form.

2.In the module, type the following code for the UserForm_Activate event:

Private Sub UserForm_Activate()

' Set the width of the progress bar to 0.

UserForm1.LabelProgress.Width = 0

' Call the main subroutine.

Call Main

End Sub

3.On the Insert menu, click Module.

4.In the Code window for the module, type the following code:

Sub ShowUserForm()

UserForm1.Show

End Sub

Sub Main()

Dim Counter As Integer

Dim RowMax As Integer, ColMax As Integer

Dim r As Integer, c As Integer

Dim PctDone As Single



Application.ScreenUpdating = False

' Initialize variables.

Counter = 1

RowMax = 100

ColMax = 25



' Loop through cells.

For r = 1 To RowMax

For c = 1 To ColMax

'Put a random number in a cell

Cells(r, c) = Int(Rnd * 1000)   /////remove/comment this if you don't want to insert cols/rows....

Counter = Counter + 1

Next c



' Update the percentage completed.

PctDone = Counter / (RowMax * ColMax)



' Call subroutine that updates the progress bar.

UpdateProgressBar PctDone

Next r

' The task is finished, so unload the UserForm.

Unload UserForm1

End Sub



Sub UpdateProgressBar(PctDone As Single)

With UserForm1



' Update the Caption property of the Frame control.

.FrameProgress.Caption = Format(PctDone, "0%")



' Widen the Label control.

.LabelProgress.Width = PctDone * _

(.FrameProgress.Width - 10)

End With



' The DoEvents allows the UserForm to update.

DoEvents

End Sub

5.Return to Excel.

6.In Excel 2003 and in earlier versions of Excel, point to Macro on the Tools menu, and then click Macros.



In Excel 2007, click Macros in the Code group on the Developer tab.

7.In the Macro dialog box, click to select ShowUserForm, and then click Run.