Excel sám o sobě nemá funkci, která by zahrnovala odpočítávání. Nicméně s programovacím jazykem tzv Visual Basic for Applications, je možné napsat jednoduché makro pro provedení funkce odpočítávání. Tento článek ukazuje, jak vytvořit makro, které umožňuje časovači odpočítávat až 12 hodin, vhodné pro správu času v rámci listu.
Naformátujte buňku časovače
Krok 1
V novém otevřeném listu přejděte do buňky A1. Toto bude umístění příkladu časovače.
Video dne
Krok 2
Kredit obrázku: Obrázek se svolením společnosti Microsoft
Klepněte pravým tlačítkem na buňku A1 a vyberte Formát buněk.
Krok 3
Kredit obrázku: Obrázek se svolením společnosti Microsoft
Vybrat Čas z pole Kategorie a vyberte jeden z formátů hodiny: minuty: sekundy. Klikněte OK pro nastavení formátu buňky.
Vytvořte makro
Krok 1
Kredit obrázku: Obrázek se svolením společnosti Microsoft
Stisknutím otevřete okno úprav jazyka Visual Basic ALT-F11. Klikněte Vložit z lišty nabídek a klikněte Modul.
Krok 2
Kredit obrázku: Obrázek se svolením společnosti Microsoft
Do okna Module1 zadejte následující text:
Dim gCount As Date
Dílčí časovač ()
gCount = Now + TimeValue("00:00:01")
Aplikace. OnTime gCount, "EndMessage"
End Sub
Sub EndMessage()
Dim xRng As Range
Nastavte xRng = Aplikace. ActiveSheet. Rozsah ("A1")
xRng. Hodnota = xRng. Hodnota – TimeSerial (0, 0, 1)
Pokud xRng. Hodnota <= 0 Pak
MsgBox "Odpočítávání dokončeno."
Exit Sub
End If
Časovač hovorů
End Sub
Můžeš kopírování a vkládání text kódu výše, nebo jej můžete zadat řádek po řádku do okna Module1. Editor VBA použije formátování podle potřeby.
Krok 3
Kredit obrázku: Obrázek se svolením společnosti Microsoft
Minimalizujte okno VBA kliknutím na - symbol v pravém horním rohu. Klikněte Soubor na stuze a Uložit jako. Vyberte umístění pro uložení souboru. V okně Uložit jako zadejte název sešitu a vyberte jej Sešit Excel s podporou maker (*.xlsm) z Uložit jako typ rozbalovací seznam. Klikněte Uložit a vrátit se do sešitu.
Použití časovače
Krok 1
Klikněte na buňku A1 a vstoupit 0:3:0a poté stiskněte Vstupte. Tím nastavíte čas na 0 hodin, 3 minuty a 0 sekund.
Krok 2
Klikněte na Pohled na pásu karet a klikněte Makra. Vybrat Časovač ze seznamu maker a klepněte na Běh. Vaše buňka časovače začne odpočítávat až k nule, když a Odpočítávání dokončeno otevře se dialog. Klikněte OK vrátit se ke své práci.
Spropitné
Nemusíte použít buňku A1. Umístěte časovač kamkoli a změňte odkaz na buňku na řádku 8 kódu časovače z A1 na kteroukoli buňku, kterou používáte.
