În timp ce lucram la IBM, am făcut parte dintr-un club ToastMasters International. Este un loc în care vă puteți îmbunătăți abilitățile de comunicare și leadership.
O secțiune interesantă în ședințele săptămânale a fost vorbirea improvizată. În această parte a ședinței, o persoană a primit un subiect și a trebuit să vorbească despre el timp de 2 minute. A existat o persoană desemnată care obișnuia să cronometreze discursul și arată un cartonaș verde la 1 minut, un cartonaș galben la 1:30 minute și un cartonaș roșu după 2 minute.
De obicei, un smartphone sau un ceas este folosit pentru a cronometra discursul, iar timpul luat este înregistrat manual pe o hârtie.
Se întâmplă adesea ca persoana să uite să arate cărțile colorate sau uneori să uite să înregistreze timpul pentru difuzoare (mi s-a întâmplat tot timpul). Având în vedere aceste lucruri, am creat un cronometru în Excel, care să ajute timpul și să înregistreze discursurile.
Să învățăm mai întâi cum să creăm un cronometru de bază în Excel.
Cum se creează un cronometru în Excel (de bază)
Printr-un cronometru simplu / de bază în Excel, mă refer la ceva care ar începe atunci când apăsăm butonul Start și se oprește când apăsăm butonul Stop.
Ceva așa cum se arată mai jos:
Descărcați acest cronometru de bază în Excel
Pentru a crea acest cronometru în Excel, trebuie să știți despre Cerere.La timp metoda în VBA.
Application.OnTime Method în VBA
Application.OnTime metoda poate fi utilizată atunci când doriți să rulați un cod specificat în viitor. De exemplu, îl puteți folosi pentru a afișa o casetă de mesaje pentru a vă reaminti să vă ridicați și să vă întindeți picioarele după 1 oră sau să luați medicamente după 3 ore.
Sintaxa aplicației. Metoda OnTime:
Application.OnTime (EarliestTime, Procedură, LatestTime, Programa)
- EarliestTime: Ora în care doriți să rulați procedura.
- Procedură: numele procedurii care trebuie executată.
- LatestTime (opțional): în cazul în care se execută un alt cod și codul specificat nu poate fi rulat la ora specificată, puteți specifica LatestTime pentru care ar trebui să aștepte. De exemplu, ar putea fi EarliestTime + 45 (ceea ce înseamnă că va aștepta 45 de secunde pentru ca cealaltă procedură să fie finalizată). Dacă chiar și după 45 de secunde procedura nu poate fi executată, aceasta este abandonată. Dacă nu specificați acest lucru, Excel ar aștepta până când codul poate fi rulat, apoi îl va rula.
- Program (opțional): dacă este setat la True, programează o nouă procedură de timp. Dacă este fals, atunci anulează procedura stabilită anterior. În mod implicit, acesta este adevărat.
Un exemplu de metodă Application.OnTime
Sub test () Application.OnTime Now + TimeValue ("00:00:05"), "ShowMessage" End Sub Sub ShowMessage () MsgBox ("HELLO") End Sub
Prima parte a macro utilizează metoda Application.OnTime și rulează procedura ShowMessage (în ghilimele duble) după cinci secunde. Procedura ShowMessage arată pur și simplu caseta de mesaj cu promptul BUNĂ.
Puteți utiliza acest format pentru a rula orice procedură după un timp specificat de la ora curentă.
Acum, folosind acest concept, să analizăm codul pentru crearea unui cronometru simplu în Excel.
Dim NextTick Ca dată, t Ca dată 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 StopTimer () La eroare Reluați următoarea aplicație.OnTime EarliestTime: = NextTick, Procedură: = „StartTimer”, Programare: = Subsf
Acest cod are 3 părți:
- Prima parte inițializează ora curentă la variabila t. Apoi, apelează o altă procedură StartTimer.
- Procedura StartTimer utilizează o variabilă NextTick care se incrementează cu 1 cu fiecare secundă care trece. În foaia de lucru, celula A1 are temporizatorul de funcționare așa cum am specificat NextTick - t -TimeValue („00:00:01”), „hh: mm: ss”) pentru a fi valoarea din acea celulă. Apoi rulează din nou codul StartTimer după fiecare secundă.
- StopTimer anulează procedura Application.Ontime făcând valoarea programului False. Aceasta oprește cronometrul.
Iată ce veți obține cu codul de mai sus (am atribuit macrocomenzile butoanelor de pornire / oprire):
Acesta este un cronometru de bază în Excel.
Îi spun de bază, deoarece nu vă puteți opri în mijloc și reporniți de unde ați plecat. Se va reporni întotdeauna de la 1 când apăsați butonul Start.
Acum că ați învățat elementele de bază ale metodei Application.OnTime, puteți modifica cu ușurință acest lucru pentru a crea orice tip de cronometru doriți în Excel.
Cronometru în Excel (pentru ToastMasters)
Am folosit conceptul discutat mai sus și am creat un cronometru în Excel care poate fi utilizat în cadrul întâlnirii Toastmasters (pe care l-am menționat la începutul acestui tutorial).
Iată ce se poate face folosind acest cronometru:
- Puteți opri cronometrul și apoi reporniți din nou din același timp (înregistrat până atunci).
- Puteți reseta temporizatorul. Aceasta setează valoarea temporizatorului la 0. De îndată ce faceți acest lucru, înregistrează automat timpul total scurs.
- Schimbă culoarea casetei de temporizare, în funcție de valoarea cronometrului (acesta ar putea fi un bun memento pentru a afișa cărțile verzi / galbene / roșii).
Iată cum arată:
În această demonstrație de mai sus, am setat schimbarea culorii la fiecare cinci secunde. Puteți specifica cu ușurință când doriți să se schimbe culoarea (cartonașul verde la 1 minut, cartonașul galben la 1,5 minute și un cartonaș roșu la 2 minute) schimbând valorile din foaia de calcul.
De îndată ce apăsați butonul de resetare, culoarea temporizatorului va reveni la alb, valoarea temporizatorului va deveni 0 și va înregistra ora în coloana G.
Notă: Deoarece aceste fișiere conțin macro, va trebui să activați macrocomenzile înainte de ao utiliza. Când deschideți registrul de lucru, veți vedea un buton galben - Activați conținutul. Faceți clic pe acesta pentru a activa macrocomenzile.
Dacă creați ceva interesant folosind un temporizator, împărtășiți-l cu mine.
