Koristite Excel i VBA za izradu trake napretka.
Traka napretka koristi se u računalnim aplikacijama za označavanje tijeka operacije. Obično je to pravokutnik koji se animira kako operacija napreduje. Visual Basic za aplikacije ili VBA je računalni programski jezik koji se koristi u aplikacijama Microsoft Officea za automatizaciju rutinskih zadataka i stvaranje korisničkih sučelja. Možete jednostavno stvoriti traku napretka pomoću VBA u Microsoft Office Excelu. Excel je aplikacija za proračunske tablice uključena u paket Microsoft Office.
Korak 1
Otvorite Microsoft Office Excel, zatim pritisnite "Alt" i "F11" da otvorite Visual Basic Editor. Desnom tipkom miša kliknite "VBAProject", a zatim kliknite "UserForm" da biste umetnuli novi obrazac. Na izborniku "Alati" kliknite "Oznaka". Dok držite tipku miša, povucite obrazac da biste stvorili novu kontrolu oznake.
Video dana
Korak 2
Desnom tipkom miša kliknite oznaku i odaberite "Svojstva", zatim promijenite "Visinu" na 42 i "Širina" na 12. Promijenite "Vrh" na 12. Stvorite još devet naljepnica istim postupkom.
Korak 3
Kliknite "CommandButton" u oknu "Toolbox" i dodajte novi gumb u svoj obrazac. Desnom tipkom miša kliknite "CommandButton" i kliknite "Prikaži kod" za stvaranje nove procedure.
4. korak
Upišite sljedeće da biste stvorili novu varijablu i definirali njezinu vrijednost:
Dim cnt Kao cijeli broj cnt = 0
Korak 5
Upišite sljedeće da biste sakrili sve oznake kada se obrazac pokrene:
Mi. Oznaka1.Vidljivo = Lažni ja. Label2.Visible = Lažni ja. Label3.Visible = Lažni ja. Label4.Visible = Lažni ja. Label5.Visible = False Mi. Label6.Visible = Lažni ja. Label7.Visible = Lažna ja. Label8.Visible = Lažni ja. Label9.Visible = Lažni ja. Oznaka10.Vidljivo = Netočno
Korak 6
Upišite sljedeće da biste stvorili while petlju i ponovili 10 puta uz pauziranje koda na 5 sekundi:
Uradite Dok cnt <> 10
Odaberite Case cnt Case Is = 1 Me. Label1.Visible = Istina. Label1.BackColor = vbBlue Case Is = 2 Me. Label2.Visible = Istina. Label2.BackColor = vbBlue Case Is = 3 Me. Label3.Visible = Istina. Label3.BackColor = vbBlue Case Is = 4 Me. Label4.Visible = Istina. Label4.BackColor = vbBlue Case Is = 5 Me. Label5.Visible = Istina. Label5.BackColor = vbBlue Case Is = 6 Me. Label6.Visible = Istina. Label6.BackColor = vbBlue Case Is = 7 Me. Label7.Visible = Istina. Label7.BackColor = vbBlue Case Is = 8 Me. Label8.Visible = Istina. Label8.BackColor = vbBlue Case Is = 9 Me. Label9.Visible = Istina. Label9.BackColor = vbBlue Case Is = 10 Me. Label10.Visible = Istina. Label10.BackColor = vbBlue End Select. Mi. Aplikacija za ponovno bojenje. Pričekajte sada + TimeValue("00:00:05")cnt = cnt + 1
Petlja
Korak 7
Kliknite izbornik "Insert", a zatim kliknite "Module" za dodavanje novog modula. Kopirajte i zalijepite donji kod kako biste pokrenuli svoj "UserForm1.":
Sub showProgressBar() UserForm1.Show End Sub
Pritisnite "F5" da pokrenete svoj program.
