Como inserir um temporizador de contagem decrescente no Excel?
Se pretender trabalhar com dados num período limitado, pode inserir um temporizador de contagem decrescente na sua folha de cálculo — e, quando o tempo esgotar, uma caixa de diálogo irá alertá-lo. Vou mostrar-lhe um código VBA para adicionar esse temporizador ao Excel.
Inserir temporizador de contagem decrescente no Excel
Inserir temporizador de contagem decrescente no Excel
No Excel, não é possível realizar uma contagem decrescente do tempo diretamente, mas pode copiar o seguinte código VBA para facilitar essa tarefa.
1. Selecione uma célula e formate-a com o formato de hora: clique com o botão direito do rato na célula e escolha Definir formato de célula. Na caixa de diálogo que surge, clique em Hora, selecione 13:30:55 na lista Tipo e, por fim, clique em OK para fechar a caixa de diálogo. Veja a imagem:
 |
 |
 |
2. Introduza o tempo que pretende contar na célula formatada. Veja a imagem:
3. Prima as teclas Alt + F11 para abrir a janela do Microsoft Visual Basic for Applications.
4. Clique em Inserir > Módulo e copie o seguinte código VBA para a nova janela.
VBA: Temporizador de contagem decrescente.
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 refere-se à célula de tempo inserida no passo 2.
5. Clique no botão Executar ou prima a tecla F5 para iniciar o temporizador de contagem decrescente. Agora, o tempo está a ser contado decrescentemente.
6. Quando a contagem decrescente terminar, surge uma caixa de diálogo para o alertar.
Dica: Não é possível interromper a contagem decrescente enquanto estiver em execução, exceto se fechar o livro.
As Melhores Ferramentas de Produtividade para o Office
Potencie as suas competências no Excel com Kutools para Excel e experimente uma eficiência como nunca antes.Kutools para Excel Oferece mais de 300 funcionalidades avançadas para impulsionar a produtividade e Economizar Tempo.Clique aqui para obter a funcionalidade de que mais precisa...
Office Tab Traz uma interface com separadores para o Office e torna o seu trabalho muito mais fácil
- Ative a edição e leitura com separadores no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novos separadores da mesma janela, em vez de em janelas separadas.
- Aumente a sua produtividade em 50 % e elimine centenas de cliques do rato todos os dias!
Todos os suplementos Kutools — num único instalador.
Kutools for Office reúne suplementos para Excel, Word, Outlook e PowerPoint, além do Office Tab Pro, sendo a solução ideal para equipas que trabalham em várias aplicações do Office.
- Pacote tudo-em-um— suplementos para Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Um instalador, uma licença— configuração em minutos (pronto para MSI)
- Funciona melhor em conjunto— produtividade simplificada em todas as aplicações do Office
- Teste gratuito de 30 dias com todas as funcionalidades— sem registo, sem cartão de crédito
- Melhor relação qualidade-preço— poupe face à compra individual dos suplementos