Bruk Excel og VBA for å lage en fremdriftslinje.
En fremdriftslinje brukes i et dataprogram for å indikere fremdriften til en operasjon. Det er vanligvis et rektangel som animeres når en operasjon gjør fremskritt. Visual Basic for Applications, eller VBA, er et dataprogrammeringsspråk som brukes i Microsoft Office-applikasjoner for å automatisere rutineoppgaver og lage brukergrensesnitt. Du kan enkelt lage en fremdriftslinje ved hjelp av VBA i Microsoft Office Excel. Excel er et regnearkprogram inkludert i Microsoft Office-pakken.
Trinn 1
Åpne Microsoft Office Excel, trykk deretter "Alt" og "F11" for å åpne Visual Basic Editor. Høyreklikk "VBAProject", og klikk deretter "UserForm" for å sette inn et nytt skjema. Fra "Verktøykasse"-menyen, klikk "Etikett". Mens du holder museknappen nede, drar du på skjemaet for å lage en ny etikettkontroll.
Dagens video
Steg 2
Høyreklikk på etiketten og velg "Egenskaper", endre deretter "Høyde" til 42 og "Bredde" til 12. Endre "Topp" til 12. Lag ni etiketter til med samme prosess.
Trinn 3
Klikk "Kommandoknapp" i "Verktøykasse"-ruten og legg til en ny knapp i skjemaet. Høyreklikk "Command Button" og klikk "View Code" for å opprette en ny prosedyre.
Trinn 4
Skriv inn følgende for å lage en ny variabel og definere verdien:
Dim cnt Som heltall cnt = 0
Trinn 5
Skriv inn følgende for å skjule alle etikettene når skjemaet starter:
Meg. Etikett1.Synlig = Falsk meg. Label2.Visible = False Me. Label3.Visible = False Me. Label4.Visible = False Me. Label5.Synlig = False Meg. Label6.Visible = False Me. Label7.Synlig = Falsk meg. Label8.Visible = False Me. Label9.Visible = False Me. Label10.Synlig = Falsk
Trinn 6
Skriv inn følgende for å lage en while-løkke og gjenta 10 ganger mens du setter koden på pause i 5 sekunder:
Gjør mens cnt <> 10
Velg Case cnt Case Is = 1 Me. Label1.Synlig = 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.Synlig = True Me. Label6.BackColor = vbBlue Case Is = 7 Me. Label7.Synlig = 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 = Sann meg. Label10.BackColor = vbBlue End Select. Meg. Malingsapplikasjon. Vent nå + TimeValue("00:00:05")cnt = cnt + 1
Løkke
Trinn 7
Klikk på "Sett inn"-menyen og klikk deretter på "Modul" for å legge til en ny modul. Kopier og lim inn koden nedenfor for å starte "UserForm1.":
Sub showProgressBar() UserForm1.Show End Sub
Trykk "F5" for å kjøre programmet.
