Jak vložit odpočítávací časovač v aplikaci Excel?
Pokud chcete pracovat s některými daty v omezeném čase, můžete do datového listu vložit odpočítávací měřič a po dokončení odpočítávání se zobrazí vyskakovací dialog, který vám to připomene. Zde vám řeknu kód VBA pro vložení odpočítávacího časovače do aplikace Excel.
Vložte odpočítávací časovač v aplikaci Excel
Vložte odpočítávací časovač v aplikaci Excel
V aplikaci Excel nemůže odpočítávat čas, ale můžete zkopírovat následující kód VBA, který vám pomůže odpočítávat čas.
1. Vyberte buňku a naformátujte ji jako formátování času kliknutím pravým tlačítkem na buňku a výběrem Formát buněk, pak v dialogovém okně klikněte na Čas a výběr 13:30:55 v Styl seznamu, při posledním kliknutí OK pro opuštění tohoto dialogu. Viz snímek obrazovky:
2. Zadejte čas, který chcete odpočítávat, do buňky formátování. Viz snímek obrazovky:
3. lis Alt + F11 klíče k otevření Microsoft Visual Basic pro aplikace okno.
4. cvaknutí Vložit > Modul a poté zkopírujte následující VBA do nového okna.
VBA: Odpočítávací měřič.
Dim gCount As Date
'Updateby20140925
Sub Timer()
gCount = Now + TimeValue("00:00:01")
Application.OnTime gCount, "ResetTime"
End Sub
Sub ResetTime()
Dim xRng As Range
Set xRng = Application.ActiveSheet.Range("E1")
xRng.Value = xRng.Value - TimeSerial(0, 0, 1)
If xRng.Value <= 0 Then
MsgBox "Countdown complete."
Exit Sub
End If
Call Timer
End Sub
Tip: E1 ve výše uvedeném kódu označuje časovou buňku, kterou zadáte v kroku 2.
5. cvaknutí Běh nebo stiskněte tlačítko F5 spustit odpočítávací časovač. Nyní je čas odpočítáván.
6. A když je odpočítávání hotové, vyskočí vám dialogové okno.
Tip: Nelze zastavit odpočítávání, když běží, kromě zavření sešitu.
Nejlepší nástroje pro produktivitu v kanceláři
Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času. Kliknutím sem získáte funkci, kterou nejvíce potřebujete...
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!