Wie füge ich einen Countdown-Timer in Excel ein?
Wenn Sie einige Daten in einer begrenzten Zeit verarbeiten möchten, können Sie einen Countdown-Timer in Ihr Datenarbeitsblatt einfügen. Wenn Sie den Countdown abgeschlossen haben, wird ein Dialogfeld angezeigt, das Sie daran erinnert. Hier werde ich Ihnen einen VBA-Code zum Einfügen eines Countdown-Timers in Excel mitteilen.
Countdown-Timer in Excel einfügen
Countdown-Timer in Excel einfügen
In Excel kann die Countdown-Zeit nicht gezählt werden. Sie können jedoch den folgenden VBA-Code kopieren, um das Countdown der Zeit zu erleichtern.
1. Wählen Sie eine Zelle aus und formatieren Sie sie als Zeitformatierung, indem Sie mit der rechten Maustaste auf die Zelle klicken und auswählen Format CellsKlicken Sie dann im Dialogfeld auf Uhrzeit und Auswählen 13:30:55 der Typ Liste, zuletzt klicken OK um diesen Dialog zu verlassen. Siehe Screenshot:
2. Geben Sie die Zeit, die Sie herunterzählen möchten, in die Formatierungszelle ein. Siehe Screenshot:
3. Drücken Sie Alt + F11 Schlüssel zum Öffnen Microsoft Visual Basic für Applikationen Fenster.
4 Klicken Insert > Modul und kopieren Sie dann die folgende VBA in das neue Fenster.
VBA: Countdown-Timer.
Dim gCount As Date
'Updateby20140925
Sub Timer()
gCount = Now + TimeValue("00:00:01")
Application.OnTime gCount, "ResetTime"
End Sub
Sub ResetTime()
Dim xRng As Range
Set xRng = Application.ActiveSheet.Range("E1")
xRng.Value = xRng.Value - TimeSerial(0, 0, 1)
If xRng.Value <= 0 Then
MsgBox "Countdown complete."
Exit Sub
End If
Call Timer
End Sub
Tipp: E1 im obigen Code gibt die Zeitzelle an, die Sie in Schritt 2 eingeben.
5 Klicken Führen Sie Taste oder drücken F5 um den Countdown-Timer zu starten. Jetzt wird die Zeit heruntergezählt.
6. Und wenn der Countdown beendet ist, erinnert Sie ein ausgeblendeter Dialog daran.
Tipp: Sie können den Countdown während der Ausführung nur stoppen, wenn Sie die Arbeitsmappe schließen.
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!