Nedtælling i statuslinjen ved hjælp af VBA i Microsoft Excel

Hvis du undrer dig over, hvordan kan jeg oprette timer i excel

Spørgsmål:

En nedtælling fra 30 til 0 sekunder skal vises på statuslinjen.

Svar:
Indsæt følgende kode i standardmodulet.

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) Næste intCounter Application.StatusBar = Falsk Application.DisplayStatusBar = bln Afslut Sub På denne måde kan du bruge statuslinjen til at vise excel vba -timer.