Odbrojavanje u statusnoj traci pomoću VBA u programu Microsoft Excel

Ako se pitate kako mogu izraditi mjerač vremena u Excelu

Pitanje:

Odbrojavanje od 30 do 0 sekundi prikazat će se na statusnoj traci.

Odgovor:
Umetnite sljedeći kôd u standardni modul.

Sub CountDown () Dim intCounter As Integer Dim bln Kao Boolean bln = Application.DisplayStatusBar Application.DisplayStatusBar = True Za intCounter = 30 do 1 korak -1 Application.StatusBar = intCounter & "Sekunde …" Aplikacija. Čekajte sada + TimeSerial (0, 0, 1) Sljedeći intCounter Application.StatusBar = Lažna aplikacija.DisplayStatusBar = bln End Sub Na ovaj način možete koristiti statusnu traku za prikaz excel vba timera.