Note: The other languages of the website are Google-translated. Back to English

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.

doc stwórz stoper 1

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:

doc stwórz stoper 2

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:

doc stwórz stoper 3 2 doc stwórz stoper 4

3. Powtórz powyższe dwa kroki, aby wstawić pozostałe dwa przyciski i podpisać je jako „Stop"I"Zresetuj”, Patrz zrzut ekranu:

doc stwórz stoper 5

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

doc stwórz stoper 6

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:

doc stwórz stoper 7

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:

doc stwórz stoper 8

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:

doc stwórz stoper 9


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 kte 201905

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!
officetab dół
Sortuj komentarze według
Komentarze (30)
Brak ocen. Oceń jako pierwszy!
Ten komentarz został zminimalizowany przez moderatora na stronie
Dziękuję za ten post, był bardzo pomocny. Czy istnieje jednak sposób na zmodyfikowanie kodu, aby zegar nie zatrzymywał się podczas edycji komórki? Idealnie chciałbym nacisnąć „Start”, wprowadzić kilka zmian w zakresie komórek na tej samej karcie, a następnie nacisnąć „Stop” przez cały czas, który upłynął. Wszelkie porady na ten temat byłyby bardzo mile widziane!
Ten komentarz został zminimalizowany przez moderatora na stronie
czy kiedykolwiek to wymyśliłeś? Ja też muszę mieć włączony zegar, podczas gdy inne zmiany są wprowadzane w tym samym arkuszu kalkulacyjnym. dzięki. Mikrofon
Ten komentarz został zminimalizowany przez moderatora na stronie
To była bardzo pomocna i bardzo łatwa do wykonania.
Ten komentarz został zminimalizowany przez moderatora na stronie
Próbowałem utworzyć stoper przy użyciu tych samych kodów w Formularzach. Zegar uruchamia się doskonale, ale nie zatrzymuje się. Proszę zasugerować, jak powielić to samo w formularzach
Ten komentarz został zminimalizowany przez moderatora na stronie
Wypróbuj XNote Stoper.
Ten komentarz został zminimalizowany przez moderatora na stronie
Czy istnieje sposób, aby zegar odliczał w górę lub w dół do określonej godziny? Chcę zachować przyciski start, stop i reset, ale potrzebuję odliczania do jednej minuty i jednej sekundy po naciśnięciu start. Lub odliczaj od jednej minuty do jednej sekundy do zera (01:01). Dzięki za pomoc!
Ten komentarz został zminimalizowany przez moderatora na stronie
Cześć Melisso,
jeśli potrzebujesz utworzyć minutnik w arkuszu, może poniższy artykuł może ci pomóc!
https://www.extendoffice.com/documents/excel/2144-excel-countdown-timer.html
Ten komentarz został zminimalizowany przez moderatora na stronie
Halo,

Widziałem ten artykuł, ale potrzebuję go, aby wyglądał dokładnie tak, jak stoper na tej stronie, ale potrzebuję go tylko do odliczania od minuty do sekundy. Potrzebuję go do pokazania w formie stopera, ale działa jako odliczanie. Jakieś dalsze porady?


