Użyj Excela i VBA, aby utworzyć pasek postępu.
Pasek postępu jest używany w aplikacji komputerowej do wskazywania postępu operacji. Zwykle jest to prostokąt, który jest animowany w miarę postępu operacji. Visual Basic for Applications lub VBA to język programowania komputerowego używany w aplikacjach pakietu Microsoft Office do automatyzacji rutynowych zadań i tworzenia interfejsów użytkownika. Możesz łatwo utworzyć pasek postępu za pomocą VBA w programie Microsoft Office Excel. Excel to aplikacja do obsługi arkuszy kalkulacyjnych zawarta w pakiecie Microsoft Office.
Krok 1
Otwórz program Microsoft Office Excel, a następnie naciśnij klawisze „Alt” i „F11”, aby otworzyć Edytor Visual Basic. Kliknij prawym przyciskiem myszy „VBAProject”, a następnie kliknij „UserForm”, aby wstawić nowy formularz. W menu „Przybornik” kliknij „Etykieta”. Przytrzymując przycisk myszy, przeciągnij formularz, aby utworzyć nową kontrolkę etykiety.
Wideo dnia
Krok 2
Kliknij etykietę prawym przyciskiem myszy i wybierz „Właściwości”, a następnie zmień „Wysokość” na 42 i „Szerokość” na 12. Zmień „Górę” na 12. W ten sam sposób utwórz dziewięć kolejnych etykiet.
Krok 3
Kliknij przycisk „CommandButton” w okienku „Przybornik” i dodaj nowy przycisk do formularza. Kliknij prawym przyciskiem myszy „CommandButton” i kliknij „Wyświetl kod”, aby utworzyć nową procedurę.
Krok 4
Wpisz następujące polecenie, aby utworzyć nową zmienną i zdefiniuj jej wartość:
Dim cnt As Integer cnt = 0
Krok 5
Wpisz następujące polecenie, aby ukryć wszystkie etykiety po uruchomieniu formularza:
Ja. Etykieta1.Widoczny = Fałsz Ja. Label2.Visible = Fałsz Ja. Label3.Visible = Fałsz Ja. Label4.Visible = Fałsz Ja. Etykieta5. Widoczny = Fałsz Ja. Label6.Visible = Fałsz Ja. Label7.Visible = Fałsz Ja. Label8.Visible = Fałsz Ja. Label9.Visible = Fałsz Ja. Etykieta10.Widoczny = Fałsz
Krok 6
Wpisz następujące polecenie, aby utworzyć pętlę while i wykonaj iterację 10 razy, wstrzymując kod na 5 sekund:
Dopóki cnt <> 10
Wybierz wielkość sprawy Wielkość liter = 1 ja. Etykieta1.Widoczny = True Me. Label1.BackColor = vbBlue Case Is = 2 Me. Etykieta2.Widoczny = 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 Koniec Wybierz. Ja. Odśwież aplikację. Czekaj teraz + TimeValue("00:00:05")cnt = cnt + 1
Pętla
Krok 7
Kliknij menu „Wstaw”, a następnie kliknij „Moduł”, aby dodać nowy moduł. Skopiuj i wklej poniższy kod, aby rozpocząć „UserForm1.”:
Sub showProgressBar() UserForm1.Show End Sub
Naciśnij "F5", aby uruchomić program.
