Brug Excel og VBA til at oprette en statuslinje.
En statuslinje bruges i et computerprogram til at angive forløbet af en operation. Det er almindeligvis et rektangel, der er animeret, efterhånden som en operation gør fremskridt. Visual Basic for Applications, eller VBA, er et computerprogrammeringssprog, der bruges i Microsoft Office-applikationer til at automatisere rutineopgaver og til at skabe brugergrænseflader. Du kan nemt oprette en statuslinje ved hjælp af VBA i Microsoft Office Excel. Excel er et regnearksprogram inkluderet i Microsoft Office-pakken.
Trin 1
Åbn Microsoft Office Excel, og tryk derefter på "Alt" og "F11" for at åbne Visual Basic Editor. Højreklik på "VBAProject", og klik derefter på "UserForm" for at indsætte en ny formular. Klik på "Etiket" i menuen "Værktøjskasse". Mens du holder museknappen nede, skal du trække på formularen for at oprette en ny etiketkontrol.
Dagens video
Trin 2
Højreklik på etiketten og vælg "Egenskaber", og skift derefter "Højde" til 42 og "Bredde" til 12. Skift "Top" til 12. Opret ni flere etiketter ved hjælp af samme proces.
Trin 3
Klik på "CommandButton" på "Værktøjskasse"-ruden og tilføj en ny knap til din formular. Højreklik på "CommandButton" og klik på "View Code" for at oprette en ny procedure.
Trin 4
Skriv følgende for at oprette en ny variabel og definere dens værdi:
Dim cnt Som heltal cnt = 0
Trin 5
Indtast følgende for at skjule alle etiketterne, når formularen starter:
Mig. Label1.Synlig = Falsk mig. Label2.Synlig = Falsk mig. Label3.Synlig = Falsk mig. Label4.Synlig = Falsk mig. Label5.Synlig = Falsk Mig. Label6.Synlig = Falsk mig. Label7.Synlig = Falsk mig. Label8.Synlig = Falsk mig. Label9.Synlig = Falsk mig. Label10.Synlig = Falsk
Trin 6
Skriv følgende for at oprette en while-løkke og gentag 10 gange, mens du holder koden på pause i 5 sekunder:
Gør mens cnt <> 10
Vælg 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.Synlig = True Me. Label10.BackColor = vbBlue End Select. Mig. Genmaling ansøgning. Vent nu + TimeValue("00:00:05")cnt = cnt + 1
Løkke
Trin 7
Klik på menuen "Indsæt" og klik derefter på "Modul" for at tilføje et nyt modul. Kopiér og indsæt koden nedenfor for at starte din "UserForm1.":
Sub showProgressBar() UserForm1.Show End Sub
Tryk på "F5" for at køre dit program.
