Tutorial – Como inserir relógio em tempo real em planilha no Excel 2010

por | |

Veja aqui como inserir um relógio que atualiza em tempo real em uma planilha do Excel.

Código mostrado no vídeo:

‘ ‘ ‘ ‘ ‘ ‘ ‘ inicio código

Dim Go As Boolean

Sub IniciaRelogio()
Go = True
MeuRelogio
End Sub

Sub MeuRelogio()
If Go Then
ActiveSheet.Calculate
Application.OnTime Now() + TimeValue(“00:00:01”), “MeuRelogio”
End If
End Sub

Sub ParaRelogio()
Go = False
End Sub

‘ ‘ ‘ ‘ ‘ ‘ ‘ ‘ ‘ ‘ fim código

Você também vai gostar de ver:

Adicionar aos favoritos o Link permanente.

Sobre Viny

Formado em Sistemas de Informação. Curte praticamente tudo o que é relacionado ao mundo geek/nerd: música, quadrinhos, livros, mangás, animes, games, seriados, filmes, gadgets e tecnologia em geral. Teve vários trabalhos muito distintos (ou nada a ver um com o outro, se preferir ;P), desde vendedor de picolé, entregador de panfletos, auxiliar de produção e caixa de lan house. Sempre teve interesse em tecnologia, até que teve uma oportunidade para trabalhar mais próximo da área: Trabalhou 8 anos como escrav.. ops, como técnico de informática, ouvindo muitas asneiras dos "users" e resolvendo desde problemas "simples" como a recuperação de dados valiosíssimos de um HD queimado ou implantação de redes e servidores até problemas "incrivelmente complexos" como o misterioso caso de um micro que não queria ligar de jeito nenhum (esqueceram de avisar o cliente que o micro só liga se estiver na tomada!) até que um belo dia, no longínquo ano de 2011 (!) encontrou uma oportunidade de carreira no setor público, onde atua desde então. Tem aspirações de atuar na área de desenvolvimento de novas tecnologias, mais especificamente na criação de gadgets. É também um cara enorme (não acha, mas dizem isso, fazer o que?), que amedronta os outros só com seu olhar e seu 1,91m de altura. É bem humorado, apesar de parecer marrento as vezes (só parece). Mas por via das dúvidas, evite provocá-lo. ;P

13 respostas para Tutorial – Como inserir relógio em tempo real em planilha no Excel 2010

  1. Carlos diz:
    fevereiro 21, 2017 em 2:59 pm

    Através deste relógio, gostaria de criar um contador de produção que me retorne se estou negativo ou positivo a cada time da linha. Pode me ajudar?

    Responder
  2. GLAUCIA MARIA GALUCIO VINENTE diz:
    agosto 16, 2017 em 2:08 am

    MUITO BACANA ESTE POSTE … APRENDE RAPIDOOO…

    Responder
  3. Wylma diz:
    junho 17, 2018 em 6:10 pm

    Está dando erro de compilação, erro de sintaxe..

    Responder
  4. Adelimar Tosta diz:
    agosto 23, 2018 em 1:02 pm

    Está dando erro de compilação, erro de sintaxe..

    Responder
    • Gustavo Viana diz:
      abril 9, 2019 em 6:29 pm

      São as aspas (“”)

      Coloquem assim:

      Dim Go As Boolean

      Sub IniciaRelogio()
      Go = True
      MeuRelogio
      End Sub

      Sub MeuRelogio()
      If Go Then
      ActiveSheet.Calculate
      Application.OnTime Now(), TimeValue(“00:00:01”), “MeuRelogio”
      End If
      End Sub

      Sub ParaRelogio()
      Go = False
      End Sub

      Responder
  5. Marco diz:
    dezembro 9, 2018 em 2:12 pm

    Meu Excel é 2013 e esta dando:
    “Erro de compilação:
    Era esperado:fim da instrução”
    A principio o código esta correto, acho que o problema seja o Excel2013, ou falta habilitar alguma coisa no Excel.
    Na verdade, eu gostaria mesmo é a cada minuto (quando o segundo for =00) pegar o valor de uma célula e guardar. Esta célula é variável, pois estou aquisitando via API. Isto é possível?

    Responder
    • Rafael Cruz diz:
      abril 4, 2019 em 12:20 am

      Dim Go As Boolean

      Sub IniciaRelogio()
      Go = True
      MeuRelogio
      End Sub

      Sub MeuRelogio()
      If Go Then
      ActiveSheet.Calculate
      Application.OnTime Now() + TimeValue(“00:01:00”), “MeuRelogio”
      End If
      End Sub

      Sub ParaRelogio()
      Go = False
      End Sub

      Responder
  6. alberto diz:
    junho 12, 2019 em 7:27 pm

    Alem das “aspas” o erro ocorre pois esta errada o acréscimo do timevalue. Segue código correto:

    Dim Go As Boolean

    Sub IniciaRelogio()
    Go = True
    MeuRelogio
    End Sub

    Sub MeuRelogio()
    If Go Then
    ActiveSheet.Calculate
    Application.OnTime Now() + TimeValue(“00:00:01”),
    “MeuRelogio”
    End If
    End Sub

    Sub ParaRelogio()
    Go = False
    End Sub

    Responder
  7. Marcelo Testoni diz:
    junho 15, 2019 em 1:27 am

    Tinha uma aspa invertida. Agora funcionou.

    Dim Go As Boolean

    Sub IniciaRelogio()
    Go = True
    MeuRelogio
    End Sub

    Sub MeuRelogio()
    If Go Then
    ActiveSheet.Calculate
    Application.OnTime Now() + TimeValue(“00:00:01”), “MeuRelogio”
    End If
    End Sub

    Sub ParaRelogio()
    Go = False
    End Sub

    Responder
  8. Carlos diz:
    julho 31, 2019 em 2:17 pm

    não está funcionando no meu excel

    Responder
    • Thiago diz:
      novembro 19, 2019 em 8:17 pm

      Cada computador tem uma configuração pelo visto referente às aspas, recoloca você mesmo as aspas duplas na linha Application.OnTime Now() + TimeValue(“00:00:01”), “MeuRelogio”, que vai funcionar de boa

      Responder
  9. Luis Melo diz:
    abril 11, 2020 em 1:09 pm

    Pessoal, encontrei algumas correções a serem feitas no código para o excel que estou usando.

    Segue o código que funcionou:

    Dim Go As Boolean

    Sub IniciaRelogio()
    Go = True
    MeuRelogio
    End Sub

    Sub MeuRelogio()
    If Go Then
    ActiveSheet.Calculate
    Application.OnTime Now() + TimeValue(“00:00:01”), “MeuRelogio”
    End If
    End Sub

    Sub ParaRelogio()
    Go = False
    ParaRelogio
    End Sub

    Responder

Deixe uma resposta

O seu endereço de e-mail não será publicado. Campos obrigatórios são marcados com *