Una barra di avanzamento viene utilizzato in una applicazione informatica per indicare lo stato di avanzamento di un'operazione. E ' comunemente un rettangolo che è animato da una operazione fa progressi . Visual Basic, Applications o VBA , è un linguaggio di programmazione utilizzato in applicazioni di Microsoft Office per automatizzare le attività di routine e di creare interfacce utente . È possibile creare facilmente una barra di avanzamento utilizzando VBA in Microsoft Office Excel . Excel è un foglio di calcolo incluso nella suite di Microsoft Office . Istruzioni
1

Aprire Microsoft Office Excel , quindi premere il tasto " Alt " e " F11 " per aprire l'editor di Visual Basic. Right-click " VBAProject ", quindi fare clic su " form " per inserire un nuovo modulo . Dal menu " Strumenti " , clicca su " Label ". Mentre si tiene premuto il pulsante del mouse , trascinare il modulo per creare un nuovo controllo etichetta .
2

pulsante destro del mouse sull'etichetta e selezionare "Proprietà ", quindi cambiare " Altezza " a 42 e "Larghezza" a 12 . Modificare il "Top " a 12 . Creare più nove etichette utilizzando lo stesso processo .
3

Clicca " CommandButton " nel riquadro "Toolbox" e aggiungere un nuovo pulsante al form . . Destro del mouse su " CommandButton " e fare clic su " Visualizza codice " per creare una nuova procedura
4

digitare quanto segue per creare una nuova variabile e definire il suo valore :

Dim cnt come integer

cnt = 0
5

digitare quanto segue per nascondere tutte le etichette quando il modulo viene avviato :

Me.Label1.Visible =
False < p > Me.Label2.Visible = False

Me.Label3.Visible = False

Me.Label4.Visible = False

Me.Label5.Visible = False < br >

Me.Label6.Visible = False

Me.Label7.Visible = False

Me.Label8.Visible = False

Me.Label9.Visible = False

Me.Label10.Visible = False
6

Digitare quanto segue per creare un ciclo while e iterare 10 volte durante la pausa il codice per 5 secondi :

Do mentre 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 < br >

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
< p > 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

caso è = 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 . Aspetta ora + TimeValue ( " 00:00:05 " ) per

cnt = cnt + 1

loop
7

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

ShowProgressBar Sub ( ) per

UserForm1.Show

End Sub

Premere " F5 " per eseguire il programma .