Notifications
Clear all

Cronômetro crescente

4 Posts
2 Usuários
0 Reactions
975 Visualizações
(@ramzero)
Posts: 127
Estimable Member
Topic starter
 

Pessoal boa tarde

Alguém pode me ajudar?

Como faço para colocar numa única célula simples um cronômetro crescente, nesse formato "m:ss", com zeragem automática ao clicar num botão e partindo sempre do zero?

Pode ser por VBA ou fórmula mesmo

Obrigado

 
Postado : 24/05/2018 1:43 pm
xlarruda
(@xlarruda)
Posts: 732
Honorable Member
 

Insira um módulo e cole esses dois códigos. Acredito que dará certo.

Sub Iniciar()
[a1].Value = Format([a1], "hh:mm:ss")
[a1].Value = [a1].Value + 6.94444444444444E-04
Call relogio
End Sub

Sub relogio()
Application.OnTime Now + TimeValue("00:00:01"), "Iniciar"
End Sub

Execute a Sub "Iniciar"
O contador estará na célula A1

___________________________________________________________________________________________
Se a resposta atendeu sua dúvida, por favor, clique no Gostei e marque o Tópico como [Resolvido].

Att.

André Arruda

 
Postado : 24/05/2018 2:22 pm
(@ramzero)
Posts: 127
Estimable Member
Topic starter
 

xlarruda bom dia!

Era isso que precisava sim, está contabilizando de 1 em 1 segundo, porém exibindo em minutos, ou seja, "00:00:00", "00:01:00", "00:02:00", "00:03:00", "00:04:00", "00:05:00"

Como faço pra que seja: "00:00:00", "00:00:01", "00:00:02", "00:00:03", "00:00:04", "00:00:05"

Outra dúvida, o que é esse número 6.94444444444444E-04 no código que você passou?

Obrigado

 
Postado : 28/05/2018 4:41 am
xlarruda
(@xlarruda)
Posts: 732
Honorable Member
 

Desculpe me confundi aqui. Segue corrigido.

Sub Iniciar()
[a1].NumberFormat = "mm:ss"
[a1].Value = [a1].Value + 1.15740740740741E-05
Call relogio
End Sub

Sub relogio()
Application.OnTime Now + TimeValue("00:00:01"), "Iniciar"
End Sub

Esse número que você perguntou é como o excel entende 1 minuto.
Já esse 1.15740740740741E-05, representa 1 segundo.

___________________________________________________________________________________________
Se a resposta atendeu sua dúvida, por favor, clique no Gostei e marque o Tópico como [Resolvido].

Att.

André Arruda

 
Postado : 28/05/2018 5:51 am