Note: The other languages of the website are Google-translated. Back to English

Como criar cronômetro em planilha do Excel?

Se houver um cronômetro em sua planilha, você saberá a hora de terminar um trabalho. Como você pode criar um cronômetro em uma planilha com um botão Iniciar, Parar e Redefinir conforme mostrado a seguir? Se você clicar no botão Iniciar, ele iniciará a hora; se você clicar no botão Parar, irá parar a hora e o botão Reiniciar pode ajudá-lo a reiniciar a hora. Neste artigo, vou falar sobre como criar um cronômetro simples e prático no Excel.

doc criar cronômetro 1

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


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

Para criar um cronômetro com três botões, Iniciar, Parar e Reiniciar, siga as etapas a seguir, uma a uma.

Em primeiro lugar, insira três botões de comando.

1. Clique Desenvolvedor > inserção > Botão de comando, veja a captura de tela:

doc criar cronômetro 2

2. Em seguida, arraste o mouse para desenhar um botão, após inserir o botão, você pode alterar a legenda do botão, por favor clique Desenvolvedor > Propriedades, Na Propriedades caixa de diálogo, insira a nova legenda “Início”Para este botão na caixa de texto ao lado do Subtítulo, veja as capturas de tela:

doc criar cronômetro 3 2 doc criar cronômetro 4

3. Repita as duas etapas acima para inserir outros dois botões e legendá-los como “Parar"E"Limpar”, Veja a imagem:

doc criar cronômetro 5

4. Após inserir os botões, você deve sair do modo de design clicando em Desenvolvedor > Modo de design.

Em segundo lugar, crie um código VBA.

5. E então, clique com o botão direito na guia da planilha atual e escolha Ver código, no estalou para fora Microsoft Visual Basic para Aplicações janela, copie e cole o seguinte código no Código da Folha:

Código VBA: Criar cronômetro:

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

doc criar cronômetro 6

Nota: No código acima, C2 é a célula onde o tempo do cronômetro será inserido, e o CommandButton1, CommandButton2, CommandButton3 são os nomes dos botões, você pode ver o nome exato do botão no nome Box, veja a captura de tela:

doc criar cronômetro 7

Em terceiro lugar, formate a célula de tempo do cronômetro.

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

doc criar cronômetro 8

7. Depois de terminar as etapas acima, a partir de agora, quando você clicar Início botão, o tempo começará agora, e clique Parar botão, vai parar o tempo, o Limpar botão irá zerar o tempo, veja a captura de tela:

doc criar cronômetro 9


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


As melhores ferramentas de produtividade para escritório

O Kutools for Excel resolve a maioria dos seus problemas e aumenta sua produtividade em 80%

  • armadilha para peixes: Insira rapidamente fórmulas complexas, gráficos e qualquer coisa que você tenha usado antes; Criptografar células com senha; Criar lista de discussão e enviar emails ...
  • Barra Super Fórmula (edite facilmente várias linhas de texto e fórmula); Layout de leitura (ler e editar facilmente um grande número de células); Colar na faixa filtrada...
  • Mesclar células / linhas / colunas sem perder dados; Dividir o conteúdo das células; Combinar linhas / colunas duplicadas... Evite células duplicadas; Comparar intervalos...
  • Selecione Duplicado ou Único Linhas; Selecione linhas em branco (todas as células estão vazias); Super Find e Fuzzy Find em muitos livros; Seleção aleatória ...
  • Cópia exata Várias células sem alterar a referência da fórmula; Criação automática de referências para várias folhas; Inserir marcadores, Caixas de seleção e mais ...
  • Extrair Texto, Adicionar texto, remover por posição, Remover Espaço; Criar e imprimir subtotais de paginação; Converter entre conteúdo de células e comentários...
  • Super Filtro (salvar e aplicar esquemas de filtro a outras planilhas); Classificação Avançada por mês / semana / dia, frequência e mais; Filtro Especial por negrito, itálico ...
  • Combine pastas de trabalho e planilhas; Mesclar tabelas com base em colunas-chave; Divida os dados em várias folhas; Conversão em lote de xls, xlsx e PDF...
  • Mais de 300 recursos poderosos. Suporta Office / Excel 2007-2021 e 365. Suporta todos os idiomas. Fácil implantação em sua empresa ou organização. Recursos completos de avaliação gratuita de 30 dias. Garantia de devolução do dinheiro em 60 dias.
