Skaičiavimas būsenos juostoje naudojant „Microsoft Excel“ VBA

Jei jums įdomu, kaip sukurti „Excel“ laikmatį

Klausimas:

Būsenos juostoje turi būti rodomas laikas nuo 30 iki 0 sekundžių.

Atsakymas:
Į standartinį modulį įterpkite šį kodą.

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.Palauk dabar + TimeSerial (0, 0, 1) Kitas intCounter Application.StatusBar = False Application.DisplayStatusBar = bln End Sub Tokiu būdu galite naudoti būsenos juostą, kad būtų rodomas „Excel vba“ laikmatis.