Countdown in der Statusleiste mit VBA in Microsoft Excel
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.