Usa Excel e VBA per creare una barra di avanzamento.
Una barra di avanzamento viene utilizzata in un'applicazione per computer per indicare l'avanzamento di un'operazione. Di solito è un rettangolo che viene animato man mano che un'operazione avanza. Visual Basic for Applications, 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.
Passo 1
Apri Microsoft Office Excel, quindi premi "Alt" e "F11" per aprire l'editor di Visual Basic. 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.
Video del giorno
Passo 2
Fare clic con il pulsante destro del mouse sull'etichetta e selezionare "Proprietà", quindi modificare "Altezza" in 42 e "Larghezza" in 12. Cambia "In alto" in 12. Crea altre nove etichette utilizzando lo stesso processo.
Passaggio 3
Fare clic su "CommandButton" nel riquadro "Toolbox" e aggiungere 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
Digitare 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 = Falso me. Label3.Visible = Falso me. Label4.Visible = Falso me. Label5.Visible = False Me. Label6.Visible = Falso me. Label7.Visible = Falso me. Label8.Visible = Falso me. Label9.Visible = Falso 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:
Fai mentre cnt <> 10
Selezionare 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. Ridipingere l'applicazione. Attendi ora + ValoreTempo("00:00:05")cnt = cnt + 1
Ciclo continuo
Passaggio 7
Fare clic sul menu "Inserisci", quindi fare clic su "Modulo" per aggiungere un nuovo modulo. Copia e incolla il codice sottostante per avviare il tuo "UserForm1":
Sub showProgressBar() UserForm1.Show End Sub
Premi "F5" per eseguire il programma.
