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

Jak vytvořit stopky v listu aplikace Excel?

Pokud jsou v listu stopky, budete vědět čas na dokončení úlohy. Jak můžete vytvořit stopky v listu pomocí tlačítka Start, Stop a Reset, jak ukazuje následující snímek obrazovky? Pokud kliknete na tlačítko Start, spustí se čas, pokud kliknete na tlačítko Zastavit, zastaví se čas a tlačítko Reset vám pomůže resetovat čas. V tomto článku budu hovořit o tom, jak vytvořit jednoduché a praktické stopky v aplikaci Excel.

doc vytvořit stopky 1

Vytvořte stopky se třemi tlačítky pomocí kódu VBA


Vytvořte stopky se třemi tlačítky pomocí kódu VBA

Chcete-li vytvořit stopky se třemi tlačítky, Start, Stop a Reset, proveďte postupně následující kroky.

Nejprve vložte tři příkazová tlačítka.

1, klikněte Vývojka > Vložit > Tlačítko příkazu, viz screenshot:

doc vytvořit stopky 2

2. Poté tažením myši nakreslete tlačítko, po vložení tlačítka můžete změnit titulek tlačítka, klikněte prosím Vývojka > Nemovitosti, V roce Nemovitosti dialog, zadejte nový titulek “Home„Pro toto tlačítko v textovém poli vedle Titulek, viz screenshoty:

doc vytvořit stopky 3 2 doc vytvořit stopky 4

3. Opakováním výše uvedených dvou kroků vložte další dvě tlačítka a označte je jako „Stop"A"resetovat”, Viz screenshot:

doc vytvořit stopky 5

4. Po vložení tlačítek byste měli opustit návrhový režim kliknutím Vývojka > Režim návrhu.

Za druhé, vytvořte kód VBA.

5. Poté klikněte pravým tlačítkem na aktuální kartu listu a vyberte Zobrazit kód, ve vyskakovacím okně Microsoft Visual Basic pro aplikace v okně zkopírujte a vložte následující kód do okna Modul:

Kód VBA: Vytvořit stopky:

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 vytvořit stopky 6

Poznámka: Ve výše uvedeném kódu, C2 je buňka, do které se vloží čas stopek, a CommandButton 1, CommandButton 2, CommandButton 3 jsou názvy tlačítek, můžete zobrazit přesný název tlačítka z Název Box, viz screenshot:

doc vytvořit stopky 7

Za třetí, naformátujte časovou buňku stopek.

6. Pak byste měli formátovat časovou buňku jako text formát a můžete podle potřeby změnit velikost buňky, písmo, barvu písma, pozadí atd., viz screenshot:

doc vytvořit stopky 8

7. Po dokončení výše uvedených kroků, od nynějška, když kliknete Home tlačítko, čas se nyní spustí a klikněte na Stop tlačítko, zastaví čas, resetovat tlačítko resetuje čas, viz screenshot:

doc vytvořit stopky 9


Demo: Vytvořte stopky se třemi tlačítky pomocí kódu VBA


Nejlepší kancelářské nástroje produktivity

Kutools pro Excel řeší většinu vašich problémů a zvyšuje vaši produktivitu o 80%

  • Opakované použití: Rychle vložte složité vzorce, grafy a cokoli, co jste dříve používali; Šifrovat buňky s heslem; Vytvořte seznam adresátů a posílat e-maily ...
  • Super Formula Bar (snadno upravit více řádků textu a vzorce); Rozložení pro čtení (snadno číst a upravovat velké množství buněk); Vložit do filtrovaného rozsahu...
  • Sloučit buňky / řádky / sloupce bez ztráty dat; Rozdělit obsah buněk; Zkombinujte duplicitní řádky / sloupce... Zabraňte duplicitním buňkám; Porovnat rozsahy...
  • Vyberte možnost Duplikovat nebo Jedinečný Řádky; Vyberte prázdné řádky (všechny buňky jsou prázdné); Super hledání a fuzzy hledání v mnoha sešitech; Náhodný výběr ...
  • Přesná kopie Více buněk beze změny odkazu na vzorec; Automaticky vytvářet reference do více listů; Vložte odrážky, Zaškrtávací políčka a další ...
  • Extrahujte text, Přidat text, Odebrat podle pozice, Odebrat mezeru; Vytváření a tisk mezisoučtů stránkování; Převod mezi obsahem buněk a komentáři...
  • Super filtr (uložit a použít schémata filtrů na jiné listy); Rozšířené řazení podle měsíce / týdne / dne, frekvence a dalších; Speciální filtr tučnou kurzívou ...
  • Kombinujte sešity a pracovní listy; Sloučit tabulky na základě klíčových sloupců; Rozdělte data do více listů; Dávkový převod xls, xlsx a PDF...
  • Více než 300 výkonných funkcí. Podporuje Office / Excel 2007-2021 a 365. Podporuje všechny jazyky. Snadné nasazení ve vašem podniku nebo organizaci. Plné funkce 30denní bezplatná zkušební verze. 60denní záruka vrácení peněz.
