Odštevanje v vrstici stanja z uporabo VBA v programu Microsoft Excel

Če se sprašujete, kako lahko ustvarim časovnik v Excelu

Vprašanje:

V vrstici stanja se prikaže odštevanje od 30 do 0 sekund.

Odgovor:
V standardni modul vstavite naslednjo kodo.

Sub CountDown () Dim intCounter As Integer Dim bln As Boolean bln = Application.DisplayStatusBar Application.DisplayStatusBar = True Za intCounter = 30 do 1 korak -1 Application.StatusBar = intCounter & "Seconds …" Application. Počakajte zdaj + TimeSerial (0, 0, 1) Naslednji intCounter Application.StatusBar = False Application.DisplayStatusBar = bln End Sub Na ta način lahko v vrstici stanja prikažete excel vba timer.