Uporabite Excel in VBA, da ustvarite vrstico napredka.
Vrstica napredka se v računalniški aplikaciji uporablja za označevanje napredka operacije. Običajno je pravokotnik, ki je animiran, ko operacija napreduje. Visual Basic za aplikacije ali VBA je računalniški programski jezik, ki se uporablja v aplikacijah Microsoft Office za avtomatizacijo rutinskih opravil in ustvarjanje uporabniških vmesnikov. Z VBA v Microsoft Office Excelu lahko preprosto ustvarite vrstico napredka. Excel je aplikacija za preglednice, vključena v paket Microsoft Office.
Korak 1
Odprite Microsoft Office Excel, nato pritisnite "Alt" in "F11", da odprete urejevalnik Visual Basic. Z desno tipko miške kliknite "VBAProject", nato kliknite "UserForm", da vstavite nov obrazec. V meniju »Orodja« kliknite »Oznaka«. Medtem ko držite gumb miške, povlecite obrazec, da ustvarite nov kontrolnik z oznako.
Video dneva
2. korak
Z desno tipko miške kliknite oznako in izberite "Lastnosti", nato spremenite "Višina" na 42 in "Širina" na 12. Spremenite "Na vrh" na 12. Z istim postopkom ustvarite še devet nalepk.
3. korak
Kliknite "CommandButton" v podoknu "Toolbox" in dodajte nov gumb v svoj obrazec. Z desno tipko miške kliknite "CommandButton" in kliknite "Ogled kode", 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:
jaz. Label1.Visible = Lažni jaz. Label2.Visible = Lažni jaz. Label3.Visible = Lažni jaz. Label4.Visible = Lažni jaz. Label5.Visible = False jaz. Label6.Visible = Lažni jaz. Label7.Visible = Lažni jaz. Label8.Visible = Lažni jaz. Label9.Visible = Lažni jaz. Label10.Visible = False
6. korak
Vnesite naslednje, da ustvarite zanko while in ponovite 10-krat, medtem ko začasno ustavite kodo za 5 sekund:
Naredi Medtem ko cnt <> 10
Izberite Primer cnt Primer je = 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. Oznaka10.Vidno = True Me. Label10.BackColor = vbBlue End Select. jaz. Aplikacija za prebarvanje. Počakajte zdaj + 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 "UserForm1.":
Sub showProgressBar() UserForm1.Show End Sub
Pritisnite "F5", da zaženete svoj program.