karta kte 201905

Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci

  • Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
  • Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
  • Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!
officetab dno
Komentáře (31)
Zatím žádné hodnocení. Buďte první, kdo ohodnotí!
Tento komentář byl moderátorem webu minimalizován
Děkuji za tento příspěvek, velmi mi pomohl. Existuje však způsob, jak vyladit kód tak, aby se časovač nezastavil, když je buňka upravována? V ideálním případě bych chtěl kliknout na „Start“, provést řadu změn v řadě buněk na stejné kartě a poté kliknout na „Stop“ pro celkovou uplynulou dobu. Jakákoli rada v tomto ohledu by byla velmi oceněna!
Tento komentář byl moderátorem webu minimalizován
přišel jsi někdy na tohle? I já potřebuji nechat běžet časovač, zatímco se ve stejné tabulce provádějí další změny. dík. Mike
Tento komentář byl moderátorem webu minimalizován
Byla to skvělá pomoc a velmi snadné postupovat podle kroků.
Tento komentář byl moderátorem webu minimalizován
Pokusili jste se vytvořit stopky pomocí stejných kódů ve formulářích. Časovač se spustí perfektně, ale nezastaví se. Prosím, navrhněte, jak totéž replikovat ve formulářích
Tento komentář byl moderátorem webu minimalizován
Vyzkoušejte stopky XNote.
Tento komentář byl moderátorem webu minimalizován
Existuje nějaký způsob, jak přimět časovač, aby odpočítával nahoru nebo dolů do určitého času? Chci ponechat tlačítka start, stop a reset, ale potřebuji, aby po stisknutí tlačítka start počítalo pouze jednu minutu a sekundu. Nebo odpočítávejte od jedné minuty jednu sekundu do nuly (01:01). Díky za vaši pomoc!
Tento komentář byl moderátorem webu minimalizován
Ahoj Melisso,
pokud potřebujete vytvořit odpočítávací časovač v pracovním listu, může vám pomoci následující článek!
https://www.extendoffice.com/documents/excel/2144-excel-countdown-timer.html
Tento komentář byl moderátorem webu minimalizován
Ahoj,

Viděl jsem ten článek, ale potřebuji, aby vypadal přesně jako stopky na této stránce, ale potřebuji, aby odpočítával pouze jednu minutu a sekundu. Potřebuji, aby se to zobrazovalo ve formě stopek, ale fungovalo to jako odpočítávání. Nějaké další rady?


