Opprette en stoppeklokke i Excel (Basic + Toastmasters Style)

Mens jeg jobbet i IBM, var jeg en del av en ToastMasters International -klubb. Det er et sted hvor du kan forbedre kommunikasjon og lederegenskaper.

Et interessant avsnitt i de ukentlige møtene var improvisert tale. I denne delen av møtet fikk en person et tema, og han/hun måtte snakke om det i 2 minutter. Det var en utpekt person som pleide å tale talen og viser et grønt kort på 1 minutt, et gult kort på 1:30 minutter og et rødt kort etter 2 minutter.

Vanligvis brukes en smarttelefon eller en klokke til å time talen, og tiden det tar blir registrert manuelt på et papir.

Det hender ofte at personen glemmer å vise de fargede kortene eller noen ganger glemmer å registrere timingen for høyttalerne (skjedde med meg hele tiden). Med disse tingene i bakhodet har jeg laget en stoppeklokke i Excel som kan hjelpe tid og ta opp talene.

La oss først lære hvordan du lager en grunnleggende stoppeklokke i Excel.

Hvordan lage en stoppeklokke i Excel (grunnleggende)

Med en enkel/grunnleggende stoppeklokke i Excel mener jeg noe som ville starte når vi trykker på startknappen og stopper når vi trykker på stoppknappen.

Noe som vist nedenfor:

Last ned denne grunnleggende stoppeklokken i Excel

For å lage denne stoppeklokken i Excel, må du vite om applikasjon.På tide metode i VBA.

Application.OnTime -metode i VBA

Application.OnTime -metoden kan brukes når du vil kjøre en spesifisert kode i fremtiden. For eksempel kan du bruke den til å vise en meldingsboks for å minne deg om å stå opp og strekke bena etter 1 time eller ha medisiner etter 3 timer.

Syntaks for Application.OnTime Method:

Application.OnTime (Tidligste tid, Fremgangsmåte, Siste tid, Rute)

• Earlyliestime: Tidspunktet da du vil kjøre prosedyren.
• Prosedyre: Navnet på prosedyren som skal kjøres.
• LatestTime (valgfritt): Hvis en annen kode kjører og den angitte koden ikke kan kjøres på det angitte tidspunktet, kan du angi LatestTime som den skal vente på. For eksempel kan det være EarliestTime + 45 (som betyr at det vil vente i 45 sekunder før den andre prosedyren er fullført). Hvis prosedyren den ikke kunne kjøres etter 45 sekunder, blir den forlatt. Hvis du ikke spesifiserer dette, ville Excel vente til koden kan kjøres, og deretter kjøre den.
• Planlegg (valgfritt): Hvis den er satt til True, planlegger den en ny tidsprosedyre. Hvis False, avbryter den tidligere angitte prosedyren. Som standard er dette True.

Et eksempel på Application.OnTime -metode

Sub test () Application.OnTime Now + TimeValue ("00:00:05"), "ShowMessage" End Sub Sub ShowMessage () MsgBox ("HELLO") End Sub

Den første delen av makroen bruker Application.OnTime -metoden og kjører prosedyren ShowMessage (i doble anførselstegn) etter fem sekunder. ShowMessage -prosedyren viser ganske enkelt meldingsboksen med meldingen HELLO.

Du kan bruke dette formatet til å kjøre en hvilken som helst prosedyre etter en bestemt tid fra gjeldende tid.

Når vi bruker dette konseptet, la oss se på koden for å lage en enkel stoppeklokke i Excel.

Dim NextTick As Date, t As Date 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 () On Error Resume Next Application.OnTime EarliestTime: = NextTick, Procedure: = "StartTimer", Schedule: = False End Sub

Denne koden har 3 deler:

• Den første delen initialiserer gjeldende tid til variabelen t. Deretter kaller den en annen prosedyre StartTimer.
• StartTimer -prosedyren bruker en variabel NextTick som økes med 1 for hvert sekund som går. I regnearket har celle A1 kjører timeren slik vi har spesifisert NextTick - t -TimeValue (“00:00:01”), “hh: mm: ss”) for å være verdien i den cellen. Den kjører deretter StartTimer -koden igjen etter hvert sekund.
• StopTimer avbryter Application.Ontime -prosedyren ved å gjøre tidsplanverdien Falsk. Dette stopper timeren.

Her er hva du får med koden ovenfor (jeg har tilordnet makroene til start/stopp -knappene):

Dette er en grunnleggende stoppeklokke i Excel.

Jeg kaller det grunnleggende ettersom du ikke kan stoppe i midten og starte på nytt der du dro. Den starter alltid på nytt fra 1 når du trykker på startknappen.

Nå som du har lært det grunnleggende om Application.OnTime -metoden, kan du enkelt justere dette for å lage hva slags stoppeklokke du vil i Excel.

Stoppeklokke i Excel (For ToastMasters)

Jeg har brukt konseptet diskutert ovenfor og laget en stoppeklokke i Excel som kan brukes i Toastmasters -møtet (som jeg nevnte i begynnelsen av denne opplæringen).

Her er tingene du kan gjøre med denne stoppeklokken:

• Du kan stoppe timeren og deretter starte på nytt fra samme tid (innspilt til da).
• Du kan tilbakestille timeren. Dette setter tidtakerverdien til 0. Så snart du gjør det, registreres den totale tiden som er gått automatisk.
• Det endrer fargen på timerboksen, avhengig av stoppeklokkeverdien (dette kan være en god påminnelse om å vise de grønne/gule/røde kortene).

Slik ser det ut:

I denne demoen ovenfor har jeg angitt fargeendring hvert femte sekund. Du kan enkelt angi når du vil at fargen skal endres (det grønne kortet på 1 min., Det gule kortet på 1,5 minutter og det røde kortet på 2 minutter) ved å endre verdiene i beregningsarket.

Så snart du trykker på tilbakestillingsknappen, vil fargen på timeren gå tilbake til hvit, verdien til timeren vil bli 0, og den vil registrere tiden i kolonne G.

Merk: Siden disse filene inneholder makro, må du aktivere makroer før du bruker den. Når du åpner arbeidsboken, ser du en gul knapp - Aktiver innhold. Klikk på den for å aktivere makroer.

Hvis du lager noe kult med en timer, må du dele det med meg.