Como criar um cronómetro numa folha de cálculo do Excel?
Se precisar de um cronómetro na sua folha de cálculo do Excel, este pode ajudá-lo a acompanhar com precisão o tempo necessário para concluir tarefas. Imagine ter botões intuitivos — Iniciar, Parar e Repor — para controlar o cronómetro, tal como ilustrado na imagem seguinte: ao clicar em Iniciar, o temporizador começa a contar; o botão Parar interrompe a contagem; e o botão Repor reinicia o tempo registado. Neste artigo, mostramos-lhe, passo a passo, como criar um cronómetro simples mas totalmente funcional no Excel utilizando código VBA.
Crie um cronómetro com três botões utilizando código VBA
Crie um cronómetro com três botões utilizando código VBA
Para criar um cronómetro com três botões — Iniciar, Parar e Repor — siga atentamente os passos seguintes, um a um.
Em primeiro lugar, insira três botões de comando.
1. Clique em «Programador» > «Inserir» > «Botão de Comando», conforme ilustrado na imagem:
2. Em seguida, arraste o rato para desenhar um botão. Após inserir o botão, pode alterar a respetiva legenda: clique em «Programador» > «Propriedades». Na caixa de diálogo «Propriedades», introduza a nova legenda «Iniciar» na caixa de texto junto a «Legenda», conforme ilustrado nas imagens:
 |  |  |
3. Repita os dois passos anteriores para inserir os outros dois botões e atribua-lhes as legendas «Parar» e «Repor», conforme ilustrado na imagem:
4. Após inserir os botões, saia do modo de design clicando em «Programador» > «Modo de Design».
Em segundo lugar, crie um código em VBA.
5. De seguida, clique com o botão direito do rato no separador da folha atual e selecione «Ver Código». Na janela do «Microsoft Visual Basic para Aplicações» que aparece, copie e cole o seguinte código na «Zona de Código da Folha»:
Public StopIt As Boolean
Public ResetIt As Boolean
Public LastTime
Private Sub CommandButton1_Click()
Dim StartTime, FinishTime, TotalTime, PauseTime
StopIt = False
ResetIt = False
If Range("C2") = 0 Then
StartTime = Timer
PauseTime = 0
LastTime = 0
Else
StartTime = 0
PauseTime = Timer
End If
StartIt:
DoEvents
If StopIt = True Then
LastTime = TotalTime
Exit Sub
Else
FinishTime = Timer
TotalTime = FinishTime - StartTime + LastTime - PauseTime
TTime = TotalTime * 100
HM = TTime Mod 100
TTime = TTime \ 100
hh = TTime \ 3600
TTime = TTime Mod 3600
MM = TTime \ 60
SS = TTime Mod 60
Range("C2").Value = Format(hh, "00") & ":" & Format(MM, "00") & ":" & Format(SS, "00") & "." & Format(HM, "00")
If ResetIt = True Then
Range("C2") = Format(0, "00") & ":" & Format(0, "00") & ":" & Format(0, "00") & "." & Format(0, "00")
LastTime = 0
PauseTime = 0
End
End If
GoTo StartIt
End If
End Sub
Private Sub CommandButton2_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
StopIt = True
End Sub
Private Sub CommandButton3_Click()
Range("C2").Value = Format(0, "00") & ":" & Format(0, "00") & ":" & Format(0, "00") & "." & Format(0, "00")
LastTime = 0
ResetIt = True
End Sub
Nota: No código acima, «C2» é a célula onde será inserido o tempo do cronómetro, e «CommandButton1», «CommandButton2» e «CommandButton3» são os nomes dos respetivos botões. Pode confirmar o nome exato de cada um na «Caixa de Nome», conforme ilustrado na imagem:
Em terceiro lugar, formate a célula que contém o tempo do cronómetro.
6. De seguida, formate a célula do tempo como «Texto» e ajuste o tamanho da célula, tipo de letra, cor da fonte, fundo, etc., conforme as suas necessidades, tal como ilustrado na imagem:
7. Após concluir os passos anteriores, a partir de agora: ao clicar no botão «Iniciar», o tempo começará a contar; ao clicar em «Parar», será interrompido; e ao clicar em «Repor», o tempo será reposto, conforme ilustrado na imagem:
Demonstração: Crie um cronómetro com três botões utilizando código VBA
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