Laskenta tilapalkissa VBA: n avulla Microsoft Excelissä

Jos mietit, miten voin luoda ajastimen Excelissä

Kysymys:

Tilapalkissa näytetään 30 sekunnista 0 sekuntiin.

Vastaus:
Lisää seuraava koodi vakiomoduuliin.

Sub CountDown () Dim intCounter kokonaislukuna Dim bln Boolen bln = Application.DisplayStatusBar Application.DisplayStatusBar = True For intCounter = 30 to 1 Step -1 Application.StatusBar = intCounter & "Seconds…" Application.Oota nyt + TimeSerial (0, 0, 1) Seuraava intCounter Application.StatusBar = False Application.DisplayStatusBar = bln End Sub Tällä tavalla voit käyttää tilariviä Excel vba -ajastimen näyttämiseen.