Visual Basic, Applications o VBA, è un linguaggio di programmazione event-driven utilizzato per lo sviluppo di applicazioni e programmi basati su Windows. Vi si può accedere tramite Microsoft Excel e utilizzato per una varietà di funzioni, come l'automazione dei processi, la creazione di moduli personalizzati o barre degli strumenti e la creazione di indicatori di avanzamento bar. Con lo script VBA, è possibile creare un modulo con indicatori di barra di avanzamento e inserire il codice lanciando attraverso Microsoft Excel.

istruzione

1 Avviare Microsoft Excel e premere il tasto "Alt" e "F11" sulla tastiera per aprire VBA. Right-click "Progetto VBA", "form". Fai clic su "Strumenti", "Etichetta".

2 Pulsante destro del mouse l'etichetta e fare clic su "Proprietà". Selezionare l'altezza e la larghezza in base alle proprie preferenze. Creare nove più etichette con le stesse dimensioni.

3 Fai clic su "cassetta degli attrezzi", "CommandButton" per creare un pulsante di comando. Right-click "CommandButton" e fare clic su "Visualizza codice." Digitare il seguente script per aggiungere una nuova variabile:

cnt Dim As Integer

cnt = 0

4 Digitare il seguente codice per nascondere le etichette:

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

5 Digitare il seguente codice per creare un ciclo tra le etichette:

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 ora + TimeValue ( "00:00:05")

cnt = cnt + 1

Ciclo continuo

6 Fai clic su "Inserisci", "modulo" e digitare il seguente codice per creare la barra di avanzamento:

showProgressBar Sub ()

UserForm1.Show

End Sub

Premere il tasto "F5" per salvare le impostazioni.