宏运行时如何显示进度条？

Question

I created a ProgressBar I want to display with % while my macro runs.

I tried the parameters UserForm1.Show vbModeless and UserForm1.Repaint in my main macro.

Private Sub UserForm_Activate()    
    Dim reminder As Long        
    Dim i As Long, j As Long

    reminder = 0

    For i = 1 To 200        
        UserForm1.Label2.Width = UserForm1.Label2.Width + 1

        If i Mod 2 = 0 Then        
            reminder = reminder + 1        
            UserForm1.Caption1 = reminder & " % completed"        
        End If

        For j = 1 To 150        
            DoEvents        
        Next j        
    Next i

    Unload UserForm1    
End Sub

The UserForm stops on 0% and my main macro runs to the end, then the UserForm with ProgressBar runs from 0 to 100% and closes.

Answer 1

That can not work like this. You need 3 functions one to show the userform progressbar 0 percent. then you need a function to update your form end finaly the function to remove the form This code is NOT tested see the testing code i posted here also !

            Dim counter As Long        

            Public Sub UserForm_Activate()    
                counter = 0
                UserForm1.Label2.Width =0
                UserForm.show
            End Sub


            Public Sub UserForm_update()    
                if counter <100 then counter=counter+1
                UserForm1.Label2.Width =  counter
                DoEvents        
            end sub


            Public Sub UserForm_close()    
                counter = 0
                UserForm.hide
            End Sub


            'somewhere in a module or class

            sub calculate
                call UserForm_Activate()    
                for i=0 to 100
                   call UserForm_update()
                   'whatever 
   '  Sleep (200) if this very handy OS call is included somewhere
                next
                call UserForm_close
            end sub 

Answer 2

WORKING: I create two NON MODAL! Forms NAMED "progressbar" ( with 1 Textbox NAMED counter) and "tester " (with 3 Buttons NAMED count hide and show)

the code in progressbar:

            Dim count As Long

            Public Sub progressbar_show()
                count = 0
                progressbar.Show
            End Sub


            Public Sub progressbar_update()
                If count < 100 Then count = count + 1
                progressbar.counter.Text = Str(count)
                DoEvents
            End Sub


            Public Sub progressbar_close()
                counter = 0
                progressbar.hide
            End Sub

The code in tester: (calls routines in form progressbar)

            Private Sub count_Click()
                Call progressbar.progressbar_update
            End Sub

            Private Sub hide_Click()
                Call progressbar.progressbar_close
            End Sub

            Private Sub show_Click()
                Call progressbar.progressbar_show
            End Sub

Works as designed. on the click button the textbox will be updated on each click. Please note HOW i call the functions from on form to the other form. The form name has to be included. The name of the controls have also to match. Its a good idea to rename the controls and forms. I made a autocad VBA with has 1700 controls. Its not the fun after some weeks to imagine what commandbutton_762 actuelly may do ;)