Med delom v IBM -u sem bil del kluba ToastMasters International. To je kraj, kjer lahko izboljšate svoje komunikacijske in vodstvene sposobnosti.
Zanimiv del tedenskih srečanj je bil improviziran govor. V tem delu srečanja je oseba dobila temo, o kateri je morala govoriti 2 minuti. Tam je bila določena oseba, ki je čas merila in pokazala zeleni karton ob 1 minuti, rumeni karton ob 1:30 in rdeči karton po 2 minutah.
Običajno se za merjenje govora uporablja pametni telefon ali ura, čas pa se ročno zabeleži na papir.
Pogosto se zgodi, da oseba pozabi pokazati barvne karte ali včasih pozabi zapisati časovni razpored za zvočnike (to se mi je ves čas dogajalo). S temi mislimi sem ustvaril štoparico v Excelu, ki bi pomagala pri zapisovanju govora in času.
Najprej se naučimo, kako ustvariti osnovno štoparico v Excelu.
Kako ustvariti štoparico v Excelu (osnovno)
S preprosto/osnovno štoparico v Excelu mislim na nekaj, kar bi se začelo, ko pritisnemo gumb za zagon, in se ustavilo, ko pritisnemo gumb za zaustavitev.
Nekaj, kot je prikazano spodaj:
Prenesite to osnovno štoparico v Excel
Če želite ustvariti to štoparico v Excelu, morate vedeti o Uporaba.Pravočasno metoda v VBA.
Metoda OnTime v VBA
Metodo Application.OnTime lahko uporabite, če želite v prihodnosti zagnati določeno kodo. Z njim lahko na primer prikažete okno s sporočilom, ki vas opomni, da vstanete in raztegnete noge po 1 uri ali po 3 urah vzamete zdravila.
Sintaksa aplikacije. Metoda OnTime:
Application.OnTime (Najzgodnejši čas, Postopek, Najnovejši čas, Urnik)
- EarliestTime: čas, ko želite zagnati postopek.
- Postopek: Ime postopka, ki ga je treba izvesti.
- LatestTime (izbirno): Če se izvaja druga koda in vaše kode ni mogoče zagnati v določenem času, lahko določite LatestTime, na katerega naj počaka. Na primer, lahko je EarliestTime + 45 (kar pomeni, da bo počakal 45 sekund, da se drugi postopek zaključi). Če tudi po 45 sekundah postopek ne more teči, se ga opusti. Če tega ne določite, bi Excel počakal, da se koda zažene, in jo nato zagnal.
- Urnik (izbirno): če je nastavljeno na True, načrtuje nov časovni postopek. Če je False, prekliče predhodno nastavljen postopek. Privzeto je to res.
Primer metode Application.OnTime
Sub test () Application.OnTime Now + TimeValue ("00:00:05"), "ShowMessage" End Sub Sub ShowMessage () MsgBox ("HELLO") End Sub
Prvi del makra uporablja metodo Application.OnTime in po petih sekundah zažene postopek ShowMessage (v dvojnih narekovajih). Postopek ShowMessage preprosto prikaže polje s sporočilom s pozivom HELLO.
To obliko lahko uporabite za izvajanje katerega koli postopka po določenem času od trenutnega časa.
Zdaj s tem konceptom poglejmo kodo za ustvarjanje preproste štoparice v Excelu.
Zatemni NextTick As Date, t As Date Sub StartStopWatch () t = Time Start StartTimer End Sub Sub StartTimer () NextTick = Time + TimeValue ("00:00:01") Range ("A1"). t - TimeValue ("00:00:01"), "hh: mm: ss") Application.OnTime NextTick, "StartTimer" End Sub Sub StopTimer () On Error Resume Next Application.OnTime EarliestTime: = NextTick, Postopek: = "StartTimer", Urnik: = Subsection False End
Ta koda ima 3 dele:
- Prvi del inicializira trenutni čas v spremenljivko t. Nato pokliče drug postopek StartTimer.
- Postopek StartTimer uporablja spremenljivko NextTick, ki se z vsako sekundo poveča za 1. Na delovnem listu ima celica A1 časovni časovnik, kot smo določili NextTick - t -TimeValue (“00:00:01”), “hh: mm: ss”) kot vrednost v tej celici. Po vsaki sekundi znova zažene kodo StartTimer.
- StopTimer prekliče postopek Application.Ontime tako, da vrednost urnika postavi False. S tem se časovnik ustavi.
Tukaj je tisto, kar boste dobili z zgornjo kodo (makre sem dodelil gumbom za zagon/ustavitev):
To je osnovna štoparica v Excelu.
Imenujem ga osnovno, saj se ne morete ustaviti na sredini in znova zagnati tam, kjer ste ostali. Ko pritisnete gumb za zagon, se bo vedno znova zagnal od 1.
Zdaj, ko ste se naučili osnov metode Application.OnTime, lahko to preprosto prilagodite, da v Excelu ustvarite poljubno štoparico.
Štoparica v Excelu (za ToastMasters)
Uporabil sem zgoraj obravnavani koncept in v Excelu ustvaril štoparico, ki jo je mogoče uporabiti na srečanju Toastmasters (ki sem ga omenil na začetku te vadnice).
S to štoparico lahko naredite nekaj:
- Časovnik lahko ustavite in nato znova zaženete od istega časa (do takrat posneto).
- Časovnik lahko ponastavite. To nastavi vrednost časovnika na 0. Takoj, ko to storite, samodejno zabeleži celoten pretečeni čas.
- Spreminja barvo časovnika, odvisno od vrednosti štoparice (to je lahko dober opomnik za prikaz zelenih/rumenih/rdečih kartonov).
Takole izgleda:
V tem zgornjem predstavitvi sem nastavil spremembo barve vsakih pet sekund. Z lahkoto lahko določite, kdaj želite, da se barva spremeni (zeleni karton 1 minuto, rumeni karton 1,5 minute in rdeči karton 2 minuti), tako da spremenite vrednosti na listu za izračun.
Takoj, ko pritisnete gumb za ponastavitev, bi se barva časovnika vrnila v belo, vrednost časovnika bi postala 0 in zapisal bo čas v stolpec G.
Opomba: Ker te datoteke vsebujejo makro, boste morali pred uporabo omogočiti makre. Ko odprete delovni zvezek, boste videli rumeni gumb - Omogoči vsebino. Kliknite nanjo, da omogočite makre.
Če s časovnikom ustvarite nekaj kul, to delite z mano.
