När jag arbetade på IBM var jag en del av en ToastMasters International -klubb. Det är en plats där du kan förbättra din kommunikation och ledarskap.
Ett intressant avsnitt i veckomötena var improviserat tal. I denna del av mötet fick en person ett ämne och han/hon fick tala om det i 2 minuter. Det var en utsedd person som brukade tida talet och visar ett grönt kort vid 1 minut, ett gult kort vid 1:30 minuter och ett rött kort efter 2 minuter.
Vanligtvis används en smartphone eller en klocka för att tajma talet, och den tid som tas registreras manuellt på ett papper.
Det händer ofta att personen glömmer att visa de färgade korten eller ibland glömmer att spela in tidpunkten för högtalarna (hände med mig hela tiden). Med dessa saker i åtanke har jag skapat ett stoppur i Excel som skulle hjälpa tid och spela in talen.
Låt oss först lära oss hur man skapar ett grundläggande stoppur i Excel.
Hur man skapar ett stoppur i Excel (Basic)
Med ett enkelt/grundläggande stoppur i Excel menar jag något som skulle börja när vi trycker på startknappen och slutar när vi trycker på stoppknappen.
Något som visas nedan:
Ladda ner denna grundläggande stoppur i Excel
För att skapa detta stoppur i Excel måste du veta om Ansökan.I tid metod i VBA.
Application.OnTime -metod i VBA
Application.OnTime -metoden kan användas när du vill köra en angiven kod i framtiden. Till exempel kan du använda den för att visa en meddelanderuta som påminner dig om att gå upp och sträcka på benen efter 1 timme eller ta mediciner efter 3 timmar.
Syntax för Application.OnTime -metod:
Application.OnTime (Tidigaste tid, Procedur, Senaste tid, Schema)
- Earlyliestime: Tidpunkten då du vill köra proceduren.
- Förfarande: Namnet på proceduren som ska köras.
- LatestTime (valfritt): Om en annan kod körs och din angivna kod inte kan köras vid den angivna tiden kan du ange den senaste tid som den ska vänta på. Det kan till exempel vara EarliestTime + 45 (vilket betyder att det kommer att vänta i 45 sekunder för att den andra proceduren ska bli klar). Om proceduren inte kunde köras efter 45 sekunder, överges den. Om du inte anger detta skulle Excel vänta tills koden kan köras och sedan köra den.
- Schema (valfritt): Om den är inställd på True, schemaläggs den nya tidsproceduren. Om False, avbryter den tidigare inställda proceduren. Som standard är detta sant.
Ett exempel på Application.OnTime -metod
Deltest () Application.OnTime Now + TimeValue ("00:00:05"), "ShowMessage" End Sub Sub ShowMessage () MsgBox ("HELLO") End Sub
Den första delen av makrot använder metoden Application.OnTime och kör proceduren ShowMessage (i dubbla citattecken) efter fem sekunder. ShowMessage -proceduren visar helt enkelt meddelanderutan med uppmaningen HALLO.
Du kan använda detta format för att köra alla procedurer efter en viss tid från den aktuella tiden.
Nu använder vi detta koncept, låt oss titta på koden för att skapa ett enkelt stoppur 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 () Vid fel Återuppta nästa Application.OnTime EarliestTime: = NextTick, Procedure: = "StartTimer", Schema: = False End Sub
Denna kod har tre delar:
- Den första delen initierar den aktuella tiden till variabeln t. Sedan kallar det en annan procedur StartTimer.
- StartTimer -proceduren använder en variabel NextTick som ökas med 1 för varje sekund som går. I kalkylbladet har cell A1 körtimern som vi har angett NextTick - t -TimeValue (“00:00:01”), “hh: mm: ss”) som värdet i den cellen. Den kör sedan StartTimer -koden igen efter varje sekund.
- StopTimer avbryter Application.Ontime -proceduren genom att göra schemaläggningsvärdet Falskt. Detta stoppar timern.
Här är vad du får med ovanstående kod (jag har tilldelat makron till start/stopp -knapparna):
Detta är en grundläggande stoppur i Excel.
Jag kallar det grundläggande eftersom du inte kan stanna i mitten och starta om där du lämnade. Den startar alltid om från 1 när du trycker på startknappen.
Nu när du har lärt dig grunderna i Application.OnTime -metoden kan du enkelt justera detta för att skapa vilken typ av stoppur du vill i Excel.
Stoppur i Excel (för ToastMasters)
Jag har använt konceptet som diskuterats ovan och skapat ett stoppur i Excel som kan användas i Toastmasters -mötet (som jag nämnde i början av denna handledning).
Här är de saker som kan göras med denna stoppur:
- Du kan stoppa timern och sedan starta om igen från samma tid (inspelad tills dess).
- Du kan återställa timern. Detta ställer in timervärdet till 0. Så snart du gör det registreras automatiskt den totala tiden som har gått.
- Det ändrar färgen på timerboxen, beroende på stoppurets värde (detta kan vara en bra påminnelse om att visa de gröna/gula/röda korten).
Så här ser det ut:
I denna demo ovan har jag ställt in färgbytet var femte sekund. Du kan enkelt ange när du vill att färgen ska ändras (det gröna kortet vid 1 minut, gult kort efter 1,5 minuter och ett rött kort på 2 minuter) genom att ändra värdena i kalkylbladet.
Så snart du trycker på återställningsknappen, går färgen på timern tillbaka till vitt, timarens värde blir 0 och det registrerar tiden i kolumn G.
Obs! Eftersom dessa filer innehåller makro måste du aktivera makron innan du använder dem. När du öppnar arbetsboken ser du en gul knapp - Aktivera innehåll. Klicka på den för att aktivera makron.
Om du skapar något coolt med en timer, dela det med mig.
