Contagem regressiva na barra de status usando VBA no Microsoft Excel

Se você está se perguntando como posso criar um cronômetro no excel

Pergunta:

Uma contagem regressiva de 30 a 0 segundos deve ser exibida na barra de status.

Responder:
Insira o seguinte código no módulo padrão.

Sub CountDown () Dim intContador As Inteiro Dim bln As Boolean bln = Application.DisplayStatusBar Application.DisplayStatusBar = Verdadeiro Para intContador = 30 a 1 Etapa -1 Application.StatusBar = intContador & "Seconds…" Application.Wait Now + TimeSerial (0, 0, 1) Próximo intContador Application.StatusBar = False Application.DisplayStatusBar = bln End Sub Desta forma, você pode usar a barra de status para exibir o cronômetro do Excel vba.