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 > ImmobilienIn der Immobilien Dialog, geben Sie die neue Beschriftung ein “Start”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 Modul:
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
Hinweis: 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 Start 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
Die besten Tools für die Office-Produktivität
Kutools for Excel löst die meisten Ihrer Probleme und erhöht Ihre Produktivität um 80%
- Wiederverwendung: Schnell einfügen komplexe Formeln, Diagramme und alles, was du vorher benutzt hast; Zellen verschlüsseln mit Passwort; Mailingliste erstellen und E-Mails senden ...
- Super Formelriegel (leicht mehrere Textzeilen und Formeln bearbeiten); Layout lesen (leichtes Lesen und Bearbeiten einer großen Anzahl von Zellen); In gefilterten Bereich einfügen...
- Zellen / Zeilen / Spalten zusammenführen ohne Daten zu verlieren; Inhalt geteilter Zellen; Kombinieren Sie doppelte Zeilen / Spalten... doppelte Zellen verhindern; Bereiche vergleichen...
- Wählen Sie Duplizieren oder Eindeutig Reihen; Wählen Sie Leere Zeilen (alle Zellen sind leer); Super Find und Fuzzy Find in vielen Arbeitsmappen; Zufällige Auswahl ...
- Exakte Kopie Mehrere Zellen ohne Änderung der Formelreferenz; Referenzen automatisch erstellen zu mehreren Blättern; Aufzählungszeichen einfügen, Kontrollkästchen und mehr ...
- Text extrahieren, Text hinzufügen, Nach Position entfernen, Leerzeichen entfernen;; Paging-Zwischensummen erstellen und drucken; Inhalt und Kommentare zwischen Zellen konvertieren...
- Superfilter (Speichern und Anwenden von Filterschemata auf andere Blätter); Erweiterte Sortierung nach Monat / Woche / Tag, Häufigkeit und mehr; Spezialfilter fett, kursiv ...
- Kombinieren Sie Arbeitsmappen und Arbeitsblätter;; Tabellen basierend auf Schlüsselspalten zusammenführen; Daten in mehrere Blätter aufteilen; Batch-Konvertierung von xls, xlsx und PDF...
- Mehr als 300 leistungsstarke Funktionen. Unterstützt Office / Excel 2007-2021 und 365. Unterstützt alle Sprachen. Einfache Bereitstellung in Ihrem Unternehmen oder Ihrer Organisation. 30-tägige kostenlose Testversion mit allen Funktionen. 60 Tage Geld-zurück-Garantie.
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!
