4523756273

Chapter 18: UserForm Techniques and Tricks
307
The procedures
This example uses two procedures and a module level variable.
✓ The module level variable. Located in a VBA module. This variable
holds the copy of the userform:
Dim ProgressIndicator as UserForm1
✓ EnterRandomNumbers. It does all the work and is executed when the
UserForm is shown. Notice that it calls the UpdateProgress procedure,
which updates the progress indicator in the dialog box:
Sub EnterRandomNumbers ()
‘ Inserts random numbers on the active worksheet
Dim Counter As Long
Dim RowMax As Long, ColMax As Long
Dim r As Long, c As Long
Dim PctDone As Single
‘ Create a copy of the form in a variable
Set ProgressIndicator = New UserForm1
‘ Show ProgressIndicator in modeless state
ProgressIndicator.Show vbModeless
If TypeName(ActiveSheet) “Worksheet” Then
Unload ProgressIndicator
Exit Sub
End If
‘ Enter the random numbers
Cells.Clear
Counter = 1
RowMax = 200
ColMax = 50
For r = 1 To RowMax
For c = 1 To ColMax
Cells(r, c) = Int(Rnd * 1000)
Counter = Counter + 1
Next c
PctDone = Counter / (RowMax * ColMax)
Call UpdateProgress(PctDone)
Next r
Unload ProgressIndicator
Set ProgressIndicator = Nothing
End Sub
✓ UpdateProgress. This procedure accepts one argument and updates the
progress indicator in the dialog box:
Sub UpdateProgress(pct)
With ProgressIndicator
.FrameProgress.Caption = Format(pct, “0%”)
.LabelProgress.Width = pct * (.FrameProgress _