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

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
     • Diesco diz:

       abril 24, 2019 em 11:11 am

       Uso e Excel 365 e esta com o mesmo erro citado acima…

       Erro de sintaxe

       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