Kako ustvariti vrstico napredka v VBA

Vrstica napredka se v računalniški aplikaciji uporablja za prikaz napredka operacije. Običajno je pravokotnik, ki se animira, ko operacija napreduje. Visual Basic for Applications ali VBA je računalniški programski jezik, ki se uporablja v aplikacijah Microsoft Office za avtomatizacijo rutinskih opravil in ustvarjanje uporabniških vmesnikov. Vrstico napredka lahko preprosto ustvarite z VBA v programu Microsoft Office Excel. Excel je aplikacija za preglednice, vključena v zbirko Microsoft Office.

1. korak

Odprite Microsoft Office Excel, nato pritisnite "Alt" in "F11", da odprete urejevalnik Visual Basic. Z desno miškino tipko kliknite "VBAProject", nato kliknite "UserForm", da vstavite nov obrazec. V meniju »Orodjarna« kliknite »Oznaka«. Medtem ko držite gumb miške, povlecite po obrazcu, da ustvarite nov kontrolnik oznake.

2. korak

Z desno miškino tipko kliknite oznako in izberite »Lastnosti«, nato spremenite »Višina« na 42 in »Širina« na 12. Spremenite »Vrh« na 12. Z istim postopkom ustvarite še devet nalepk.

3. korak

V podoknu »Orodjarna« kliknite »CommandButton« in obrazcu dodajte nov gumb. Z desno miškino tipko kliknite "CommandButton" in kliknite "View Code", da ustvarite nov postopek.

4. korak

Vnesite naslednje, da ustvarite novo spremenljivko in določite njeno vrednost:

Dim cnt Kot celo število cnt =0

5. korak

Vnesite naslednje, da skrijete vse oznake, ko se obrazec zažene:

Me.Label1.Visible =False Me.Label2.Visible =False Me.Label3.Visible =False Me.Label4.Visible =False Me.Label5.Visible =False Me.Label6.Visible =False Me.Label7.Visible =False Me .Label8.Visible =False Me.Label9.Visible =False Me.Label10.Visible =False

6. korak

Vnesite naslednje, da ustvarite zanko while in jo ponovite 10-krat, medtem ko kodo zaustavite za 5 sekund:

Do While cnt <> 10

Select 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.Repaint

Application.Wait Now + TimeValue("00:00:05")

cnt =cnt + 1

Zanka

7. korak

Kliknite meni »Vstavi« in nato kliknite »Modul«, da dodate nov modul. Kopirajte in prilepite spodnjo kodo, da zaženete svoj "UserForm1.":

Sub showProgressBar() UserForm1.Show End Sub

Pritisnite "F5", da zaženete program.