Dziękuję za odpowiedź!
Ten komentarz został zminimalizowany przez moderatora na stronie
Chodzi o tablicę wyników, którą zaprojektowaliśmy w Excelu.
Ten komentarz został zminimalizowany przez moderatora na stronie
Świetnie, ale czy da się uruchomić 2 zegary na tej samej kartce? wykonałem drugi zegar z nowym przyciskiem start, stop i reset, ale po uruchomieniu drugiego zegara pierwszy zatrzymuje się....
Ten komentarz został zminimalizowany przez moderatora na stronie
to samo tutaj możesz znaleźć lekarstwo na to
Ten komentarz został zminimalizowany przez moderatora na stronie
Cześć przyjaciele,
Ta metoda jest stosowana tylko do jednego zestawu przycisków w arkuszu.
Jeśli są inne dobre pomysły, prosimy o komentarz tutaj.
Ten komentarz został zminimalizowany przez moderatora na stronie
Czy możliwe jest automatyczne zatrzymanie timera po zablokowaniu ekranu i automatyczne uruchomienie timera po odblokowaniu komputera?
Ten komentarz został zminimalizowany przez moderatora na stronie
Czy jest jakiś sposób, aby timer zresetował licznik do zera, ale nadal działał? Tj. Kiedy naciskam Reset, nie chcę ponownie naciskać Start, aby czas się odkleił.
Ten komentarz został zminimalizowany przez moderatora na stronie
Cześć, używam tego korka, ale dość często cyfry w komórce wyświetlacza ("C2") zaczynają wariować i znikają - pokazują znaki minusa, cyfry są niepoprawne, a liczba gubiona. Zwykle dzieje się to po około godzinie lub więcej, ale czasami nawet przed upływem godziny. Czy to powszechny błąd? a jeśli tak, czy jest sposób, aby to naprawić? Usunąłem .00 (tj. milisekundy) z kodu, po prostu usuwając: & "." & Formatuj(0, "00") wiersz gdziekolwiek się pojawia - czy to ma coś wspólnego z tym problemem?
Ten komentarz został zminimalizowany przez moderatora na stronie
Dziękuję za wskazówkę, Działało płynnie, ale kiedy wprowadzam jakiekolwiek dane w tym arkuszu Przestało działać, Potrzebujemy, aby działał przez jakiś czas dane wejściowe Jak możemy rozwiązać ten problem?
Ten komentarz został zminimalizowany przez moderatora na stronie
Witaj, Nhoeun,
Może być tam w nieodpowiedni sposób na rozwiązanie twojego problemu. Edycja komórki spowoduje przerwanie aktualnie wykonywanego makra.
Jeśli masz inną dobrą metodę, skomentuj tutaj!
Dziękuję Ci!
Ten komentarz został zminimalizowany przez moderatora na stronie
HI. Stworzyłem stoper, ale muszę mieć możliwość zapisania różnych odstępów między startem a zatrzymaniem, aby móc je odzwierciedlić jako badanie czasu i ruchu. Jakieś wskazówki, jak to zrobić?
Ten komentarz został zminimalizowany przez moderatora na stronie
Wykonano wszystkie kroki, ale kliknięcie przycisku Start powoduje wyświetlenie komunikatu o błędzie „Nie można uruchomić makra „'file.xlsm'!CommandButton1”. Makro może być niedostępne w tym skoroszycie lub wszystkie makra mogą być wyłączone.”. Wszystkie makra zostały włączone, makro znajduje się w Module1. UWAGA: używam pakietu Office 2019 dla komputerów Mac, więc może to być problem....
Ten komentarz został zminimalizowany przez moderatora na stronie
Co powiesz na dodanie funkcji „+10s” i „2x Speed” w tym kodzie?
Ten komentarz został zminimalizowany przez moderatora na stronie
czy 'timer' jest tutaj zmienną? nie widzę jego znaczenia w kodzie.
Ten komentarz został zminimalizowany przez moderatora na stronie
Czy można sprawić, by licznik liczył tylko sekundy?
Więc kiedy osiąga 59 sekund, kontynuuje z 60, 61, 62, 63 ....
Ten komentarz został zminimalizowany przez moderatora na stronie
Cześć
Wykonałem kroki, ale nie mogę uzyskać czasu na pojawienie się w komórce zegara. Skopiowałem kod, ale czy mogę sprawdzić1. Czy numery linii nie są potrzebne, czy są2. Że umieściłem kod w module 1, a nie w arkuszu1 lub w tym skoroszycie3. Jeśli po wykonaniu tych wszystkich czynności na liście makr pojawi się makro — moje nie.
Podziękowania
Ten komentarz został zminimalizowany przez moderatora na stronie
Cześć, Janice, Powinieneś umieścić kod w aktywnym module arkusza w kroku 5.
5. A następnie kliknij prawym przyciskiem myszy kartę bieżącego arkusza roboczego i wybierz Wyświetl kod, w wyskakującym oknie Microsoft Visual Basic for Applications skopiuj i wklej następujący kod do modułu.

I powinieneś zmienić nazwę przycisku na własną.
Uwaga: 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 pola nazwy.

Sprawdź je, dziękuję!
Ten komentarz został zminimalizowany przez moderatora na stronie
To jest genialne! Dzięki, Chris H
Ten komentarz został zminimalizowany przez moderatora na stronie
Czy można użyć listy rozwijanej lub listy rozwijanej do uruchamiania i zatrzymywania zegara?
Ten komentarz został zminimalizowany przez moderatora na stronie
Bonjour, j'ai voulu integrer ce chronomètre à autre autre macro, determinant le temps d'utilisation du fichier. La macro se lance mais bloque l'utilisation du fichier.Comment faire pour utiliser votre chronomètre en meme temps que d'autres kody VBA?MerciHenry.
Ten komentarz został zminimalizowany przez moderatora na stronie
Cześć! Dziękuję za to, jak to zrobić, aby wypełniał czas w kolejnych komórkach, np. czas rozpoczęcia/zatrzymania dla komórki C2, następnie inny czas rozpoczęcia/zatrzymania dla komórki c3, c4, c5 itd. 
Nie ma tu jeszcze żadnych komentarzy
Pokaż więcej
Zostaw swój komentarz
Publikowanie jako gość
×
Oceń ten post:
0   Postacie
Sugerowane lokalizacje

Bądż na bieżąco

Prawa autorskie © 2009 - www.extendoffice.com. | Wszelkie prawa zastrzeżone. Zasilany przez ExtendOffice, | Mapa strony
Microsoft i logo Office są znakami towarowymi lub zastrzeżonymi znakami towarowymi Microsoft Corporation w Stanach Zjednoczonych i / lub innych krajach.
Chronione przez Sectigo SSL