IBMis töötades kuulusin ToastMasters Internationali klubisse. See on koht, kus saate parandada oma suhtlemis- ja juhtimisoskusi.
Huvitav osa iganädalastel koosolekutel oli eksprompt. Selles koosoleku osas anti inimesele teema ja ta pidi sellel 2 minutit sõna võtma. Seal oli määratud isik, kes kasutas kõne ajastamist ja näitab rohelist kaarti 1 minuti pärast, kollast kaarti 1:30 minuti pärast ja punast kaarti 2 minuti pärast.
Tavaliselt kasutatakse kõne ajastamiseks nutitelefoni või käekella ning aeg võetakse käsitsi paberile.
Sageli juhtub, et inimene unustab värvilised kaardid ette näidata või mõnikord unustab kõlarite aja salvestamise (minuga juhtus kogu aeg). Neid asju silmas pidades olen Excelis loonud stopperi, mis aitaks kõnesid ajastada ja salvestada.
Kõigepealt õpime, kuidas Excelis põhilist stopperit luua.
Stopperi loomine Excelis (põhiline)
Exceli lihtsa/põhilise stopperi all pean ma silmas midagi, mis algaks, kui vajutame käivitusnuppu ja peatuks, kui vajutame stopp -nuppu.
Midagi, nagu allpool näidatud:
Laadige see põhiline stopper alla Excelis
Selle stopperi loomiseks Excelis peate teadma Rakendus.Õigel ajal meetod VBA -s.
Application.OnTime meetod VBA -s
Application.OnTime meetodit saab kasutada siis, kui soovite tulevikus määratud koodi käivitada. Näiteks võite selle abil kuvada sõnumikast, mis tuletab teile meelde, et peate 1 tunni pärast üles tõusma ja jalgu sirutama või pärast 3 tundi ravimeid võtma.
Rakenduse süntaks. OnTime meetod:
Application.OnTime (Varaseim aeg, Menetlus, LatestTime, Ajakava)
- EarliestTime: aeg, millal soovite protseduuri käivitada.
- Protseduur: toimingu nimi, mida tuleks käivitada.
- LatestTime (valikuline): kui teine kood töötab ja teie määratud koodi ei saa määratud ajal käivitada, saate määrata LatestTime, mille jooksul see peaks ootama. Näiteks võib see olla EarliestTime + 45 (see tähendab, et ootab 45 sekundit, kuni teine protseduur lõpule jõuab). Kui isegi 45 sekundi pärast ei saa protseduuri käivitada, loobutakse sellest. Kui te seda ei määra, ootab Excel koodi käivitamiseni ja käivitab selle.
- Ajakava (valikuline): kui see on määratud väärtusele Tõene, ajastatakse see uue ajaprotseduuri jaoks. Kui vale, tühistab see eelnevalt määratud protseduuri. Vaikimisi on see tõene.
Näide Application.OnTime meetodist
Alamkatse () Application.OnTime Now + TimeValue ("00:00:05"), "ShowMessage" End Sub Show ShowMessage () MsgBox ("HELLO") End Sub
Makro esimene osa kasutab meetodit Application.OnTime ja käivitab viie sekundi pärast protseduuri ShowMessage (topeltjutumärkides). ShowMessage protseduur näitab lihtsalt sõnumikast koos viitega HELLO.
Seda vormingut saate kasutada mis tahes protseduuri käivitamiseks pärast määratud aja möödumist praegusest ajast.
Seda kontseptsiooni kasutades vaatame Excelis lihtsa stopperi loomise koodi.
Dim NextTick kui kuupäev, t Kuupäeva alam StartStopWatch () t = Time Call StartTimer End Sub Sub StartTimer () NextTick = Time + TimeValue ("00:00:01") Vahemik ("A1"). Väärtus = Formaat (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", ajakava: = False End Sub
Sellel koodil on 3 osa:
- Esimene osa lähtestab praeguse aja muutujale t. Seejärel kutsub see teise protseduuri StartTimer.
- StartTimer protseduur kasutab muutujat NextTick, mida suurendatakse iga sekundiga 1 võrra. Töölehe lahtris A1 on töötamise taimer, nagu oleme määranud selle lahtri väärtuseks NextTick - t -TimeValue ("00:00:01"), "hh: mm: ss"). Seejärel käivitab see StartTimer koodi iga sekundi järel uuesti.
- StopTimer tühistab rakenduse Application.Ontime, muutes ajakava väärtuseks Väär. See peatab taimeri.
Siin on see, mida saate ülaltoodud koodiga (olen määranud makrod start/stop nuppudele):
See on Exceli põhiline stopper.
Ma nimetan seda elementaarseks, kuna te ei saa keskel peatuda ja taaskäivitada sealt, kuhu jätsite. See käivitub alati algusest 1, kui vajutate käivitusnuppu.
Nüüd, kui olete õppinud Application.OnTime meetodi põhitõdesid, saate seda hõlpsalt muuta, et luua Excelis mis tahes stopper.
Stopper Excelis (ToastMasters)
Olen kasutanud eespool käsitletud kontseptsiooni ja loonud Excelis stopperi, mida saab kasutada Toastmastersi koosolekul (mida mainisin selle õpetuse alguses).
Selle stopperi abil saate teha järgmist.
- Saate taimerit peatada ja uuesti samast ajast uuesti käivitada (seni salvestatud).
- Saate taimeri lähtestada. See määrab taimeri väärtuseks 0. Niipea, kui seda teete, salvestab see automaatselt kogu aja.
- See muudab taimerikasti värvi, sõltuvalt stopperi väärtusest (see võib olla hea meeldetuletus roheliste/kollaste/punaste kaartide näitamiseks).
See näeb välja selline:
Selles ülaltoodud demos olen määranud värvimuutuse iga viie sekundi järel. Saate hõlpsalt määrata, millal soovite värvi muuta (roheline kaart 1 minuti pärast, kollane kaart 1,5 minuti pärast ja punane kaart 2 minuti pärast), muutes arvutuste lehe väärtusi.
Niipea, kui vajutate lähtestamisnuppu, muutub taimer valgeks, taimer muutub väärtuseks 0 ja salvestab aja veerus G.
Märkus. Kuna need failid sisaldavad makrot, peate enne selle kasutamist makrod lubama. Töövihiku avamisel näete kollast nuppu - Luba sisu. Makrode lubamiseks klõpsake seda.
Kui loote taimeriga midagi lahedat, jagage seda minuga.
