• Anúncio

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

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

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

  1. Carlos diz:

    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?

  2. GLAUCIA MARIA GALUCIO VINENTE diz:

    MUITO BACANA ESTE POSTE … APRENDE RAPIDOOO…

  3. Wylma diz:

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

  4. Adelimar Tosta diz:

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

    • Gustavo Viana diz:

      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

  5. Marco diz:

    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?

    • Rafael Cruz diz:

      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

  6. alberto diz:

    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

  7. Marcelo Testoni diz:

    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

  8. Carlos diz:

    não está funcionando no meu excel

    • Thiago diz:

      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

Deixe uma resposta

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

  • Anúncio

  • Ofertas