Při práci v IBM jsem byl součástí klubu ToastMasters International. Je to místo, kde můžete zlepšit své komunikační a vůdčí schopnosti.
Zajímavou částí týdenních setkání bylo improvizované mluvení. V této části setkání dostal člověk téma a musel o něm mluvit 2 minuty. Byla tam určená osoba, která řeč zvykla načasovat a po 1 minutě ukazuje zelenou kartu, v 1:30 minut žlutou a po 2 minutách červenou kartu.
K načasování řeči se obvykle používá smartphone nebo hodinky a zaznamenaný čas se zaznamenává ručně na papír.
Často se stává, že člověk zapomene ukázat barevné karty nebo někdy zapomene zaznamenat načasování reproduktorů (se mnou se to stalo pořád). S ohledem na tyto věci jsem vytvořil stopky v Excelu, které by pomohly načasovat a zaznamenat projevy.
Pojďme se nejprve naučit, jak vytvořit základní stopky v Excelu.
Jak vytvořit stopky v aplikaci Excel (základní)
Jednoduchými/základními stopkami v Excelu mám na mysli něco, co by se spustilo stisknutím tlačítka start a zastavilo se stisknutím tlačítka stop.
Něco, jak je uvedeno níže:
Stáhněte si tyto základní stopky v Excelu
Chcete -li vytvořit tyto stopky v aplikaci Excel, potřebujete vědět o aplikace.Včas metoda ve VBA.
Metoda Application.OnTime ve VBA
Metodu Application.OnTime lze použít, když chcete v budoucnu spustit zadaný kód. Můžete jej například použít k zobrazení pole se zprávou, které vám připomene, abyste po 1 hodině vstali a protáhli nohy nebo si po 3 hodinách dali léky.
Syntaxe metody Application.OnTime:
Application.OnTime (EarliestTime, Postup, LatestTime, Plán)
- EarliestTime: Čas, kdy chcete spustit proceduru.
- Postup: Název procedury, která by měla být spuštěna.
- LatestTime (Volitelné): V případě, že je spuštěn jiný kód a váš zadaný kód nelze spustit v zadanou dobu, můžete zadat LatestTime, na který má čekat. Může to být například EarliestTime + 45 (což znamená, že bude čekat 45 sekund, než bude dokončen další postup). Pokud ani po 45 sekundách nelze proceduru spustit, bude opuštěna. Pokud to neurčíte, Excel počká, až bude možné kód spustit, a poté jej spustí.
- Plán (volitelně): Pokud je nastaven na hodnotu True, naplánuje nový časový postup. Pokud je hodnota False, ruší dříve nastavený postup. Ve výchozím nastavení je to True.
Příklad metody Application.OnTime
Dílčí test () Application.OnTime Now + TimeValue ("00:00:05"), "ShowMessage" End Sub Sub ShowMessage () MsgBox ("HELLO") End Sub
První část makra používá metodu Application.OnTime a po pěti sekundách spustí proceduru ShowMessage (v uvozovkách). Procedura ShowMessage jednoduše zobrazí okno zprávy s výzvou AHOJ.
Tento formát můžete použít ke spuštění jakékoli procedury po zadaném čase od aktuálního času.
Nyní používáme tento koncept a podívejme se na kód pro vytvoření jednoduchých stopek v aplikaci Excel.
Dim NextTick As Date, t As Date Sub StartStopWatch () t = Time Call StartTimer End Sub Sub StartTimer () NextTick = Time + TimeValue ("00:00:01") Range ("A1"). Value = Format (NextTick - t - TimeValue ("00:00:01"), "hh: mm: ss") Application.OnTime NextTick, "StartTimer" End Sub Sub StopTimer () On Error Resume Next Application.OnTime EarliestTime: = NextTick, Procedure: = "StartTimer", Plán: = Falešný konec Sub
Tento kód má 3 části:
- První část inicializuje aktuální čas na proměnnou t. Poté zavolá další proceduru StartTimer.
- Procedura StartTimer používá proměnnou NextTick, která se každou sekundu zvyšuje o 1. V listu má buňka A1 běžící časovač, jak jsme určili jako hodnotu v této buňce NextTick - t -TimeValue („00:00:01“, „hh: mm: ss“). Potom každou sekundu znovu spustí kód StartTimer.
- StopTimer zruší proceduru Application.Ontime tím, že nastaví hodnotu plánu na hodnotu False. Tím se stopky zastaví.
Zde je to, co získáte s výše uvedeným kódem (makra jsem přiřadil tlačítkům start/stop):
Toto jsou základní stopky v Excelu.
Říkám tomu základní, protože nemůžete zastavit uprostřed a restartovat tam, kde jste odešli. Vždy se restartuje od 1, když stisknete tlačítko Start.
Nyní, když jste se naučili základy metody Application.OnTime, ji můžete snadno vyladit, abyste v aplikaci Excel vytvořili jakýkoli druh stopek, které chcete.
Stopky v Excelu (pro ToastMasters)
Použil jsem koncept popsaný výše a vytvořil stopky v aplikaci Excel, které lze použít při setkání Toastmasters (což jsem zmínil na začátku tohoto tutoriálu).
Zde jsou věci, které lze pomocí těchto stopek provést:
- Časovač můžete zastavit a poté znovu spustit od stejného času (do té doby zaznamenaného).
- Časovač můžete resetovat. Tím se nastaví hodnota časovače na 0. Jakmile to uděláte, automaticky zaznamená celkový uplynulý čas.
- Mění barvu pole časovače v závislosti na hodnotě stopek (může to být dobrá připomínka k zobrazení zelených/žlutých/červených karet).
Jak to vypadá:
V tomto výše uvedeném demo jsem nastavil změnu barvy každých pět sekund. Změnou hodnot v listu Výpočet můžete snadno určit, kdy chcete změnit barvu (zelená karta po 1 minutě, žlutá karta po 1,5 minutě a červená karta po 2 minutách).
Jakmile stisknete tlačítko reset, barva časovače se vrátí na bílou, hodnota časovače se stane 0 a zaznamená čas ve sloupci G.
Poznámka: Protože tyto soubory obsahují makro, budete muset makra před použitím povolit. Když otevřete sešit, uvidíte žluté tlačítko - Povolit obsah. Kliknutím na něj povolíte makra.
Pokud vytvoříte něco skvělého pomocí časovače, podělte se o to se mnou.
