Mens jeg arbejdede hos IBM, var jeg en del af en ToastMasters International -klub. Det er et sted, hvor du kan forbedre dine kommunikation og lederevner.
Et interessant afsnit i de ugentlige møder var improviseret tale. I denne del af mødet fik en person et emne, og han/hun skulle tale om det i 2 minutter. Der var en udpeget person, der plejede at tale talen og viser et grønt kort på 1 minut, et gult kort efter 1:30 minutter og et rødt kort efter 2 minutter.
Normalt bruges en smartphone eller et ur til at timere talen, og den tid det tager registreres manuelt på et papir.
Det sker ofte, at personen glemmer at vise de farvede kort eller nogle gange glemmer at registrere timingen for højttalerne (skete med mig hele tiden). Med disse ting i tankerne har jeg oprettet et stopur i Excel, der ville hjælpe tid og registrere talerne.
Lad os først lære at oprette et grundlæggende stopur i Excel.
Sådan oprettes et stopur i Excel (grundlæggende)
Med et simpelt/grundlæggende stopur i Excel mener jeg noget, der ville starte, når vi trykker på startknappen og stopper, når vi trykker på stopknappen.
Noget som vist herunder:
Download dette grundlæggende stopur i Excel
For at oprette dette stopur i Excel skal du vide om Ansøgning.En gang metode i VBA.
Application.OnTime -metode i VBA
Application.OnTime -metoden kan bruges, når du vil køre en bestemt kode i fremtiden. For eksempel kan du bruge den til at vise en meddelelsesboks for at minde dig om at stå op og strække benene efter 1 time eller have medicin efter 3 timer.
Syntaks for Application.OnTime Method:
Application.OnTime (Tidligste tid, Procedure, Seneste tid, Tidsplan)
- Earlyliest Time: Det tidspunkt, hvor du vil køre proceduren.
- Procedure: Navnet på den procedure, der skal køres.
- LatestTime (valgfrit): Hvis en anden kode kører, og din angivne kode ikke kan køres på det angivne tidspunkt, kan du angive den seneste time, som den skal vente på. For eksempel kan det være EarliestTime + 45 (hvilket betyder, at det vil vente i 45 sekunder på, at den anden procedure er fuldført). Hvis selv efter 45 sekunder proceduren den ikke kunne køre, bliver den opgivet. Hvis du ikke angiver dette, ville Excel vente, indtil koden kan køres, og derefter køre den.
- Planlæg (valgfrit): Hvis den er indstillet til Sand, planlægger den en ny tidsprocedure. Hvis Falsk, annullerer den den tidligere indstillede procedure. Som standard er dette sandt.
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 del af makroen anvender Application.OnTime -metoden og kører proceduren ShowMessage (i dobbelte anførselstegn) efter fem sekunder. ShowMessage -proceduren viser ganske enkelt meddelelsesboksen med prompten HELLO.
Du kan bruge dette format til at køre enhver procedure efter en bestemt tid fra det aktuelle tidspunkt.
Nu ved hjælp af dette koncept, lad os se på koden til oprettelse af et simpelt stopur 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 kode har 3 dele:
- Den første del initialiserer den aktuelle tid til variablen t. Derefter kalder det en anden procedure StartTimer.
- StartTimer -proceduren bruger en variabel NextTick, der øges med 1 for hvert sekund, der går. I regnearket har celle A1 den kørende timer, som vi har angivet NextTick - t -TimeValue ("00:00:01"), "hh: mm: ss") til at være værdien i den celle. Den kører derefter StartTimer -koden igen efter hvert sekund.
- StopTimer annullerer Application.Ontime -proceduren ved at gøre tidsplanværdien Falsk. Dette stopper timeren.
Her er hvad du får med ovenstående kode (jeg har tildelt makroerne til start/stop -knapperne):
Dette er et grundlæggende stopur i Excel.
Jeg kalder det grundlæggende, da du ikke kan stoppe i midten og genstarte, hvor du forlod. Det genstarter altid fra 1, når du trykker på startknappen.
Nu hvor du har lært det grundlæggende i Application.OnTime -metoden, kan du let justere dette for at oprette den slags stopur, du vil have i Excel.
Stopur i Excel (til ToastMasters)
Jeg har brugt konceptet diskuteret ovenfor og oprettet et stopur i Excel, der kan bruges i Toastmasters -mødet (som jeg nævnte i begyndelsen af denne vejledning).
Her er de ting, der kan gøres ved hjælp af dette stopur:
- Du kan stoppe timeren og derefter genstarte igen fra samme tid (optaget indtil da).
- Du kan nulstille timeren. Dette indstiller timerværdien til 0. Så snart du gør det, registreres det automatisk den samlede tid, der er gået.
- Det ændrer timeboksens farve afhængigt af stopurets værdi (dette kan være en god påmindelse om at vise de grønne/gule/røde kort).
Sådan ser det ud:
I denne demo ovenfor har jeg indstillet farveændringen hvert femte sekund. Du kan nemt angive, hvornår du vil have farven til at ændre sig (det grønne kort ved 1 min., Gult kort efter 1,5 minutter og et rødt kort efter 2 minutter) ved at ændre værdierne i beregningsarket.
Så snart du trykker på nulstillingsknappen, går timerens farve tilbage til hvid, værdien af timeren bliver 0, og den registrerer tiden i kolonne G.
Bemærk: Da disse filer indeholder makro, skal du aktivere makroer, før du kan bruge den. Når du åbner projektmappen, ser du en gul knap - Aktiver indhold. Klik på den for at aktivere makroer.
Hvis du opretter noget fedt ved hjælp af en timer, må du dele det med mig.
