Odliczanie na pasku stanu za pomocą VBA w programie Microsoft Excel

Jeśli zastanawiasz się, jak mogę utworzyć timer w programie Excel?

Pytanie:

Na pasku stanu ma być wyświetlane odliczanie od 30 do 0 sekund.

Odpowiedź:
Wstaw następujący kod do standardowego modułu.

Sub CountDown() Dim intCounter As Integer Dim bln As Boolean bln = Application.DisplayStatusBar Application.DisplayStatusBar = True For intCounter = 30 do 1 Krok -1 Application.StatusBar = intCounter & " Sekundy… " Application.Czekaj teraz + TimeSerial(0, 0, 1) Dalej intCounter Application.StatusBar = False Application.DisplayStatusBar = bln End Sub W ten sposób możesz użyć paska stanu do wyświetlenia timera vba programu Excel.