Aftellen in de statusbalk met VBA in Microsoft Excel

Anonim

Als je je afvraagt ​​hoe ik een timer kan maken in Excel

Vraag:

In de statusbalk moet een aftelling van 30 naar 0 seconden worden weergegeven.

Antwoord geven:
Voer de volgende code in de standaardmodule in.

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) Volgende intCounter Application.StatusBar = False Application.DisplayStatusBar = bln End Sub Op deze manier kunt u de statusbalk gebruiken om Excel vba-timer weer te geven.