Por conta própria, o Excel não tem uma função para incluir um temporizador de contagem regressiva. No entanto, com uma linguagem de programação chamada Visual Basic for Applications, é possível escrever uma macro simples para realizar a função de contagem regressiva. Este artigo mostra como criar uma macro que permite um temporizador para contar até 12 horas, adequado para gerenciamento de tempo dentro de uma planilha.
Em uma nova planilha aberta, navegue até a célula A1. Esta será a localização do temporizador de exemplo.
Clique com o botão direito na célula A1 e selecione Formatar Células.
Selecione Hora na caixa Categoria e escolha um dos formatos horas:minutos:segundos. Clique em OK para definir o formato da célula.
Acesse a janela de edição do Visual Basic pressionando ALT-F11. Clique em Inserir na barra de menus e clique em Módulo.
Insira o seguinte texto na janela Módulo1:
Dim gCount As Date
Sub Timer()
gCount = Now + TimeValue("00:00:01")
Application.OnTime gCount, "EndMessage"
End Sub
Sub EndMessage()
Dim xRng As Range
Set xRng = Application.ActiveSheet.Range("A1")
xRng.Value = xRng.Value - TimeSerial(0, 0, 1)
If xRng.Value <= 0 Then
MsgBox "Contagem regressiva concluída."
Exit Sub
End If
Call Timer
End Sub
Você pode copiar e colar o texto do código acima, ou digitá-lo linha por linha na janela Módulo1. O editor VBA aplica formatação conforme necessário.
Minimize a janela VBA clicando no 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) na lista suspensa Salvar como tipo. Clique em Salvar e retorne à pasta de trabalho.
Clique na célula A1 e digite 0:3:0, depois pressione Enter. Isso define o tempo para 0 horas, 3 minutos e 0 segundos.
Clique na guia Exibição na faixa de opções e clique em Macros. Selecione Timer na lista de macros e clique em Executar. Sua célula de temporizador começará a contar regressivamente até zero, quando uma caixa de diálogo Contagem Regressiva Concluída será aberta. Clique em OK para retornar ao seu trabalho.
Você não precisa usar a célula A1. Coloque seu temporizador em qualquer lugar e altere a referência da célula na linha 8 do código do temporizador de A1 para a célula que você usar.
Tecnologia Eletrônica © [www.351231.com]
