Odpočítávání ve stavovém řádku pomocí VBA v aplikaci Microsoft Excel

Pokud vás zajímá, jak mohu vytvořit časovač v aplikaci Excel

Otázka:

Na stavovém řádku se zobrazí odpočítávání od 30 do 0 sekund.

Odpovědět:
Vložte následující kód do standardního modulu.

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) Další intCounter Application.StatusBar = False Application.DisplayStatusBar = bln End Sub Tímto způsobem můžete pomocí stavového řádku zobrazit excel vba časovač.