guia kte 201905

Guia do Office traz interface com guias para o Office e torna seu trabalho muito mais fácil

  • Habilite a edição e leitura com guias em Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
  • Abra e crie vários documentos em novas guias da mesma janela, em vez de em novas janelas.
  • Aumenta sua produtividade em 50% e reduz centenas de cliques do mouse para você todos os dias!
parte inferior da aba do escritório
Comentários (32)
Ainda não há classificações. Seja o primeiro a avaliar!
Este comentário foi feito pelo moderador no site
Obrigado por este post, foi muito útil. No entanto, existe uma maneira de ajustar o código para que o cronômetro não pare quando uma célula estiver sendo editada? Idealmente, eu gostaria de clicar em "Iniciar", fazer várias alterações em um intervalo de células na mesma guia e, em seguida, clicar em "Parar" para o tempo total decorrido. Qualquer conselho sobre isso seria muito apreciado!
Este comentário foi feito pelo moderador no site
você já descobriu isso? Eu também preciso manter o cronômetro funcionando enquanto outras alterações estão sendo feitas na mesma planilha. obrigado. Mike
Este comentário foi feito pelo moderador no site
Esta foi uma grande ajuda e muito fácil de seguir os passos.
Este comentário foi feito pelo moderador no site
Já tentei criar o cronômetro usando os mesmos códigos no Forms. O cronômetro inicia perfeitamente bem, mas não para. Por favor, sugira como replicar o mesmo em formulários
Este comentário foi feito pelo moderador no site
Experimente o Cronômetro XNote.
Este comentário foi feito pelo moderador no site
Existe alguma maneira de fazer o cronômetro contar para cima ou para baixo em um tempo específico? Quero manter os botões iniciar, parar e reiniciar, mas preciso que conte até um minuto e um segundo apenas, uma vez que eu pressiono iniciar. Ou faça uma contagem regressiva de um minuto e um segundo até zero (01:01). Obrigado pela ajuda!
Este comentário foi feito pelo moderador no site
Olá, Melissa,
se você precisar criar um cronômetro de contagem regressiva na planilha, o artigo a seguir pode ajudá-lo!
https://www.extendoffice.com/documents/excel/2144-excel-countdown-timer.html
Este comentário foi feito pelo moderador no site
Olá,

Eu vi esse artigo, mas eu preciso que ele se pareça exatamente com o cronômetro nesta página, mas eu preciso que ele faça uma contagem regressiva de um minuto a um segundo. Eu preciso que ele apareça em forma de cronômetro, mas funcione como uma contagem regressiva. Mais algum conselho?


