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 Typ 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.