děkuji za odpověď!
Tento komentář byl moderátorem webu minimalizován
Je to pro výsledkovou tabulku, kterou jsme navrhli v Excelu.
Tento komentář byl moderátorem webu minimalizován
Skvělé, ale je možné spustit 2 hodiny na stejném listu? vytvořili druhé hodiny s novým tlačítkem start, stop a reset, ale při spuštění druhých hodin se ty první zastaví....
Tento komentář byl moderátorem webu minimalizován
stejné zde můžete najít lék na to
Tento komentář byl moderátorem webu minimalizován
Dobrý den, přátelé,
Tato metoda je aplikována pouze na jednu sadu tlačítek v listu.
Pokud máte další dobré nápady, napište je sem.
Tento komentář byl moderátorem webu minimalizován
Je možné automaticky zastavit časovač při zamknutí obrazovky a automaticky spustit časovač, když odemkneme počítač?
Tento komentář byl moderátorem webu minimalizován
Existuje nějaký způsob, jak časovač resetovat na nulu, ale přesto ponechat časovač v chodu? Tj. Když stisknu Reset, nechci znovu mačkat Start, aby čas vypršel.
Tento komentář byl moderátorem webu minimalizován
Dobrý den, používám tuto zátku, ale dost často se čísla v buňce na displeji ("C2") začnou sypat a zhasínat - ukazují mínus, číslice jsou nesprávné a počet se ztrácí. Obvykle se to stane asi po hodině nebo déle, ale někdy i dříve, než uplyne hodina. Je to běžná chyba? a pokud ano, dá se to nějak opravit? Odstranil jsem z kódu .00 (tj. milisekundy) jednoduchým vymazáním: & "." & Format(0, "00") řádek, kdekoli se objeví - má to něco společného s tímto problémem?
Tento komentář byl moderátorem webu minimalizován
Děkujeme za váš tip. Běželo to hladce, ale když do tohoto listu vložím nějaká data, přestalo to běžet, Potřebujeme, aby to chvíli běželo zadávat data Jak můžeme tento problém vyřešit?
Tento komentář byl moderátorem webu minimalizován
Dobrý den, Nhoeun,
Možná tam není dobrý způsob, jak vyřešit váš problém. Když upravíte buňku, přeruší aktuálně prováděné makro.
Pokud máte nějakou jinou dobrou metodu, napište to sem!
Děkuji!
Tento komentář byl moderátorem webu minimalizován
AHOJ. Vytvořil jsem stopky, ale potřebuji mít možnost mít různé intervaly mezi startem a zastavením, abych je mohl uložit, abych je mohl odrážet jako časovou a pohybovou studii. Nějaké tipy, jak na to?
Tento komentář byl moderátorem webu minimalizován
Provedli jste všechny kroky, ale kliknutím na tlačítko Start se zobrazí chybová zpráva "Nelze spustit makro "'file.xlsm'!CommandButton1". Makro nemusí být v tomto sešitu dostupné nebo mohou být všechna makra zakázána.". Všechna makra byla povolena, makro je v Module1. POZNÁMKA: Používám Office 2019 pro Mac, takže to může být problém....
Tento komentář byl moderátorem webu minimalizován
Co takhle přidat do tohoto kódu funkci „+10s“ a „2x rychlost“?
Tento komentář byl moderátorem webu minimalizován
je zde proměnná „časovač“? nevidím jeho význam v kódu.
Tento komentář byl moderátorem webu minimalizován
Je možné, aby počítadlo počítal pouze sekundy?
Takže když dosáhne 59 sekund, pokračuje 60, 61, 62, 63 ....
Tento komentář byl moderátorem webu minimalizován
Ahoj
Provedli jste kroky, ale nemůžete získat čas, aby se objevil v buňce časovače. Zkopíroval jsem kód, ale mohu zkontrolovat 1. Že čísla řádků nejsou potřeba nebo jsou2. Že jsem vložil kód do modulu 1, nikoli do listu1 nebo tohoto sešitu3. Pokud by po tom všem bylo v seznamu maker uvedeno makro - moje ne.
Díky
Tento komentář byl moderátorem webu minimalizován
Ahoj, Janice, měla byste vložit kód do modulu aktivního listu v kroku 5.
5. Poté klikněte pravým tlačítkem na kartu aktuálního listu a zvolte Zobrazit kód, ve vyskakovacím okně Microsoft Visual Basic for Applications zkopírujte a vložte následující kód do modulu.

A měli byste změnit název tlačítka na svůj vlastní.
Poznámka: Ve výše uvedeném kódu je C2 buňka, do které bude vložen čas stopek, a CommandButton 1, CommandButton 2, CommandButton 3 jsou názvy tlačítek, můžete přesný název tlačítka zobrazit v poli Name Box.

Prosím zkontrolujte je, děkujeme!
Tento komentář byl moderátorem webu minimalizován
To je skvělé! Díky, Chris H
Tento komentář byl moderátorem webu minimalizován
Je možné použít combobox nebo rozevírací výběr pro spuštění a zastavení hodin?
Tento komentář byl moderátorem webu minimalizován
Bonjour, já vás zajímám o chronomètre à une autre macro, determiner le temps d'utilisation du fichier. La macro se lance mais bloque l'utilisation du fichier.Comment faire pour utiliser votre chronomètre en même temps que d'autres codes VBA?MerciHenry.
Tento komentář byl moderátorem webu minimalizován
Ahoj! Děkuji za to, jak to udělám, aby to zaplnilo čas v následujících buňkách, např. čas start/stop pro buňku C2, potom jiný čas start/stop pro buňku c3, c4, c5 atd 
Zatím zde nejsou žádné komentáře
Načíst další
Zanechat své připomínky
Odesílání jako host
×
Ohodnoťte tento příspěvek:
0   Postavy
Doporučená umístění

Sociální sítě

Copyright © 2009 - www.extendoffice.com. | Všechna práva vyhrazena. Poháněno ExtendOffice. | |. | Sitemap
Microsoft a logo Office jsou ochranné známky nebo registrované ochranné známky společnosti Microsoft Corporation ve Spojených státech a / nebo jiných zemích.
Chráněno Sectigo SSL