Dok sam radio u IBM -u, bio sam dio kluba ToastMasters International. To je mjesto na kojem možete poboljšati komunikacijske i liderske vještine.
Zanimljiv dio tjednih sastanaka bio je improvizirani govor. U ovom dijelu sastanka osoba je dobila temu i morala je govoriti o njoj 2 minute. Tu je bila određena osoba koja je koristila vrijeme za govor i pokazuje zeleni karton u 1 minuti, žuti u 1:30 minuta, a crveni karton nakon 2 minute.
Obično se pametni telefon ili sat koriste za mjerenje vremena govora, a vrijeme se bilježi ručno na papir.
Često se dogodi da osoba zaboravi pokazati kartice u boji ili ponekad zaboravi snimiti vrijeme za zvučnike (događalo se sa mnom cijelo vrijeme). Imajući ove stvari na umu, stvorio sam štopericu u Excelu koja će pomoći u vremenu i snimanju govora.
Naučimo prvo kako stvoriti osnovnu štopericu u Excelu.
Kako stvoriti štopericu u Excelu (osnovno)
Pod jednostavnom/osnovnom štopericom u Excelu mislim na nešto što bi započelo kada pritisnemo gumb za pokretanje i zaustavilo se kada pritisnemo gumb za zaustavljanje.
Nešto kao što je prikazano ispod:
Preuzmite ovu osnovnu štopericu u Excelu
Da biste stvorili ovu štopericu u Excelu, morate znati o Primjena.Na vrijeme metoda u VBA.
Primjena.OnTime metoda u VBA
Metoda Application.OnTime može se koristiti kada ubuduće želite pokrenuti navedeni kôd. Na primjer, možete ga upotrijebiti za prikaz okvira s porukom koji će vas podsjetiti da ustanete i protegnete noge nakon 1 sata ili da uzmete lijekove nakon 3 sata.
Sintaksa aplikacije. Metoda van vremena:
Application.OnTime (Najranije vrijeme, Postupak, Najnovije vrijeme, Raspored)
- EarliestTime: Vrijeme kada želite pokrenuti postupak.
- Postupak: Naziv postupka koji treba pokrenuti.
- LatestTime (Izborno): U slučaju da je pokrenut drugi kôd, a navedeni kôd se ne može pokrenuti u navedeno vrijeme, možete navesti LatestTime na koje bi trebao čekati. Na primjer, to može biti EarliestTime + 45 (što znači da će čekati 45 sekundi da se drugi postupak dovrši). Ako se postupak ni nakon 45 sekundi ne može pokrenuti, napušta se. Ako to ne navedete, Excel bi pričekao dok se kôd ne može pokrenuti, a zatim ga pokrenuo.
- Raspored (izborno): Ako je postavljeno na Tačno, zakazuje novi vremenski postupak. Ako je False, tada se poništava prethodno postavljeni postupak. Prema zadanim postavkama, ovo je Tačno.
Primjer metode Application.OnTime
Sub test () Application.OnTime Now + TimeValue ("00:00:05"), "ShowMessage" Završi sub Sub ShowMessage () MsgBox ("HELLO") Kraj Sub
Prvi dio makronaredbe koristi metodu Application.OnTime i nakon pet sekundi pokreće proceduru ShowMessage (u dvostrukim navodnicima). Postupak ShowMessage jednostavno prikazuje okvir s porukom HELLO.
Ovaj format možete koristiti za pokretanje bilo kojeg postupka nakon određenog vremena od trenutnog vremena.
Koristeći ovaj koncept, pogledajmo kod za izradu jednostavne štoperice u Excelu.
Zatamni NextTick kao datum, t kao datum Sub StartStopWatch () t = Vrijeme poziva StartTimer Kraj Sub Sub StartTimer () NextTick = Vrijeme + TimeValue ("00:00:01") Raspon ("A1"). Vrijednost = 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, Procedura: = "StartTimer", Raspored: = Potpuno pogrešan kraj
Ovaj kod ima 3 dijela:
- Prvi dio inicijalizira trenutno vrijeme varijabli t. Zatim poziva drugi postupak StartTimer.
- Postupak StartTimer koristi varijablu NextTick koja se svake sekunde povećava za 1. Na radnom listu ćelija A1 ima mjerač vremena rada kako smo odredili NextTick - t -TimeValue (“00:00:01”), “hh: mm: ss”) kao vrijednost u toj ćeliji. Zatim ponovno pokreće kod StartTimer nakon svake sekunde.
- StopTimer otkazuje postupak Application.Ontime postavljanjem vrijednosti rasporeda kao netočne. Time se zaustavlja mjerač vremena.
Evo što ćete dobiti s gornjim kodom (makronaredbe sam dodijelio tipkama za pokretanje/zaustavljanje):
Ovo je osnovna štoperica u Excelu.
Ja to nazivam osnovnim jer se ne možete zaustaviti u sredini i ponovno pokrenuti tamo gdje ste stali. Uvijek će se ponovno pokrenuti od 1 kada pritisnete gumb za pokretanje.
Sada kada ste naučili osnove metode Application.OnTime, možete to lako prilagoditi kako biste u Excelu stvorili koju god želite štopericu.
Štoperica u Excelu (za ToastMasters)
Koristio sam gore opisani koncept i stvorio štopericu u Excelu koja se može koristiti na sastanku Toastmasters (koji sam spomenuo na početku ovog vodiča).
Evo što se može učiniti pomoću ove štoperice:
- Odbrojavanje možete zaustaviti, a zatim ponovno pokrenuti iz istog vremena (snimljeno do tada).
- Odbrojavanje možete poništiti. Time se vrijednost mjerača vremena postavlja na 0. Čim to učinite, automatski bilježi ukupno proteklo vrijeme.
- Mijenja boju okvira mjerača vremena, ovisno o vrijednosti štoperice (ovo bi mogao biti dobar podsjetnik za prikazivanje zelenih/žutih/crvenih kartona).
Evo kako to izgleda:
U ovoj gornjoj demonstraciji postavio sam promjenu boje svakih pet sekundi. Možete jednostavno odrediti kada želite promijeniti boju (zeleni karton nakon 1 minute, žuti karton nakon 1,5 minute i crveni karton nakon 2 minute) promjenom vrijednosti na listu za izračun.
Čim pritisnete gumb za resetiranje, boja mjerača vremena vratila bi se u bijelu, vrijednost mjerača vremena bi postala 0, a vrijeme će se bilježiti u stupac G.
Napomena: Budući da ove datoteke sadrže makronaredbe, prije upotrebe morate omogućiti makronaredbe. Kad otvorite radnu knjigu, vidjet ćete žuti gumb - Omogući sadržaj. Kliknite na nju da biste omogućili makronaredbe.
Ako pomoću odbrojavanja stvorite nešto super, podijelite to sa mnom.