obrigado por responder!
Este comentário foi feito pelo moderador no site
É para um placar que projetamos em excel.
Este comentário foi feito pelo moderador no site
Ótimo, mas é possível executar 2 clocks na mesma planilha? fiz um segundo relógio com novo botão start, stop e reset, mas ao iniciar o segundo relógio o primeiro pára....
Este comentário foi feito pelo moderador no site
mesmo aqui você pode encontrar a cura disso
Este comentário foi feito pelo moderador no site
Olá amigos,
Este método é aplicado apenas a um conjunto de botões em uma planilha.
Se houver outras boas ideias, comente aqui.
Este comentário foi feito pelo moderador no site
É possível parar automaticamente o cronômetro quando a tela é bloqueada e iniciar o cronômetro automaticamente quando desbloqueamos o computador?
Este comentário foi feito pelo moderador no site
Existe alguma maneira de fazer o cronômetro redefinir a contagem para zero, mas ainda manter o cronômetro em execução? Ou seja. Quando pressiono Redefinir, não quero ter que pressionar Iniciar novamente para que o tempo passe.
Este comentário foi feito pelo moderador no site
Oi, estou usando esta rolha, mas muitas vezes os números na célula de exibição ("C2") começam a piscar e se apagam - eles mostram sinais de menos, os dígitos estão incorretos e a contagem é perdida. Geralmente acontece depois de cerca de uma hora ou mais, mas às vezes até antes de uma hora. Este é um bug comum? e se sim, existe uma maneira de corrigi-lo? Eu removi o .00 (ou seja, os milissegundos) do código simplesmente apagando o: & "." & Format(0, "00") linha onde quer que apareça - isso tem alguma coisa a ver com esse problema?
Este comentário foi feito pelo moderador no site
Obrigado pela sua dica, ele estava funcionando sem problemas, mas quando eu insiro qualquer dado nesta planilha ele parou de funcionar, precisamos continuar rodando por algum tempo de entrada de dados Como podemos corrigir este problema?
Este comentário foi feito pelo moderador no site
Olá, Nhoeun,
Pode estar lá de uma maneira não boa para resolver seu problema. Quando você edita uma célula, ela interrompe a macro atualmente executada.
Se você tiver algum outro método bom, por favor, comente aqui!
Obrigado!
Este comentário foi feito pelo moderador no site
OI. Eu criei o cronômetro, mas preciso ter os vários intervalos entre o início e a parada a serem salvos para poder refleti-los como um estudo de tempo e movimento. Alguma dica de como fazer isso?
Este comentário foi feito pelo moderador no site
Feito todos os passos, mas clicar no botão iniciar dá a mensagem de erro "Não é possível executar a macro "'file.xlsm'!CommandButton1". A macro pode não estar disponível nesta pasta de trabalho ou todas as macros podem estar desabilitadas.". Todas as macros foram habilitadas, a macro está no Módulo1. NOTA: Estou executando o Office 2019 para Mac, então isso pode ser um problema....
Este comentário foi feito pelo moderador no site
Que tal adicionar o recurso "+10s" e "2x Speed" neste código?
Este comentário foi feito pelo moderador no site
é 'timer' uma variável aqui? não vejo sua relevância no código.
Este comentário foi feito pelo moderador no site
É possível fazer o contador contar apenas segundos?
Então, quando chega a 59 segundos, continua com 60, 61, 62, 63....
Este comentário foi feito pelo moderador no site
Olá
Seguiu as etapas, mas não conseguiu um horário para aparecer na célula do temporizador. Eu copiei o código, mas posso verificar1. Que os números de linha não são necessários ou são eles2. Que eu coloquei o código no módulo 1, não na planilha1 ou nesta pasta de trabalho3. Deve haver uma macro listada na lista de macros depois de fazer tudo isso - a minha não.
obrigado
Este comentário foi feito pelo moderador no site
Oi, Janice, você deve colocar o código em seu módulo de planilha ativa como etapa 5.
5. Em seguida, clique com o botão direito do mouse na guia da planilha atual e escolha Exibir código, na janela exibida do Microsoft Visual Basic for Applications, copie e cole o código a seguir no módulo.

E você deve alterar o nome do botão para o seu próprio.
Nota: No código acima, C2 é a célula onde será inserido o tempo do cronômetro, e o CommandButton1, CommandButton2, CommandButton3 são os nomes dos botões, você pode ver o nome exato do botão na Caixa de Nomes.

Por favor, verifique-os, obrigado!
Este comentário foi feito pelo moderador no site
Isto é brilhante! Obrigado, Cris H
Este comentário foi feito pelo moderador no site
É possível usar uma caixa de combinação ou uma seleção suspensa para iniciar e parar o relógio
Este comentário foi feito pelo moderador no site
Bonjour, j'ai voulu intégrer ce cronômetro a uma outra macro, determina os tempos de utilização do arquivo. La macro se lance mais bloque l'utilisation du fichier.Comment faire pour utiliser votre cronômetro en même temps que d'autres codes VBA?MerciHenry.
Este comentário foi feito pelo moderador no site
Oi! Obrigado por isso, como faço para preencher o tempo nas células subsequentes, ex. hora de início/parada para a célula C2, depois uma hora de início/parada diferente para a célula c3, c4, c5 etc. 
Não há comentários postados aqui ainda
carregar mais
Deixe o seu comentário
Postando como convidado
×
Avalie esta postagem:
0   Personagens
Locais sugeridos

Siga-nos

Copyright © 2009 - www.extendoffice.com. | Todos os direitos reservados. Distribuído por ExtendOffice. | | | Mapa do site
Microsoft e o logotipo do Office são marcas comerciais ou marcas registradas da Microsoft Corporation nos Estados Unidos e / ou em outros países.
Protegido por Sectigo SSL