Numărătoarea inversă în bara de stare utilizând VBA în Microsoft Excel

Dacă vă întrebați cum pot crea temporizator în Excel

Întrebare:

Un număr invers de la 30 la 0 secunde va fi afișat în bara de stare.

Răspuns:
Introduceți următorul cod în modulul standard.

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) Următorul intCounter Application.StatusBar = False Application.DisplayStatusBar = bln End Sub În acest fel puteți utiliza bara de stare pentru a afișa temporizatorul excel vba.