![...](/f/482745bd17267a490e8de21ff3521380.jpg)
Na vytvorenie indikátora priebehu použite Excel a VBA.
Ukazovateľ priebehu sa používa v počítačovej aplikácii na označenie priebehu operácie. Zvyčajne je to obdĺžnik, ktorý sa animuje, keď operácia napreduje. Visual Basic for Applications alebo VBA je počítačový programovací jazyk používaný v aplikáciách Microsoft Office na automatizáciu rutinných úloh a vytváranie používateľských rozhraní. Pomocou jazyka VBA v programe Microsoft Office Excel môžete jednoducho vytvoriť indikátor priebehu. Excel je tabuľkový procesor, ktorý je súčasťou balíka Microsoft Office.
Krok 1
Otvorte program Microsoft Office Excel a potom stlačením klávesov "Alt" a "F11" otvorte editor jazyka Visual Basic. Kliknite pravým tlačidlom myši na "VBAProject" a potom kliknite na "UserForm" a vložte nový formulár. V ponuke "Súbor nástrojov" kliknite na "Štítok". Podržte tlačidlo myši a ťahaním po formulári vytvorte nový ovládací prvok štítku.
Video dňa
Krok 2
Kliknite pravým tlačidlom myši na štítok a vyberte „Vlastnosti“, potom zmeňte „Výška“ na 42 a „Šírka“ na 12. Zmeňte „Top“ na 12. Vytvorte deväť ďalších štítkov pomocou rovnakého postupu.
Krok 3
Kliknite na "CommandButton" na table "Toolbox" a pridajte nové tlačidlo do svojho formulára. Kliknite pravým tlačidlom myši na "CommandButton" a kliknite na "Zobraziť kód", aby ste vytvorili novú procedúru.
Krok 4
Ak chcete vytvoriť novú premennú a definovať jej hodnotu, zadajte nasledujúce:
Dim cnt As Integer cnt = 0
Krok 5
Ak chcete pri spustení formulára skryť všetky štítky, zadajte nasledujúce:
ja. Label1.Visible = False Me. Label2.Visible = False Me. Označenie 3. Viditeľné = Falošné ja. Označenie 4. Viditeľné = Falošné ja. Označenie 5. Viditeľné = Nepravdivé ja. Označenie 6. Viditeľné = Falošné ja. Štítok 7. Viditeľné = Falošné ja. Označenie 8. Viditeľné = Falošné ja. Štítok9.Visible = False Me. Označenie 10. Viditeľné = Nepravda
Krok 6
Zadajte nasledujúce, aby ste vytvorili slučku while a opakujte 10-krát pri pozastavení kódu na 5 sekúnd:
Robiť Kým cnt <> 10
Vyberte prípad cnt prípad 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. Label10.Visible = True Me. Label10.BackColor = vbBlue End Select. ja. Aplikácia prefarbenia. Počkajte teraz + TimeValue("00:00:05")
cnt = cnt + 1
Slučka
Krok 7
Kliknite na ponuku „Vložiť“ a potom kliknutím na „Modul“ pridajte nový modul. Skopírujte a prilepte nižšie uvedený kód, aby ste spustili svoj "UserForm1.":
Sub showProgressBar() UserForm1.Show End Sub
Stlačte "F5" pre spustenie programu.