Kako stvoriti traku napretka u VBA

Traka napretka koristi se u računalnim aplikacijama za označavanje tijeka operacije. To je obično pravokutnik koji se animira kako operacija napreduje. Visual Basic for Applications ili VBA je računalni programski jezik koji se koristi u Microsoft Office aplikacijama za automatizaciju rutinskih zadataka i stvaranje korisničkih sučelja. Možete jednostavno stvoriti traku napretka koristeći VBA u programu Microsoft Office Excel. Excel je aplikacija za proračunske tablice uključena u paket Microsoft Office.

1. korak

Otvorite Microsoft Office Excel, zatim pritisnite "Alt" i "F11" da otvorite Visual Basic Editor. Desnom tipkom miša kliknite "VBAProject", zatim kliknite "UserForm" da biste umetnuli novi obrazac. U izborniku "Toolbox" kliknite "Label". Dok držite tipku miša, povucite po obrascu za stvaranje nove kontrole oznake.

2. korak

Desnom tipkom miša kliknite oznaku i odaberite "Svojstva", zatim promijenite "Visinu" na 42 i "Širinu" na 12. Promijenite "Vrh" na 12. Stvorite još devet oznaka koristeći isti postupak.

3. korak

Pritisnite "CommandButton" u oknu "Toolbox" i dodajte novi gumb u svoj obrazac. Desnom tipkom miša kliknite "CommandButton" i kliknite "View Code" za izradu nove procedure.

4. korak

Upišite sljedeće kako biste stvorili novu varijablu i definirali njezinu vrijednost:

Dim cnt Kao cijeli broj cnt =0

Korak 5

Upišite sljedeće kako biste sakrili sve oznake kada se obrazac pokrene:

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

Korak 6

Upišite sljedeće da biste stvorili while petlju i ponovite 10 puta dok pauzirate kod na 5 sekundi:

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

Petlja

7. korak

Pritisnite izbornik "Umetni", a zatim kliknite "Modul" za dodavanje novog modula. Kopirajte i zalijepite donji kod da pokrenete svoj "UserForm1.":

Sub showProgressBar() UserForm1.Show End Sub

Pritisnite "F5" za pokretanje programa.