>> Tecnologia eletrônica >  >> Lar inteligente >> Vida Inteligente

Como inserir um cronômetro de contagem regressiva em uma planilha do Excel


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.