En statuslinje anvendes i et edb-program til at angive forløbet af en operation. Det er almindeligt et rektangel , der er animeret som en operation gør fremskridt. Visual Basic for Applications eller VBA , er en computer programmeringssprog, der anvendes i Microsoft Office- programmer til at automatisere rutineopgaver og 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. Instruktioner
1

Åbn Microsoft Office Excel , og derefter trykke på " Alt" og " F11 " for at åbne Visual Basic Editor. Højreklik på " VBAProject " og derefter klikke på " UserForm " for at indsætte en ny formular . Fra " Toolbox "-menuen , klik på " Label ". Mens du holder museknappen , trække på den formular til at oprette en ny etiket kontrol.
2

Højreklik på etiketten og vælg "Egenskaber " og derefter ændre " Højde " til 42 og " bredde " til 12. . Ændr " Top " til 12 . Opret endnu ni etiketter ved hjælp af den samme proces .
3

Klik på " KommandoKnap " på " Toolbox" ruden og tilføje en ny knap til din formular . . Højreklik " KommandoKnap " og klik på " Vis Kode " for at oprette en ny procedure
4

Skriv følgende for at oprette en ny variabel og definere dens værdi : Hej

Dim cnt Som integer

cnt = 0
5

Skriv følgende for at skjule alle de etiketter , når formularen starter : Hej

Me.Label1.Visible = False
< p> Me.Label2.Visible = False

Me.Label3.Visible = False

Me.Label4.Visible = False

Me.Label5.Visible = False < br >

Me.Label6.Visible = False

Me.Label7.Visible = False

Me.Label8.Visible = False

Me.Label9.Visible = False

Me.Label10.Visible = False
6

Skriv følgende for at oprette en while-løkke og gentage 10 gange under en pause koden i 5 sekunder : Hej

Do mens cnt < > 10

Vælg Case cnt

Case Er = 1

Me.Label1.Visible = Sand

Me.Label1.BackColor = vbBlue

Case Er = 2

Me.Label2.Visible = Sand

Me.Label2.BackColor = vbBlue

Case Er = 3 < br >

Me.Label3.Visible = Sand

Me.Label3.BackColor = vbBlue

Case Er = 4 fotos

Me.Label4.Visible = Sand

Me.Label4.BackColor = vbBlue

Case Er = 5

Me.Label5.Visible = Sand

Me.Label5.BackColor = vbBlue
< p> Case Er = 6 fotos

Me.Label6.Visible = Sand

Me.Label6.BackColor = vbBlue

Case Er = 7

Me . Label7.Visible = Sand

Me.Label7.BackColor = vbBlue

Case Er = 8

Me.Label8.Visible = Sand

Me.Label8 . BackColor = vbBlue

Case Er = 9

Me.Label9.Visible = Sand

Me.Label9.BackColor = vbBlue

Case Er = 10

Me.Label10.Visible = Sand

Me.Label10.BackColor = vbBlue

End Vælg

Me.Repaint

Application . Vent nu + TIDSVÆRDI ( " 00:00:05 " )

cnt = cnt + 1

Loop
7

Klik på " Indsæt" menuen og klik derefter på " modul " for at tilføje et nyt modul . Kopier og indsæt koden nedenfor for at starte din " UserForm1 ". : Hej

Sub showProgressBar ()

UserForm1.Show

End Sub

Tryk på " F5 "for at køre dit program.