Por si só, o Excel não tem uma função para incluir um cronômetro de contagem regressiva. No entanto, com uma linguagem de programação chamada Visual Basic for Applications, é possível escrever uma macro simples para executar a função de contagem regressiva. Este artigo mostra como criar uma macro que permite que um cronômetro faça uma contagem regressiva de até 12 horas, adequado para gerenciamento de tempo em uma planilha.
Formatar a célula do temporizador
Etapa 1
Em uma nova planilha aberta, navegue até a célula A1. Esta será a localização do temporizador de exemplo.
Etapa 2
Clique com o botão direito do mouse na célula
A1 e selecione
Formatar células .
Etapa 3
Selecione
Hora na caixa Categoria e escolha um dos formatos horas:minutos:segundos. Clique em
OK para definir o formato da célula.
Crie a macro
Etapa 1
Acesse a janela de edição do Visual Basic pressionando
ALT-F11 . Clique em
Inserir na barra de menus e clique em
Módulo .
Etapa 2
Digite o seguinte texto na janela Module1:
Dim gCount As Date
Subtemporizador()
gCount =Now + TimeValue("00:00:01")
Application.OnTime gCount, "EndMessage"
Finalizar Sub
SubEndMessage()
Dim xRng como intervalo
Set xRng =Application.ActiveSheet.Range("A1")
xRng.Value =xRng.Value - TimeSerial(0, 0, 1)
Se xRng.Value <=0 Então
MsgBox "Contagem regressiva concluída."
Sair Sub
Fim se
Temporizador de chamadas
Finalizar Sub
Você pode copiar e colar o texto do código acima ou digitá-lo, linha por linha, na janela Module1. O editor VBA aplica a formatação conforme necessário.
Etapa 3
Minimize a janela do VBA clicando no botão
- símbolo no canto superior direito. Clique em
Arquivo na faixa de opções e
Salvar como . Selecione um local para salvar seu arquivo. Na janela Salvar como, dê um nome à sua pasta de trabalho e selecione
Pasta de trabalho habilitada para macro do Excel (*.xlsm) do
Salvar como tipo lista suspensa. Clique em
Salvar e volte para a pasta de trabalho.
Usando o timer
Etapa 1
Clique na célula
A1 e digite
0:3:0 e pressione
Enter . Isso define o tempo para 0 horas, 3 minutos e 0 segundos.
Etapa 2
Clique no botão
Visualizar guia na faixa de opções e clique em
Macros . Selecione
Temporizador na lista Macro e clique em
Executar . Sua célula do temporizador começará a contagem regressiva até zero, quando uma
Contagem regressiva concluída diálogo é aberto. Clique em
OK para voltar ao seu trabalho.
Dica
Você não precisa usar a célula A1. Coloque seu cronômetro em qualquer lugar e altere a referência da célula na linha 8 do código do cronômetro de A1 para qualquer célula que você usar.
