Barra di avanzamento in un multipage (Excel 2016)

[WCB]

Buonasera a tutti,
spero possiate aiutarmi con il mio quesito.
Ho una userform in cui all'interno è presente un multipage con 7 pagine e volevo inserire una barra di avanzamento (come quello dei download) a percentuale.
In ogni pagina sono presenti diverse textbox non in numero uguale.
Esempio come vorrei che uscisse: la barra di avanzamento si attiverà nel momento in cui apro l'userform sulla prima pagina (b. a. 0%), vado alla seconda pagina tramite pulsante (15%), poi 30%, 50% ecc..
Ho controllato su internet e quello che ho letto è che c'è bisogno di un controllo ProgressBar (che non ho).
Ci sarebbe un'alternativa? Se sì, quale?
Vi ringrazio in anticipo per qualsiasi suggerimento e buona serata

[Anthony47]

In Office 2016 la progress bar dovrebbe essere normalmente diponibile all'interno della libreria MsComCtl.ocx; se non lo vedi gia' nella tua "Casella degli strumenti" usa Menu /Strumenti /Controlli aggiuntivi...; scorri l'elenco e cerca Microsoft ProgressBar Control, metti la "spunta" e conferma con Ok.
Ora dovrebbe essere disponibile nella Casella degli strumenti.

Ciao

[WCB]

Buongiorno,
ho cercato nella casella degli strumenti e non la trovo.
La libreria MsComCtl.ocx non è proprio presente

[Anthony47]

Evidentemente hai Excel 64 bits...
Per i problemi di compatibilita': https://docs.microsoft.com/en-us/previo ... Attributes

I suggerimenti Microsoft per la scelta tra 32bit e 64bit sono disponibili qui:
https://support.office.com/en-us/articl ... A010369476

Se effettivamente hai 64bit allora devi crearti un progressbar fatto in casa. Io in genere uso il seguente approccio:
-Creo un txtbox1, che sara' la cornice della progressbar, e lo lascio con lo sfondo bianco di default
-all'interno di questo txtbox inserisco un txtbox2 con la stessa origine, avente la stessa altezza, larghezza piu' corta, e colore blu. Dimensione e posizione saranno normalizzate all'attivazione della userform.

All'inizializzazione della userform normalizzi posizione e dimensioni del txtbox2 tramite

Codice: Seleziona tutto

Me.TextBox2.Width = 0
Me.TextBox2.Left = Me.TextBox1.Left
Me.TextBox2.Top = Me.TextBox1.Top
Me.TextBox2.Height = Me.TextBox1.Height
Me.TextBox2.TextAlign = fmTextAlignRight


Poi, quando vuoi impostare la progressbar al % indicato nella variabile PERC (valore ammissibile: da 0 a 1) usi

Codice: Seleziona tutto

If PERC > 1 Then PERC = 1
Me.TextBox2.Width = Me.TextBox1.Width * PERC
Me.TextBox2.Text = Format(perc, "0%")


Ciao

[WCB]

In effetti ho controllato la versione ed è a 64 bit.
Comunque, per la progressbar fatta in casa avresti qualche esempio tra le carte?
Grazie mille e buona continuazione

[Anthony47]

Eh he, la progressbar fatta in casa non si compera ma si costruisce.

E (sembrera' strano) le istruzioni sono proprio quelle che ho gia' dato, con l'avvertenza ulteriore che ovviamente i due txtbox sono da inserire in un'area esterna al MultiPage.

Se avrai difficolta' sai come trovarci...