Kā izveidot progresa joslu VBA

...

Izmantojiet Excel un VBA, lai izveidotu progresa joslu.

Datora lietojumprogrammā tiek izmantota progresa josla, lai norādītu darbības gaitu. Parasti tas ir taisnstūris, kas tiek animēts, kad notiek darbība. Visual Basic for Applications jeb VBA ir datorprogrammēšanas valoda, ko izmanto Microsoft Office lietojumprogrammās, lai automatizētu ikdienas uzdevumus un izveidotu lietotāja saskarnes. Varat viegli izveidot progresa joslu, izmantojot VBA programmā Microsoft Office Excel. Excel ir izklājlapu lietojumprogramma, kas iekļauta Microsoft Office komplektā.

1. darbība

Atveriet Microsoft Office Excel, pēc tam nospiediet taustiņus Alt un F11, lai atvērtu Visual Basic redaktoru. Ar peles labo pogu noklikšķiniet uz "VBAProject", pēc tam noklikšķiniet uz "UserForm", lai ievietotu jaunu veidlapu. Izvēlnē "Rīklodziņš" noklikšķiniet uz "Etiķete". Turot nospiestu peles pogu, velciet uz veidlapu, lai izveidotu jaunu etiķetes vadīklu.

Dienas video

2. darbība

Ar peles labo pogu noklikšķiniet uz etiķetes un atlasiet "Properties", pēc tam mainiet "Height" uz 42 un "Width" uz 12. Mainiet "Augšā" uz 12. Izveidojiet vēl deviņas etiķetes, izmantojot to pašu procesu.

3. darbība

Rūtī "Rīklodziņš" noklikšķiniet uz "CommandButton" un pievienojiet savai veidlapai jaunu pogu. Ar peles labo pogu noklikšķiniet uz "CommandButton" un noklikšķiniet uz "View Code", lai izveidotu jaunu procedūru.

4. darbība

Ierakstiet šo, lai izveidotu jaunu mainīgo un definētu tā vērtību:

Dim cnt kā vesels skaitlis cnt = 0

5. darbība

Ierakstiet šo, lai paslēptu visas etiķetes, kad tiek startēta veidlapa:

Es. Label1.Visible = Viltus es. Label2.Visible = Viltus es. Label3.Visible = Viltus es. Label4.Visible = Viltus es. Label5.Visible = False Es. Label6.Visible = Viltus es. Label7.Visible = Viltus es. Label8.Visible = Viltus es. Label9.Visible = Viltus es. Label10.Visible = False

6. darbība

Ierakstiet tālāk norādīto, lai izveidotu kamēr cilpu un atkārtojiet 10 reizes, vienlaikus apturot kodu uz 5 sekundēm:

Do While cnt <> 10

Izvēlieties 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. Es. Pārkrāsojiet lietojumprogrammu. Uzgaidiet tagad + TimeValue ("00:00:05")

cnt = cnt + 1

Cilpa

7. darbība

Noklikšķiniet uz izvēlnes "Ievietot", pēc tam noklikšķiniet uz "Modulis", lai pievienotu jaunu moduli. Nokopējiet un ielīmējiet tālāk esošo kodu, lai sāktu savu "UserForm1".

Sub showProgressBar() UserForm1.Show End Sub

Nospiediet "F5", lai palaistu programmu.