Como inserir um cronômetro de contagem regressiva no Excel?

Se você deseja manipular alguns dados em um tempo limitado, pode inserir um cronômetro de contagem regressiva na sua planilha de dados e, ao finalizar a contagem do tempo, aparecerá uma caixa de diálogo para lembrá-lo. Aqui eu vou mostrar um código VBA para inserir um cronômetro de contagem regressiva no Excel.

Inserir cronômetro de contagem regressiva no Excel

Inserir cronômetro de contagem regressiva no Excel

No Excel, ele não consegue fazer a contagem regressiva do tempo, mas você pode copiar o seguinte código VBA para ajudar na contagem regressiva do tempo.

1. Selecione uma célula e formate-a como formato de hora clicando com o botão direito na célula e selecionando Definir formato de célula, depois, na caixa de diálogo, clique em Hora e selecione 13:30:55 na lista Tipo, por fim, clique em OK para sair da caixa de diálogo. Veja a captura de tela:

2. Digite o tempo que deseja contar na célula formatada. Veja a captura de tela:

3. Pressione as teclas Alt + F11 para abrir a janela Microsoft Visual Basic for Applications.

4. Clique em Inserir > Módulo e, em seguida, copie o seguinte VBA na nova janela.

VBA: Cronômetro de contagem regressiva.

Dim gCount As Date
'Updateby20140925
Sub Timer()
    gCount = Now + TimeValue("00:00:01")
    Application.OnTime gCount, "ResetTime"
End Sub
Sub ResetTime()
Dim xRng As Range
Set xRng = Application.ActiveSheet.Range("E1")
xRng.Value = xRng.Value - TimeSerial(0, 0, 1)
If xRng.Value <= 0 Then
    MsgBox "Countdown complete."
    Exit Sub
End If
Call Timer
End Sub

Dica: E1 no código acima indica a célula de tempo que você digitou na etapa 2.

5. Clique no botão Executar ou pressione F5 para executar o cronômetro de contagem regressiva. Agora o tempo está sendo contado.

6. E quando a contagem regressiva terminar, uma caixa de diálogo será exibida para lembrá-lo.

Dica: Você não pode parar a contagem regressiva enquanto ela estiver em execução, exceto fechando a pasta de trabalho.