Come creare una barra di avanzamento in VBA

Una barra di avanzamento viene usata in un'applicazione informatica per indicare il progresso di un'operazione. È comunemente un rettangolo animato mentre l'operazione progredisce. Visual Basic for Applications, o VBA, è un linguaggio di programmazione usato nelle applicazioni Microsoft Office per automatizzare attività di routine e creare interfacce utente. Puoi facilmente creare una barra di avanzamento usando VBA in Microsoft Office Excel. Excel è un'applicazione foglio di calcolo inclusa nella suite Microsoft Office.

Passaggio 1

Apri Microsoft Office Excel, poi premi "Alt" e "F11" per aprire l'Editor Visual Basic. Fai clic destro su "VBAProject", poi fai clic su "UserForm" per inserire una nuova Form. Dal menu "Toolbox", fai clic su "Label". Tenendo premuto il pulsante del mouse, trascina sulla Form per creare un nuovo controllo Label.

Passaggio 2

Fai clic destro sulla Label e seleziona "Proprietà", poi cambia "Height" a 42 e "Width" a 12. Cambia "Top" a 12. Crea altre nove Label usando lo stesso processo.

Passaggio 3

Fai clic su "CommandButton" nel riquadro "Toolbox" e aggiungi un nuovo pulsante alla tua Form. Fai clic destro su "CommandButton" e fai clic su "Visualizza codice" per creare una nuova procedura.

Passaggio 4

Digita il seguente codice per creare una nuova variabile e definirne il valore:

Dim cnt As Integer
cnt = 0

Passaggio 5

Digita il seguente codice per nascondere tutte le Label all'avvio della Form:

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.Label8.Visible = False
Me.Label9.Visible = False
Me.Label10.Visible = False

Passaggio 6

Digita il seguente codice per creare un ciclo while e iterare 10 volte mettendo 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
Loop

Passaggio 7

Fai clic sul menu "Inserisci" poi fai clic su "Modulo" per aggiungere un nuovo modulo. Copia e incolla il codice sotto per avviare la tua "UserForm1":

Sub showProgressBar()
    UserForm1.Show
End Sub

Premi "F5" per eseguire il tuo programma.