Progress bar che non funziona

Hai un problema con Excel?

Nuova discussione

Progress bar che non funziona ...
di Ferp data: 08/11/2008
Ciao a tutti,

vi sottopongo un altro mio problema.
ho creato una user form "frmprogressbar" che contiene una label "labelprogress".

il mio foglio ha un pulsante che contiene il seguente codice:

private sub pulsante1_click()
...
application.screenupdating = false
frmprogressbar.show
frmprogressbar.labelprogress.width = 0

pctcnt = 1
for cnt = 1 to 100
for a = 1 to 500000
next
pctcnt = pctcnt + 1
completed = pctcnt / 100
frmprogressbar.labelprogress.width = completed * frmprogressbar.width
doevents
next
unload frmprogressbar
msgbox ("finito")

end sub

ma quando eseguo il codice del pulsante invece di vedere avanzare la barra di progressione vedo che il codice è fermo in

frmprogressbar.show

non riesco a capire dove sbaglio ...
mi potete pf aiutare ?

grazie
ferp

di Ricky53 data: 09/11/2008
Ciao,
prova in questo modo

1. inserisci in un form una userform di nome "progressione", nella form inserisci un frame di nome "frame1"
2. inseirisci un modulo e copia le istruzioni che ti ho inviato.
3. adatta secondo la tua necessità

prova e fai sapere.

ciao da ricky53

Public RR As Double, Denom_Perc As Double
Sub Esegui_Ciclo()
    RR = 10000
    [E1] = Time()
    [E2] = ""
    Progressione.Caption = " Elaborazione dati in corso "
    Denom_Perc = RR
    
    For I = 1 To RR
        Barra_Avanzamento (I)
    Next I
    [E2] = Time()
End Sub
Sub Barra_Avanzamento(Riga_Locale)
    Percentuale = Riga_Locale / Denom_Perc
    Progressione.Frame1.Caption = Format(Percentuale, "0%")
    Progressione.Label1.Width = Percentuale * (Progressione.Frame1.Width - 25)
    Progressione.Show
    DoEvents
End Sub

Vuoi Approfondire?