Loendur olekuribal, kasutades Microsoft Excelis VBA -d

Kui te ei tea, kuidas Excelis taimerit luua?

Küsimus:

Olekuribal kuvatakse loendur 30 sekundist 0 sekundini.

Vastus:
Sisestage standardmoodulisse järgmine kood.

Sub CountDown () Dim intCounter kui täisarv Dim bln Nagu Boolean bln = Application.DisplayStatusBar Application.DisplayStatusBar = True IntCounter = 30 kuni 1 Samm -1 Application.StatusBar = intCounter & "Sekundid …" Application.Oota kohe + TimeSerial (0, 0, 1) Järgmine intCounter Application.StatusBar = False Application.DisplayStatusBar = bln End Sub Sel viisil saate Exceli vba taimerit kuvada olekuriba abil.