Wie erstelle ich eine Stoppuhr im Excel-Arbeitsblatt?
Wenn Ihr Arbeitsblatt eine Stoppuhr enthält, wissen Sie, wann ein Auftrag abgeschlossen werden muss. Wie können Sie eine Stoppuhr in einem Blatt mit einer Schaltfläche zum Starten, Stoppen und Zurücksetzen erstellen, wie im folgenden Screenshot gezeigt? Wenn Sie auf die Schaltfläche Start klicken, wird die Zeit gestartet. Wenn Sie auf die Schaltfläche Stopp klicken, wird die Zeit gestoppt, und die Schaltfläche Zurücksetzen kann Ihnen beim Zurücksetzen der Zeit helfen. In diesem Artikel werde ich darüber sprechen, wie Sie eine einfache und praktische Stoppuhr in Excel erstellen.
Erstellen Sie eine Stoppuhr mit drei Tasten mithilfe von VBA-Code
Erstellen Sie eine Stoppuhr mit drei Tasten mithilfe von VBA-Code
Führen Sie die folgenden Schritte nacheinander aus, um eine Stoppuhr mit den drei Schaltflächen Start, Stopp und Zurücksetzen zu erstellen.
Fügen Sie zunächst drei Befehlsschaltflächen ein.
1. Klicken Sie Entwickler:in / Unternehmen > Insert > Befehlsschaltfläche, siehe Screenshot:
2. Ziehen Sie dann die Maus, um eine Schaltfläche zu zeichnen. Nach dem Einfügen der Schaltfläche können Sie die Beschriftung der Schaltfläche ändern. Klicken Sie dazu Entwickler:in / Unternehmen > FerienhäuserIn der Ferienhäuser Dialog, geben Sie die neue Beschriftung ein “Startseite”Für diese Schaltfläche im Textfeld neben dem Bildunterschrift, siehe Screenshots:
3. Wiederholen Sie die beiden obigen Schritte, um die beiden anderen Schaltflächen einzufügen und als „Stoppen" und "Zurücksetzen”, Siehe Screenshot:
4. Nach dem Einfügen der Schaltflächen sollten Sie den Entwurfsmodus durch Klicken verlassen Entwickler:in / Unternehmen > Entwurfsmodus.
Zweitens erstellen Sie einen VBA-Code.
5. Klicken Sie dann mit der rechten Maustaste auf die aktuelle Arbeitsblattregisterkarte und wählen Sie Code anzeigen, in der herausgesprungen Microsoft Visual Basic für Applikationen Bitte kopieren Sie den folgenden Code und fügen Sie ihn in das Fenster ein Blattcode:
VBA-Code: Stoppuhr erstellen:
Public StopIt As Boolean
Public ResetIt As Boolean
Public LastTime
Private Sub CommandButton1_Click()
Dim StartTime, FinishTime, TotalTime, PauseTime
StopIt = False
ResetIt = False
If Range("C2") = 0 Then
StartTime = Timer
PauseTime = 0
LastTime = 0
Else
StartTime = 0
PauseTime = Timer
End If
StartIt:
DoEvents
If StopIt = True Then
LastTime = TotalTime
Exit Sub
Else
FinishTime = Timer
TotalTime = FinishTime - StartTime + LastTime - PauseTime
TTime = TotalTime * 100
HM = TTime Mod 100
TTime = TTime \ 100
hh = TTime \ 3600
TTime = TTime Mod 3600
MM = TTime \ 60
SS = TTime Mod 60
Range("C2").Value = Format(hh, "00") & ":" & Format(MM, "00") & ":" & Format(SS, "00") & "." & Format(HM, "00")
If ResetIt = True Then
Range("C2") = Format(0, "00") & ":" & Format(0, "00") & ":" & Format(0, "00") & "." & Format(0, "00")
LastTime = 0
PauseTime = 0
End
End If
GoTo StartIt
End If
End Sub
Private Sub CommandButton2_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
StopIt = True
End Sub
Private Sub CommandButton3_Click()
Range("C2").Value = Format(0, "00") & ":" & Format(0, "00") & ":" & Format(0, "00") & "." & Format(0, "00")
LastTime = 0
ResetIt = True
End Sub
Note: Im obigen Code, C2 ist die Zelle, in die die Stoppuhrzeit eingefügt wird, und die Befehlsschaltfläche1, Befehlsschaltfläche2, Befehlsschaltfläche3 Sind die Schaltflächennamen, können Sie den genauen Schaltflächennamen aus dem anzeigen Namensfeld, siehe Screenshot:
Drittens formatieren Sie die Stoppuhr-Zeitzelle.
6. Dann sollten Sie die Zeitzelle als formatieren Text Format, und Sie können die Zellengröße, Schriftart, Schriftfarbe, Hintergrund usw. nach Bedarf ändern, siehe Screenshot:
7. Nachdem Sie die obigen Schritte ausgeführt haben, klicken Sie von nun an Startseite Klicken Sie auf die Schaltfläche, die Uhrzeit wird jetzt gestartet, und klicken Sie auf Stoppen Taste, es wird die Zeit anhalten, die Zurücksetzen Schaltfläche setzt die Zeit zurück, siehe Screenshot:
Demo: Erstellen Sie eine Stoppuhr mit drei Tasten mithilfe von VBA-Code
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor. Kutools für Excel bietet über 300 erweiterte Funktionen, um die Produktivität zu steigern und Zeit zu sparen. Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen ...
Office Tab Bringt die Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich
- Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
- Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!