Työskennellessäni IBM: ssä olin osa ToastMasters International -klubia. Se on paikka, jossa voit parantaa viestintä- ja johtamistaitojasi.
Mielenkiintoinen osa viikoittaisissa kokouksissa oli improvisoitu puhe. Tässä kokouksen osassa henkilölle annettiin aihe ja hänen täytyi puhua siitä 2 minuuttia. Oli nimetty henkilö, joka käytti aikansa puheeseen ja näyttää vihreän kortin 1 minuutilla, keltaisen kortin 1:30 minuutilla ja punaisen kortin 2 minuutin kuluttua.
Yleensä puheaikaa käytetään älypuhelimella tai kellolla, ja aika tallennetaan manuaalisesti paperille.
Usein tapahtuu, että henkilö unohtaa näyttää värilliset kortit tai joskus unohti tallentaa kaiuttimien ajoituksen (tapahtui minulle koko ajan). Nämä asiat mielessä olen luonut Excelissä sekuntikellon, joka auttaisi puheiden aikaa ja tallennusta.
Opetellaan ensin perusajastimen luominen Excelissä.
Sekuntikellon luominen Excelissä (perus)
Excelin yksinkertaisella/perusajastimella tarkoitan jotain, joka käynnistyy, kun painamme käynnistyspainiketta ja pysähtyy, kun painamme pysäytyspainiketta.
Jotain alla olevan kuvan mukaisesti:
Lataa tämä yksinkertainen sekuntikello Excelissä
Jos haluat luoda tämän sekuntikellon Excelissä, sinun on tiedettävä Sovellus.Ajallaan menetelmä VBA: ssa.
Application.OnTime -menetelmä VBA: ssa
Application.OnTime -menetelmää voidaan käyttää, kun haluat suorittaa määritetyn koodin tulevaisuudessa. Voit esimerkiksi käyttää sitä näyttämään viestiruudun, joka muistuttaa sinua nousemaan ja venyttämään jalkasi 1 tunnin kuluttua tai syömään lääkkeitä 3 tunnin kuluttua.
Sovelluksen syntaksi. OnTime -menetelmä:
Application.OnTime (Aikaisin aika, Menettely, LatestTime, Ajoittaa)
- EarliestTime: Aika, jolloin haluat suorittaa toimenpiteen.
- Toimenpide: Suoritettavan menettelyn nimi.
- LatestTime (valinnainen): Jos toinen koodi on käynnissä ja määritettyä koodiasi ei voida suorittaa määritettynä aikana, voit määrittää LatestTime -ajan, jota sen pitäisi odottaa. Se voi olla esimerkiksi EarliestTime + 45 (mikä tarkoittaa, että se odottaa 45 sekuntia, ennen kuin toinen menettely suoritetaan). Jos toimenpide ei pysty suorittamaan edes 45 sekunnin kuluttua, se hylätään. Jos et määritä tätä, Excel odottaa, kunnes koodi voidaan suorittaa, ja suorittaa sen sitten.
- Aikataulu (valinnainen): Jos asetuksena on Tosi, se ajastaa uuden aikamenettelyn. Jos epätosi, se peruuttaa aiemmin asetetun menettelyn. Oletuksena tämä on totta.
Esimerkki Application.OnTime -menetelmästä
Alatesti () Application.OnTime Now + TimeValue ("00:00:05"), "ShowMessage" Lopeta Sub Sub ShowMessage () MsgBox ("HELLO") End Sub
Makron ensimmäinen osa käyttää Application.OnTime -menetelmää ja suorittaa ShowMessage -menettelyn (lainausmerkeissä) viiden sekunnin kuluttua. ShowMessage -menettely näyttää yksinkertaisesti viestiruudun, jossa on kehote HELLO.
Voit käyttää tätä muotoa suorittaaksesi minkä tahansa toimenpiteen tietyn ajan kuluttua nykyisestä ajasta.
Katsotaanpa nyt tätä konseptia käyttämällä koodia yksinkertaisen sekuntikellon luomiseksi Excelissä.
Himmennä NextTick päivämääränä, t Päivämäärän alina StartStopWatch () t = Aikapuhelu Aloitusajastin Lopeta Sub Sub StartTimer () NextTick = Time + TimeValue ("00:00:01") Alue ("A1"). Arvo = Muoto (NextTick - t - TimeValue ("00:00:01"), "hh: mm: ss") Application.OnTime NextTick, "StartTimer" End Sub Sub StopTimer () On Error Jatka seuraavan sovelluksen.OnTime EarliestTime: = NextTick, Menettely: = "StartTimer", Aikataulu: = False End Sub
Tässä koodissa on 3 osaa:
- Ensimmäinen osa alustaa nykyisen ajan muuttujalle t. Sitten se kutsuu toisen menettelyn StartTimer.
- StartTimer -menettely käyttää muuttujaa NextTick, jota kasvatetaan yhdellä sekunnilla. Laskentataulukossa solussa A1 on käynnistysajastin, koska olemme määrittäneet NextTick - t -TimeValue ("00:00:01"), "hh: mm: ss") solun arvoksi. Se suorittaa sitten StartTimer -koodin uudelleen joka sekunnin jälkeen.
- StopTimer peruuttaa Application.Ontime -menettelyn tekemällä aikataulun arvon False. Tämä pysäyttää ajastimen.
Tässä on mitä saat yllä olevalla koodilla (olen määrittänyt makroja käynnistys-/pysäytyspainikkeille):
Tämä on Excelin perusajastin.
Kutsun sitä perustavaksi, koska et voi pysähtyä keskelle ja aloittaa uudelleen siitä, mihin jäit. Se käynnistyy aina uudestaan 1: stä, kun painat käynnistyspainiketta.
Nyt kun olet oppinut Application.OnTime -menetelmän perusteet, voit helposti säätää tätä luodaksesi haluamasi sekuntikellon Excelissä.
Sekuntikello Excelissä (ToastMasters)
Olen käyttänyt edellä käsiteltyä käsitettä ja luonut Excelissä sekuntikellon, jota voidaan käyttää Toastmasters -kokouksessa (jonka mainitsin tämän opetusohjelman alussa).
Seuraavat asiat voidaan tehdä tällä sekuntikellolla:
- Voit pysäyttää ajastimen ja käynnistää sen uudelleen samasta ajasta (tallennettu siihen asti).
- Voit nollata ajastimen. Tämä asettaa ajastimen arvoksi 0. Heti kun teet sen, se tallentaa automaattisesti kuluneen ajan.
- Se muuttaa ajastinlaatikon väriä sekuntikellon arvon mukaan (tämä voi olla hyvä muistutus vihreiden/keltaisten/punaisten korttien näyttämisestä).
Tältä se näyttää:
Tässä yllä olevassa esittelyssä olen asettanut värinmuutoksen viiden sekunnin välein. Voit helposti määrittää, milloin haluat värin muuttuvan (vihreä kortti 1 minuutin kohdalla, keltainen kortti 1,5 minuutin kohdalla ja punainen kortti 2 minuutin kuluttua) muuttamalla laskentataulukon arvoja.
Heti kun painat nollauspainiketta, ajastimen väri muuttuu valkoiseksi, ajastimen arvoksi tulee 0 ja se tallentaa ajan sarakkeeseen G.
Huomautus: Koska nämä tiedostot sisältävät makroja, sinun on otettava makroja käyttöön ennen niiden käyttöä. Kun avaat työkirjan, näet keltaisen painikkeen - Ota sisältö käyttöön. Napsauta sitä ottaaksesi makroja käyttöön.
Jos luot jotain hienoa ajastimella, jaa se kanssani.
