Como inserir o cronômetro de contagem regressiva no Excel?
Se você quiser lidar com alguns dados em um tempo limitado, pode inserir um cronômetro de contagem regressiva em sua planilha de dados e, quando terminar a contagem regressiva de tempo, aparecerá uma caixa de diálogo aberta para lembrá-lo. Aqui, direi um código VBA para inserir um cronômetro de contagem regressiva no Excel.
Inserir cronômetro regressivo no Excel
Inserir cronômetro regressivo no Excel
No Excel, não é possível fazer a contagem regressiva do tempo, mas você pode copiar o código do VBA a seguir para ajudar na contagem regressiva.
1. Selecione uma célula e formate-a como formatação de hora clicando com o botão direito do mouse na célula e selecionando formatar célulase, na caixa de diálogo, clicando em Horário e selecionando 13:30:55 no Formato lista, finalmente clicando OK para sair desta caixa de diálogo. Veja a imagem:
2. Digite o tempo que deseja fazer a contagem regressiva na célula de formatação. Veja a imagem:
3. Pressione Alt + F11 chaves para abrir Microsoft Visual Basic para Aplicações janela.
4. Clique inserção > Módulo e copie o seguinte VBA para a 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ê digita na etapa 2.
5. Clique Execute ou pressione F5 para executar o cronômetro de contagem regressiva. Agora o tempo está contado.
6. E quando a contagem regressiva terminar, uma caixa de diálogo aberta irá lembrá-lo.
Dica: Você não pode parar a contagem regressiva enquanto ela está em execução, exceto fechar a pasta de trabalho.
Melhores ferramentas de produtividade de escritório
Aprimore suas habilidades de Excel com o Kutools para Excel e experimente uma eficiência como nunca antes. Kutools para Excel oferece mais de 300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para obter o recurso que você mais precisa...
Office Tab traz interface com guias para o Office e torna seu trabalho muito mais fácil
- Habilite a edição e leitura com guias em Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novas guias da mesma janela, em vez de em novas janelas.
- Aumenta sua produtividade em 50% e reduz centenas de cliques do mouse para você todos os dias!