Odpočítavanie v stavovom riadku pomocou VBA v programe Microsoft Excel

Ak vás zaujíma, ako môžem vytvoriť časovač v programe Excel

Otázka:

V stavovom riadku sa zobrazí odpočítavanie od 30 do 0 sekúnd.

Odpoveď:
Do štandardného modulu vložte nasledujúci kód.

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) Ďalší intCounter Application.StatusBar = False Application.DisplayStatusBar = bln End Sub Týmto spôsobom môžete v stavovom riadku zobraziť excel vba časovač.