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:
- Unboxing e Overview Fonte de Alimentação Corsair RM850X(1 comentários)
- Como trocar a pilha da chave do Honda Civic? – Faça você mesmo(0 comentários)
- Teclado Multimídia Kross Elegance KE-K103 Unboxing! (Teclado gamer barato?)(0 comentários)
- SX OS Xecuter: Como Ativar, Tutorial e Review (muito fácil de usar!) [8](0 comentários)
- Tutorial – Como ligar seu Nintendo Wii a uma TV usando um cabo HDMI (Imagem em Full HD?)(0 comentários)
- Zelda Breath of the Wild Atualizado – Hero’s Path Mode – Você vai adorar este recurso!(0 comentários)
- PS4 importado roda jogos brasileiros? E o XBox One? E o Wii U? Descubra aqui!(0 comentários)
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?
MUITO BACANA ESTE POSTE … APRENDE RAPIDOOO…
Está dando erro de compilação, erro de sintaxe..
Está dando erro de compilação, erro de sintaxe..
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
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?
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
Uso e Excel 365 e esta com o mesmo erro citado acima…
Erro de sintaxe
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
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
não está funcionando no meu excel
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
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