Come creare una barra di avanzamento in VBA

Una barra di avanzamento viene utilizzata in un'applicazione per computer per indicare l'avanzamento di un'operazione. Di solito è un rettangolo animato mentre un'operazione avanza. Visual Basic, Applications Edition, o VBA, è un linguaggio di programmazione per computer utilizzato nelle applicazioni di Microsoft Office per automatizzare le attività di routine e creare interfacce utente. Puoi facilmente creare una barra di avanzamento utilizzando VBA in Microsoft Office Excel. Excel è un'applicazione per fogli di calcolo inclusa nella suite Microsoft Office.

Passaggio 1

Apri Microsoft Office Excel, quindi premi "Alt" e "F11" per aprire Visual Basic Editor. Fare clic con il pulsante destro del mouse su "VBAProject", quindi fare clic su "UserForm" per inserire un nuovo modulo. Dal menu "Casella degli strumenti", fai clic su "Etichetta". Tenendo premuto il pulsante del mouse, trascina sul modulo per creare un nuovo controllo etichetta.

Passaggio 2

Fai clic con il pulsante destro del mouse sull'etichetta e seleziona "Proprietà", quindi modifica "Altezza" su 42 e "Larghezza" su 12. Modifica "In alto" su 12. Crea altre nove etichette utilizzando la stessa procedura.

Passaggio 3

Fai clic su "CommandButton" nel riquadro "Toolbox" e aggiungi un nuovo pulsante al modulo. Fare clic con il pulsante destro del mouse su "CommandButton" e fare clic su "Visualizza codice" per creare una nuova procedura.

Passaggio 4

Digita quanto segue per creare una nuova variabile e definirne il valore:

Dim cnt As Integer cnt =0

Passaggio 5

Digita quanto segue per nascondere tutte le etichette all'avvio del modulo:

Me.Label1.Visible =False Me.Label2.Visible =False Me.Label3.Visible =False Me.Label4.Visible =False Me.Label5.Visible =False Me.Label6.Visible =False Me.Label7.Visible =False Me.Label6.Visible =False Me.Label7.Visible =False me .Label8.Visible =False Me.Label9.Visible =False Me.Label10.Visible =False

Passaggio 6

Digita quanto segue per creare un ciclo while e ripeti 10 volte mentre metti in pausa il codice per 5 secondi:

Do While cnt <> 10

Select Case cnt
 Case Is = 1
 Me.Label1.Visible = True
 Me.Label1.BackColor = vbBlue
 Case Is = 2
 Me.Label2.Visible = True
 Me.Label2.BackColor = vbBlue

 Case Is = 3
 Me.Label3.Visible = True
 Me.Label3.BackColor = vbBlue

 Case Is = 4
 Me.Label4.Visible = True
 Me.Label4.BackColor = vbBlue

 Case Is = 5
 Me.Label5.Visible = True
 Me.Label5.BackColor = vbBlue

 Case Is = 6
 Me.Label6.Visible = True
 Me.Label6.BackColor = vbBlue

 Case Is = 7
 Me.Label7.Visible = True
 Me.Label7.BackColor = vbBlue

 Case Is = 8
 Me.Label8.Visible = True
 Me.Label8.BackColor = vbBlue

 Case Is = 9
 Me.Label9.Visible = True
 Me.Label9.BackColor = vbBlue

 Case Is = 10
 Me.Label10.Visible = True
 Me.Label10.BackColor = vbBlue


End Select
Me.Repaint

Application.Wait Now + TimeValue("00:00:05")

cnt =cnt + 1

Ciclo

Passaggio 7

Fare clic sul menu "Inserisci", quindi fare clic su "Modulo" per aggiungere un nuovo modulo. Copia e incolla il codice qui sotto per avviare il tuo "UserForm1.":

Sub showProgressBar() UserForm1.Show End Sub

Premi "F5" per eseguire il programma.