Jak vytvořit časovač v aplikaci Excel

Časovač aplikace Excel je ten, který bude sedět v buňce a odpočítávat sekundy, když budou tikat. Excel nemá tento druh funkce k dispozici ve standardní sadě nástrojů programu, takže k dokončení práce budete muset použít Visual Basic for Applications, programovací jazyk, který společnost Microsoft zahrnuje do hlavních produktů Office. Jakmile budete mít přístup ke konzole VBA, vytvoření časovače zahrnuje pouze přidání několika příkazů.

1

Otevřete novou tabulku aplikace Excel 2010. Jakmile se list načte, klikněte pravým tlačítkem na buňku, kde chcete mít časovač, a z rozbalovací nabídky vyberte možnost „Formátovat buňky“.

2

V seznamu na levé straně okna Formát buněk vyberte možnost „Čas“. Poté klikněte na jeden z formátů času ze seznamu na pravé straně. Ujistěte se, že váš výběr obsahuje sekundy, protože je budete muset vidět, abyste věděli, že váš časovač funguje. Kliknutím na „OK“ okno zavřete.

3

Stisknutím kláves „Alt“ a „F11“ otevřete konzolu VBA. Klikněte pravým tlačítkem na „List1“ umístěný na levé straně konzoly; poté najeďte myší na „Vložit“ a zvolte „Modul“. Klikněte na modul, který se zobrazí pod listy v seznamu.

4

Klikněte kamkoli do velkého bílého prostoru na pravé straně konzoly VBA. Vložte následující kód do konzoly:

Dim CD As Date Sub RunTime () CD = Now + TimeValue ("00:00:01") Application.OnTime CD, "Counter" End Sub Sub Counter () Dim count As Range Set count = [A1] count.Value = count.Value - 1.1574074074074E-05 Zavolat RunTime End Sub Sub DisableCount () při chybě Obnovit další Application.OnTime EarliestTime: = CD, Procedura: = "Počítadlo", Plán: = Falešný koncový Sub

Změňte „A1“ na libovolnou buňku, kterou používáte pro odpočítávání. Tento kód vytvoří tři samostatná makra, dvě pro spuštění odpočítávání a jedno pro deaktivaci odpočítávání, pokud jej chcete vypnout. Kliknutím na „X“ v pravém horním rohu konzoly VBA ji zavřete a vrátíte se do své tabulky.

5

Klikněte na buňku časovače a do buňky zadejte požadovaný čas. Zadejte čas v hodinovém, minutovém a druhém formátu (hh: mm: ss), abyste měli jistotu, že Excel rozumí tomu, co zadáváte.

6

Klikněte na kartu „Vývojář“ v horní části obrazovky a poté klikněte na tlačítko „Makro“ na pásu karet. V seznamu vyberte makro „Počítadlo“ a zvolte „Spustit“. Časovač začne odpočítávat od původního času, který jste zadali.