Ako vytvoriť Bar pokroku v jazyku VBA

progress bar sa používa v počítačovej aplikácie ukázať priebeh operácie . Je to obyčajne obdĺžnik , ktorý je animovaný , ako operácia robí pokroky . Visual Basic for Applications alebo VBA je programovací jazyk použitý v aplikácií balíka Microsoft Office pre automatizáciu rutinných úloh a vytvoriť užívateľské rozhranie . Môžete ľahko vytvoriť progress bar pomocou VBA v aplikácii Microsoft Office Excel . Excel je aplikácia tabuľkový súčasťou balíka Microsoft Office . Návod dovolená 1

Otvorte program Microsoft Office Excel , stlačte kláves " Alt " a " F11 " otvorte Editor jazyka Visual Basic . Pravým - kliknite na " VBAProject , " kliknite na tlačidlo " UserForm " vložiť nový formulár . Z ponuky " Nástroje " , kliknite na " Label " . Zatiaľ čo držíte tlačidlo myši , ťahajte na formulári vytvoriť nový ovládací prvok menovku .
2

Pravým tlačidlom myši na menovku a zvoľte " Vlastnosti " zmeňte " Výška " na 42 a " Width " na 12. Zmeňte " top " do 12 rokov . Vytvorte deväť viac štítkov pomocou rovnakého procesu .
3

Kliknite na " CommandButton " na " Toolbox " paneli a pridať nové tlačidlo do formulára . . Pravým - kliknite na " CommandButton " a kliknite na tlačidlo " Zobraziť kód " pre vytvorenie nového postupu
4

Zadajte nasledujúci vytvoriť novú premennú a určiť jej hodnotu :

Dim CNT ako integer

cnt = 0
5

Zadajte nasledujúce skryť všetky štítky pri spustení Forma :

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

Zadajte nasledujúci vytvoriť slučky while a iterovať 10 krát , zatiaľ čo pozastavenie kód dobu 5 sekúnd :

kým cnt < > 10

Select Case CNT

prípade , že 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

mne . 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

aplikácie . Počkajte Now + TIMEVALUE ( " 00:00:05 " )

cnt = cnt + 1

Loop
7

Kliknite na menu " Vložiť " a potom kliknite na tlačidlo " modul " pridať nový modul . Skopírujte a vložte nižšie uvedený kód na spustenie " UserForm1 . " :

Sub showProgressBar ( )

UserForm1.Show

End Sub

Stlačte " F5 " spustiť program .

• Predchádzajúca strana: Ako pridať DataRow DataTable 
• Ďalšia strana: Ako pridať dáta do Array