Wie kan mij helpen met het volgende:
Ik wil VBA een paar dingen laten doen, tijdens het uitvoeren hiervan wil ik een progress-bar op het scherm de voortgang laat zien.
De code voor de progress bar heb ik al:
Nu wil ik bijvoorbeeld (om het simpel te houden) van blad1 de celinhoud van A1 naar B1 kopieren, vervolgens van Blad2 ook de celinhoud van A1 naar B1 kopieeren, daarna van Blad3 de celinhoud van A1 naar B1 kopieeren, etc etc tm blad 12
Wie kan helpen de code zo aan te passen (ergens zal wel de sreenupdating uitgezet moeten worden denk ik) dat deze acties op de achtergrond gebeuren terwijl alleen de progressbar zichtbaar is?
Alvast bedankt voor de hulp.
gr.
Duco
Ik wil VBA een paar dingen laten doen, tijdens het uitvoeren hiervan wil ik een progress-bar op het scherm de voortgang laat zien.
De code voor de progress bar heb ik al:
Code:
Sub show_progress_bar()
Dim i As Integer
With Prog_bar
'SET MIN value to 0
.ProgressBar1.Min = 0
'SET Max value as per your requirement
.ProgressBar1.Max = 10000
.Show vbModeless
'.ScrollBars = fmScrollBarsVertical
' run a loop to display progres bar
For i = 1 To 10000
'change the value of progress bar to show the progress using fill color
.ProgressBar1.Value = i
' chnage the caption of user form to display the percentage of task completed
.Caption = VBA.Format(i / Prog_bar.ProgressBar1.Max, "0%") & " Complete"
DoEvents ' DoEvents allows the UserForm to update.
Next
End With
' task finish unload progress bar
Unload Prog_bar
End Sub
Nu wil ik bijvoorbeeld (om het simpel te houden) van blad1 de celinhoud van A1 naar B1 kopieren, vervolgens van Blad2 ook de celinhoud van A1 naar B1 kopieeren, daarna van Blad3 de celinhoud van A1 naar B1 kopieeren, etc etc tm blad 12
Wie kan helpen de code zo aan te passen (ergens zal wel de sreenupdating uitgezet moeten worden denk ik) dat deze acties op de achtergrond gebeuren terwijl alleen de progressbar zichtbaar is?
Alvast bedankt voor de hulp.
gr.
Duco
Laatst bewerkt door een moderator: