Wenn Sie sich fragen, wie kann ich in Excel erstellen? Frage:

In der Statusleiste soll ein Countdown von 30 auf 0 Sekunden angezeigt werden.

Antwort:

Fügen Sie den folgenden Code in das Standardmodul ein.

Sub CountDown()

Dim intCounter As Integer

Dim bln As Boolean

bln = Application.DisplayStatusBar

Application.DisplayStatusBar = True

For intCounter = 30 To 1 Step -1

Application.StatusBar = intCounter & " Seconds..."

Application.Wait Now + TimeSerial(0, 0, 1)

Next intCounter

Application.StatusBar = False

Application.DisplayStatusBar = bln

End Sub

In this way you can use status bar to display excel vba timer.