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 Moduł:
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
Kutools dla programu Excel rozwiązuje większość problemów i zwiększa produktywność o 80%
- Ponowne użycie: Szybko włóż złożone wzory, wykresy i wszystko, czego używałeś wcześniej; Szyfruj komórki z hasłem; Utwórz listę mailingową i wysyłaj e-maile ...
- Pasek Super Formula (łatwo edytować wiele wierszy tekstu i formuły); Układ do czytania (łatwe odczytywanie i edytowanie dużej liczby komórek); Wklej do filtrowanego zakresu...
- Scal komórki / wiersze / kolumny bez utraty danych; Podziel zawartość komórek; Połącz zduplikowane wiersze / kolumny... Zapobiegaj zduplikowanym komórkom; Porównaj zakresy...
- Wybierz Duplikat lub Unikalny Wydziwianie; Wybierz puste wiersze (wszystkie komórki są puste); Super Find i Fuzzy Find w wielu zeszytach ćwiczeń; Losowy wybór ...
- Dokładna kopia Wiele komórek bez zmiany odwołania do formuły; Automatyczne tworzenie odniesień do wielu arkuszy; Wstaw punktory, Pola wyboru i nie tylko ...
- Wyodrębnij tekst, Dodaj tekst, Usuń według pozycji, Usuń przestrzeń; Tworzenie i drukowanie podsumowań stronicowania; Konwertuj zawartość komórek i komentarze...
- Super filtr (zapisz i zastosuj schematy filtrów do innych arkuszy); Zaawansowane sortowanie według miesiąca / tygodnia / dnia, częstotliwości i innych; Specjalny filtr pogrubieniem, kursywą ...
- Połącz skoroszyty i arkusze robocze; Scal tabele na podstawie kluczowych kolumn; Podziel dane na wiele arkuszy; Konwersja wsadowa xls, xlsx i PDF...
- Ponad 300 zaawansowanych funkcji. Obsługuje Office / Excel 2007-2021 i 365. Obsługuje wszystkie języki. Łatwe wdrażanie w przedsiębiorstwie lub organizacji. Pełne funkcje 30-dniowa bezpłatna wersja próbna. 60-dniowa gwarancja zwrotu pieniędzy.
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!
