Nedtelling i statuslinjen ved hjelp av VBA i Microsoft Excel

Hvis du lurer på hvordan kan jeg lage timer i excel

Spørsmål:

En nedtelling fra 30 til 0 sekunder skal vises på statuslinjen.

Svar:
Sett inn følgende kode i standardmodulen.

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) Neste intCounter Application.StatusBar = Falsk Application.DisplayStatusBar = bln Slutt Sub På denne måten kan du bruke statuslinjen til å vise excel vba -timer.