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
Uwagi: 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 Exceli doświadcz wydajności jak nigdy dotąd. Kutools for Excel Oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas. Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...
Office Tab Wprowadza interfejs z kartami 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!
