![...](/f/482745bd17267a490e8de21ff3521380.jpg)
Använd Excel och VBA för att skapa en förloppsindikator.
En förloppsindikator används i en datorapplikation för att indikera förloppet av en operation. Det är vanligtvis en rektangel som animeras när en operation gör framsteg. Visual Basic for Applications, eller VBA, är ett datorprogrammeringsspråk som används i Microsoft Office-applikationer för att automatisera rutinuppgifter och för att skapa användargränssnitt. Du kan enkelt skapa en förloppsindikator med VBA i Microsoft Office Excel. Excel är ett kalkylprogram som ingår i Microsoft Office-paketet.
Steg 1
Öppna Microsoft Office Excel och tryck sedan på "Alt" och "F11" för att öppna Visual Basic Editor. Högerklicka på "VBAProject" och klicka sedan på "UserForm" för att infoga ett nytt formulär. Från menyn "Verktygslådan", klicka på "Etikett". Medan du håller ner musknappen, dra på formuläret för att skapa en ny etikettkontroll.
Dagens video
Steg 2
Högerklicka på etiketten och välj "Egenskaper", ändra sedan "Höjd" till 42 och "Bredd" till 12. Ändra "Topp" till 12. Skapa ytterligare nio etiketter med samma process.
Steg 3
Klicka på "CommandButton" i rutan "Verktygslådan" och lägg till en ny knapp i ditt formulär. Högerklicka på "CommandButton" och klicka på "View Code" för att skapa en ny procedur.
Steg 4
Skriv följande för att skapa en ny variabel och definiera dess värde:
Dim cnt Som heltal cnt = 0
Steg 5
Skriv följande för att dölja alla etiketter när formuläret startar:
Mig. Label1.Visible = False Me. Label2.Visible = False Me. Label3.Visible = False Me. Label4.Visible = False Me. Label5.Visible = False Mig. Label6.Visible = False Me. Label7.Visible = False Me. Label8.Visible = False Me. Label9.Visible = False Me. Label10.Synlig = Falskt
Steg 6
Skriv följande för att skapa en while-loop och iterera 10 gånger medan du pausar koden i 5 sekunder:
Gör medan cnt <> 10
Välj 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. Mig. Ommålningsapplikation. Vänta nu + TimeValue("00:00:05")
cnt = cnt + 1
Slinga
Steg 7
Klicka på "Infoga"-menyn och klicka sedan på "Modul" för att lägga till en ny modul. Kopiera och klistra in koden nedan för att starta din "UserForm1.":
Sub showProgressBar() UserForm1.Show End Sub
Tryck på "F5" för att köra ditt program.