Отброяване в лентата на състоянието с помощта на VBA в Microsoft Excel

Ако се чудите как мога да създам таймер в Excel

Въпрос:

В лентата на състоянието трябва да се покаже обратно отброяване от 30 до 0 секунди.

Отговор:
Вмъкнете следния код в стандартния модул.

Sub CountDown () Dim intCounter As Integer Dim bln As Boolean bln = Application.DisplayStatusBar Application.DisplayStatusBar = True за intCounter = 30 до 1 стъпка -1 Application.StatusBar = intCounter & "Секунди …" Приложение. Изчакайте сега + TimeSerial (0, 0, 1) Следваща intCounter Application.StatusBar = False Application.DisplayStatusBar = bln End Sub По този начин можете да използвате лентата на състоянието за показване на Excel vba таймер.