Nedräkning i statusfältet med VBA i Microsoft Excel

Om du undrar hur kan jag skapa timer i excel

Fråga:

En nedräkning från 30 till 0 sekunder ska visas i statusfältet.

Svar:
Sätt in följande kod 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) Nästa intCounter Application.StatusBar = Falsk Application.DisplayStatusBar = bln Avsluta Sub På så sätt kan du använda statusfältet för att visa excel vba -timer.