Počas práce v IBM som bol súčasťou klubu ToastMasters International. Je to miesto, kde môžete zlepšiť svoje komunikačné a vodcovské schopnosti.
Zaujímavou sekciou týždenných stretnutí bolo improvizované rozprávanie. V tejto časti stretnutia dostala osoba tému a musela o nej hovoriť 2 minúty. Bol tam určený človek, ktorý zvykol načasovať prejav a ukazoval zelenú kartu o 1 minútu, žltú o 1:30 minútu a červenú kartu o 2 minúty.
Na načasovanie reči sa zvyčajne používa smartphone alebo hodinky a zaznamenaný čas sa zaznamená ručne na papier.
Často sa stáva, že človek zabudne ukázať farebné karty alebo niekedy zabudne zaznamenať načasovanie reproduktorov (stalo sa to so mnou stále). S ohľadom na tieto veci som v Exceli vytvoril stopky, ktoré by pomohli načasovať a zaznamenať prejavy.
Najprv sa naučíme, ako vytvoriť základné stopky v programe Excel.
Ako vytvoriť stopky v programe Excel (základné)
Pod jednoduchými/základnými stopkami v Exceli mám na mysli niečo, čo by sa spustilo stlačením tlačidla štart a zastavilo by sa stlačením tlačidla stop.
Niečo, ako je uvedené nižšie:
Stiahnite si tieto základné stopky v Exceli
Na vytvorenie týchto stopiek v programe Excel potrebujete vedieť o Aplikácia.Načas metóda vo VBA.
Metóda Application.OnTime vo VBA
Metódu Application.OnTime je možné použiť, ak chcete v budúcnosti spustiť zadaný kód. Môžete ho napríklad použiť na zobrazenie poľa so správou, ktoré vám pripomenie, aby ste po 1 hodine vstali a natiahli nohy alebo si dali lieky po 3 hodinách.
Syntax metódy Application.OnTime:
Application.OnTime (EarliestTime, Postup, LatestTime, Rozvrh)
- EarliestTime: Čas, kedy chcete spustiť procedúru.
- Procedúra: Názov procedúry, ktorá by mala byť spustená.
- LatestTime (voliteľné): V prípade, že je spustený iný kód a zadaný kód nie je možné spustiť v uvedenom čase, môžete zadať LatestTime, na ktorý má čakať. Môže to byť napríklad EarliestTime + 45 (čo znamená, že bude 45 sekúnd čakať, kým sa nedokončí ďalší postup). Ak ani po 45 sekundách postup nie je možné spustiť, opustí sa. Ak to neurčíte, Excel počká, kým sa kód dá spustiť, a potom ho spustí.
- Plán (voliteľné): Ak je nastavený na hodnotu True, naplánuje nový časový postup. Ak je nepravdivé, potom sa zruší predtým nastavený postup. Štandardne je to pravda.
Príklad metódy Application.OnTime
Sub test () Application.OnTime Now + TimeValue ("00:00:05"), "ShowMessage" End Sub Sub ShowMessage () MsgBox ("HELLO") End Sub
Prvá časť makra používa metódu Application.OnTime a po piatich sekundách spustí procedúru ShowMessage (v dvojitých úvodzovkách). Procedúra ShowMessage jednoducho zobrazí okno so správou HELLO.
Tento formát môžete použiť na spustenie akejkoľvek procedúry po určenom čase od aktuálneho času.
Teraz používame tento koncept a pozrime sa na kód na vytvorenie jednoduchých stopiek v programe 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 Sub StopTimer () On Error Resume Next Application.OnTime EarliestTime: = NextTick, Procedure: = "StartTimer", plán: = Falošný koniec Sub
Tento kód má 3 časti:
- Prvá časť inicializuje aktuálny čas na premennú t. Potom zavolá ďalší postup StartTimer.
- Procedúra StartTimer používa premennú NextTick, ktorá sa zvyšuje o 1 s každou ďalšou sekundou. V pracovnom hárku má bunka A1 bežiaci časovač, ako sme určili hodnotu NextTick - t -TimeValue („00:00:01“, „hh: mm: ss“) ako hodnotu v tejto bunke. Potom každú sekundu znova spustí kód StartTimer.
- StopTimer zruší aplikáciu. Procedúra Presčas tým, že sa hodnota plánu nastaví na hodnotu False. Tým sa stopky zastavia.
Tu je to, čo získate s vyššie uvedeným kódom (makrá som priradil tlačidlám štart/stop):
Toto sú základné stopky v programe Excel.
Hovorím tomu základné, pretože nemôžete zastaviť v strede a reštartovať tam, kde ste odišli. Vždy sa reštartuje od 1, keď stlačíte tlačidlo Štart.
Teraz, keď ste sa naučili základy metódy Application.OnTime, to môžete ľahko vyladiť a vytvoriť v Exceli akýkoľvek druh stopiek, ktoré chcete.
Stopky v Exceli (pre ToastMasters)
Použil som koncept popísaný vyššie a vytvoril som stopky v programe Excel, ktoré je možné použiť na stretnutí Toastmasters (o ktorom som sa zmienil na začiatku tohto tutoriálu).
Tu sú veci, ktoré je možné vykonať pomocou týchto stopiek:
- Časovač môžete zastaviť a potom znova začať od rovnakého času (dovtedy zaznamenaného).
- Časovač môžete resetovať. Tým sa nastaví hodnota časovača na 0. Hneď ako to urobíte, automaticky zaznamená celkový uplynulý čas.
- Mení farbu poľa časovača v závislosti od hodnoty stopiek (môže to byť dobrá pripomienka na zobrazenie zelenej/žltej/červenej karty).
Takto to vyzerá:
V tomto vyššie uvedenom ukážke som nastavil zmenu farby každých päť sekúnd. Zmenou hodnôt v hárku Výpočet môžete jednoducho určiť, kedy sa má farba zmeniť (zelená karta o 1 minútu, žltá karta o 1,5 minúty a červená karta o 2 minúty).
Hneď ako stlačíte tlačidlo reset, farba časovača sa zmení na bielu, hodnota časovača bude 0 a zaznamená čas v stĺpci G.
Poznámka: Pretože tieto súbory obsahujú makro, budete musieť pred použitím makrá povoliť. Keď otvoríte zošit, zobrazí sa žlté tlačidlo - Povoliť obsah. Kliknutím na ňu povolíte makrá.
Ak vytvoríte niečo úžasné pomocou časovača, podeľte sa o to so mnou.
