Jak utworzyć stoper w arkuszu programu Excel?
Jeśli w twoim arkuszu znajduje się stoper, będziesz wiedzieć, kiedy zakończyć pracę. Jak można utworzyć stoper w arkuszu z przyciskiem Start, Stop i Reset, jak pokazano na poniższym zrzucie ekranu? Jeśli klikniesz przycisk Start, rozpocznie się czas, jeśli klikniesz przycisk Stop, zatrzyma czas, a przycisk Resetuj pomoże ci zresetować czas. W tym artykule opowiem o tym, jak stworzyć prosty i poręczny stoper w Excelu.
Utwórz stoper z trzema przyciskami za pomocą kodu VBA
Utwórz stoper z trzema przyciskami za pomocą kodu VBA
Aby utworzyć stoper z trzema przyciskami, Start, Stop i Reset, wykonaj kolejno poniższe kroki.
Najpierw wstaw trzy przyciski poleceń.
1. Kliknij Deweloper > wstawka > Przycisk poleceniazobacz zrzut ekranu:
2. Następnie przeciągnij myszą, aby narysować przycisk, po wstawieniu przycisku możesz zmienić podpis przycisku, kliknij Deweloper > Właściwości, W Właściwości wprowadź nowy podpis „Start”Dla tego przycisku w polu tekstowym obok Podpiszobacz zrzuty ekranu:
3. Powtórz powyższe dwa kroki, aby wstawić pozostałe dwa przyciski i podpisać je jako „Stop"I"Zresetuj”, Patrz zrzut ekranu:
4. Po wstawieniu przycisków należy wyjść z trybu projektowania, klikając Deweloper > Tryb projektowania.
Po drugie, utwórz kod VBA.
5. Następnie kliknij prawym przyciskiem myszy bieżącą kartę arkusza roboczego i wybierz Wyświetl kod, w wyskoczył Microsoft Visual Basic for Applications okno, skopiuj i wklej następujący kod do pliku Kod arkusza:
Kod VBA: Utwórz stoper:
Public StopIt As Boolean
Public ResetIt As Boolean
Public LastTime
Private Sub CommandButton1_Click()
Dim StartTime, FinishTime, TotalTime, PauseTime
StopIt = False
ResetIt = False
If Range("C2") = 0 Then
StartTime = Timer
PauseTime = 0
LastTime = 0
Else
StartTime = 0
PauseTime = Timer
End If
StartIt:
DoEvents
If StopIt = True Then
LastTime = TotalTime
Exit Sub
Else
FinishTime = Timer
TotalTime = FinishTime - StartTime + LastTime - PauseTime
TTime = TotalTime * 100
HM = TTime Mod 100
TTime = TTime \ 100
hh = TTime \ 3600
TTime = TTime Mod 3600
MM = TTime \ 60
SS = TTime Mod 60
Range("C2").Value = Format(hh, "00") & ":" & Format(MM, "00") & ":" & Format(SS, "00") & "." & Format(HM, "00")
If ResetIt = True Then
Range("C2") = Format(0, "00") & ":" & Format(0, "00") & ":" & Format(0, "00") & "." & Format(0, "00")
LastTime = 0
PauseTime = 0
End
End If
GoTo StartIt
End If
End Sub
Private Sub CommandButton2_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
StopIt = True
End Sub
Private Sub CommandButton3_Click()
Range("C2").Value = Format(0, "00") & ":" & Format(0, "00") & ":" & Format(0, "00") & "." & Format(0, "00")
LastTime = 0
ResetIt = True
End Sub
Note: W powyższym kodzie, C2 to komórka, w której zostanie wstawiony czas stopera, a Przycisk Polecenia1, Przycisk Polecenia2, Przycisk Polecenia3 to nazwy przycisków, możesz wyświetlić dokładną nazwę przycisku z pliku Nazwa Boxzobacz zrzut ekranu:
Po trzecie, sformatuj komórkę czasu stopera.
6. Następnie należy sformatować komórkę czasu jako Tekst format i możesz zmienić rozmiar komórki, czcionkę, kolor czcionki, tło itp. w razie potrzeby, patrz zrzut ekranu:
7. Po wykonaniu powyższych czynności od teraz po kliknięciu Start odliczanie czasu rozpocznie się teraz i kliknij Stop przycisk, zatrzyma czas Zresetuj przycisk zresetuje czas, patrz zrzut ekranu:
Demo: Utwórz stoper z trzema przyciskami za pomocą kodu VBA
Najlepsze narzędzia biurowe
Zwiększ swoje umiejętności Excela dzięki Kutools for Excel i doświadcz wydajności jak nigdy dotąd. Kutools dla programu Excel oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas. Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...
Karta Office wprowadza interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę
- Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
- Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
- Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!