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:
- Desbloqueio do Wii U: CrunchyHax – Saiu enfim o destravamento para o Wii U 5.5.2?(0 comentários)
- Como conseguir XBox Game Pass Ultimate por até 3 anos gastando só 1 real!!!!(0 comentários)
- Unboxing e Overview Fonte de Alimentação Corsair RM850X(1 comentários)
- Nintendo Switch Como Atualizar Offline a EmuNand ou Nand Usando o SX OS – Jogue Tudo!(0 comentários)
- A Sony pode banir seu PS4 ou conta PSN – Veja em que situações isso pode ocorrer(1 comentários)
- Unboxing e overview cafeteira Oster programável 1,8l BVSTDC4401R-057(0 comentários)
- Como trocar a pilha da chave do Honda Civic? – Faça você mesmo(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