Erstellen einer Stoppuhr in Excel (Basic + Toastmasters Style)

Während meiner Arbeit bei IBM war ich Teil eines ToastMasters International Clubs. Es ist ein Ort, an dem Sie Ihre Kommunikations- und Führungsfähigkeiten verbessern können.

Ein interessanter Abschnitt in den wöchentlichen Treffen war das spontane Sprechen. In diesem Teil des Treffens wurde einer Person ein Thema vorgegeben und sie/er musste 2 Minuten lang darüber sprechen. Es gab eine bestimmte Person, die die Zeit der Rede hielt und nach 1 Minute eine grüne Karte, nach 1:30 Minuten eine gelbe Karte und nach 2 Minuten eine rote Karte zeigt.

Üblicherweise wird die Redezeit mit einem Smartphone oder einer Uhr gemessen und die Zeit wird manuell auf Papier festgehalten.

Es kommt oft vor, dass die Person vergisst, die farbigen Karten zu zeigen oder manchmal vergisst, das Timing für die Redner aufzuzeichnen (ist bei mir die ganze Zeit passiert). Mit diesen Dingen im Hinterkopf habe ich eine Stoppuhr in Excel erstellt, die die Zeit und die Aufzeichnung der Reden unterstützen würde.

Lassen Sie uns zunächst lernen, wie Sie eine einfache Stoppuhr in Excel erstellen.

So erstellen Sie eine Stoppuhr in Excel (Basic)

Mit einer einfachen/einfachen Stoppuhr in Excel meine ich etwas, das startet, wenn wir die Starttaste drücken, und stoppt, wenn wir die Stopptaste drücken.

Etwas wie unten gezeigt:

Laden Sie diese einfache Stoppuhr in Excel herunter

Um diese Stoppuhr in Excel zu erstellen, müssen Sie über die Anwendung.Pünktlich Methode in VBA.

Application.OnTime-Methode in VBA

Die Application.OnTime-Methode kann verwendet werden, wenn Sie einen bestimmten Code in Zukunft ausführen möchten. Sie können damit beispielsweise ein Meldungsfeld anzeigen, das Sie daran erinnert, nach 1 Stunde aufzustehen und die Beine zu vertreten oder nach 3 Stunden Medikamente einzunehmen.

Syntax der Application.OnTime-Methode:

Anwendung.OnTime(Frühester Zeitpunkt, Verfahren, Spätester Zeitpunkt, Zeitplan)

• EarlyiestTime: Der Zeitpunkt, zu dem Sie die Prozedur ausführen möchten.
• Prozedur: Der Name der Prozedur, die ausgeführt werden soll.
• LatestTime (optional): Falls ein anderer Code ausgeführt wird und Ihr angegebener Code zur angegebenen Zeit nicht ausgeführt werden kann, können Sie die LatestTime angeben, auf die er warten soll. Zum Beispiel könnte es EarlyiestTime + 45 sein (was bedeutet, dass 45 Sekunden gewartet wird, bis der andere Vorgang abgeschlossen ist). Wenn das Verfahren auch nach 45 Sekunden nicht ausgeführt werden kann, wird es abgebrochen. Wenn Sie dies nicht angeben, wartet Excel, bis der Code ausgeführt werden kann, und führt ihn dann aus.
• Zeitplan (Optional): Wenn auf True gesetzt, wird ein neues Zeitverfahren geplant. Bei False wird die zuvor festgelegte Prozedur abgebrochen. Standardmäßig ist dies True.

Ein Beispiel für die Methode Application.OnTime

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

Der erste Teil des Makros verwendet die Methode Application.OnTime und führt nach fünf Sekunden die Prozedur ShowMessage (in doppelten Anführungszeichen) aus. Die ShowMessage-Prozedur zeigt einfach das Meldungsfeld mit der Aufforderung HALLO an.

Sie können dieses Format verwenden, um jede Prozedur nach einer bestimmten Zeit ab der aktuellen Zeit auszuführen.

Schauen wir uns nun mit diesem Konzept den Code zum Erstellen einer einfachen Stoppuhr in Excel an.

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

Dieser Code besteht aus 3 Teilen:

• Der erste Teil initialisiert die aktuelle Zeit mit der Variablen t. Dann ruft es eine andere Prozedur StartTimer auf.
• Die StartTimer-Prozedur verwendet eine Variable NextTick, die mit jeder vergehenden Sekunde um 1 erhöht wird. Im Arbeitsblatt hat Zelle A1 den laufenden Timer, da wir NextTick - t -TimeValue("00:00:01"), "hh:mm:ss") als Wert in dieser Zelle angegeben haben. Es führt dann den StartTimer-Code nach jeder Sekunde erneut aus.
• StopTimer bricht die Application.Ontime-Prozedur ab, indem der Zeitplanwert auf False gesetzt wird. Dies stoppt den Timer.

Folgendes erhalten Sie mit dem obigen Code (ich habe die Makros den Start-/Stopp-Tasten zugewiesen):

Dies ist eine grundlegende Stoppuhr in Excel.

Ich nenne es einfach, da man nicht mittendrin aufhören und dort neu starten kann, wo man aufgehört hat. Es wird immer bei 1 neu gestartet, wenn Sie die Starttaste drücken.

Nachdem Sie nun die Grundlagen der Application.OnTime-Methode kennengelernt haben, können Sie diese ganz einfach anpassen, um die gewünschte Art von Stoppuhr in Excel zu erstellen.

Stoppuhr in Excel (für ToastMasters)

Ich habe das oben besprochene Konzept verwendet und eine Stoppuhr in Excel erstellt, die im Toastmasters-Meeting verwendet werden kann (was ich zu Beginn dieses Tutorials erwähnt habe).

Mit dieser Stoppuhr können Sie Folgendes tun:

• Sie können den Timer stoppen und dann zur gleichen Zeit (bis dahin aufgezeichnet) erneut starten.
• Sie können den Timer zurücksetzen. Dadurch wird der Timerwert auf 0 gesetzt. Sobald Sie dies tun, zeichnet er automatisch die verstrichene Gesamtzeit auf.
• Es ändert die Farbe des Timer-Felds je nach Stoppuhrwert (dies könnte eine gute Erinnerung sein, um die grünen/gelben/roten Karten anzuzeigen).

So sieht es aus:

In dieser obigen Demo habe ich den Farbwechsel alle fünf Sekunden eingestellt. Sie können ganz einfach angeben, wann die Farbe geändert werden soll (die grüne Karte bei 1 Minute, die gelbe Karte bei 1,5 Minuten und eine rote Karte bei 2 Minuten), indem Sie die Werte im Berechnungsblatt ändern.

Sobald Sie die Reset-Taste drücken, wird die Farbe des Timers wieder weiß, der Wert des Timers wird 0 und die Zeit wird in Spalte G aufgezeichnet.

Hinweis: Da diese Dateien Makros enthalten, müssen Sie Makros aktivieren, bevor Sie sie verwenden. Wenn Sie die Arbeitsmappe öffnen, sehen Sie eine gelbe Schaltfläche – Inhalt aktivieren. Klicken Sie darauf, um Makros zu aktivieren.

Wenn Sie mit einem Timer etwas Cooles erstellen, teilen Sie es mit mir.