Como criar um cronômetro na planilha do Excel?

Se você precisa de um cronômetro em sua planilha do Excel, ele pode ajudá-lo a acompanhar o tempo necessário para concluir tarefas. Imagine ter botões Iniciar, Parar e Redefinir para controlar o cronômetro, conforme mostrado na captura de tela abaixo. Clicar no botão Iniciar inicia o temporizador, o botão Parar pausa e o botão Redefinir limpa o tempo. Neste artigo, mostraremos passo a passo como criar um cronômetro simples, mas funcional, no Excel usando código VBA.

Crie um cronômetro com três botões usando código VBA

 Crie um cronômetro com três botões usando código VBA

Para criar um cronômetro com três botões, Iniciar, Parar e Redefinir, siga as etapas abaixo uma por uma.

Primeiro, insira três botões de comando.

1. Clique em "Desenvolvedor" > "Inserir" > "Botão de Comando", veja a captura de tela:

2. Em seguida, arraste o mouse para desenhar um botão. Após inserir o botão, você pode alterar o texto do botão. Clique em "Desenvolvedor" > "Propriedades". Na caixa de diálogo "Propriedades", insira o novo texto "Iniciar" para este botão na caixa de texto ao lado de "Texto", veja as capturas de tela:

3. Repita os dois passos acima para inserir os outros dois botões e nomeie-os como “Parar” e “Redefinir”, veja a captura de tela:

4. Após inserir os botões, saia do modo de design clicando em "Desenvolvedor" > "Modo de Design".

Em segundo lugar, crie um código VBA.

5. Depois disso, clique com o botão direito na guia da planilha atual e escolha "Visualizar Código". Na janela "Microsoft Visual Basic for Applications" que aparece, copie e cole o seguinte código na seção "Código da Planilha":

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

Observação: No código acima, "C2" é a célula onde o tempo do cronômetro será inserido, e "CommandButton1", "CommandButton2", "CommandButton3" são os nomes dos botões. Você pode ver o nome exato do botão na "Caixa de Nome", veja a captura de tela:

Terceiro, formate a célula de tempo do cronômetro.

6. Em seguida, você deve formatar a célula de tempo como formato "Texto" e pode alterar o tamanho da célula, fonte, cor da fonte, plano de fundo, etc., conforme necessário, veja a captura de tela:

7. Após concluir as etapas acima, a partir de agora, quando você clicar no botão "Iniciar", o tempo começará, e quando você clicar no botão "Parar", ele interromperá o tempo. O botão "Redefinir" irá redefinir o tempo, veja a captura de tela:

Demonstração: Criar um cronômetro com três botões usando código VBA