| Fórum Excel Bácico, Avançado e Vba Este fórum é destina a usuário de Excel, que queiram compartilhar informações a básicas, avançadas e programação em VBA... |
| | Relógio digital | |
| | Autor | Mensagem |
---|
LBG_Tri
Mensagens : 4 Data de inscrição : 05/10/2011
| Assunto: Relógio digital Qua Out 05, 2011 6:13 pm | |
| Caros colaboradores,
Estou precisando criar um relógio digital em célula de Excel que se atualize dinamicamente mas que possua precisão superior a um (1) segundo, ou seja, precisaria ser com precisão de décimos, centésimos ou milésimos de segundos. Com precisão em décimos de segundos já deve ser suficiente.
Qualquer dica será de grande ajuda!
Grato | |
| | | alexandrevba
Mensagens : 1820 Data de inscrição : 13/07/2011 Localização : Serra - ES
| Assunto: Re: Relógio digital Qui Out 06, 2011 2:30 am | |
| Boa noite!! Primeiro digite numa célula a fórmula =agora() Depois vá em ferramentas/macro/nova macro e clique na célula em que vc pôs a fórmula ( somente para selecionar ) Vá em ferramentas/macro/parar gravação Daí vá em ferramentas/macro/macros/clique sobre a macro e em editar abaixo do nome da macro vc edita pra ficar parecido com o texto abaixo. entãoo feche o editor, execute a macro e voilá está pronto seu relógio Não foi feito teste e caso necessário favor adaptar!!!!!!!!!!!! ' Macro - Código:
-
'Sub Macro1() Do While x = 0 Range("A4").Calculate Loop End Sub Att... | |
| | | LBG_Tri
Mensagens : 4 Data de inscrição : 05/10/2011
| Assunto: Re: Relógio digital Qui Out 06, 2011 5:54 am | |
| Caro alexandrevba,
Tua macro funciona perfeitamente! Só tem um único probleminha, depois que a coloco pra "rodar", nada mais funciona além dela. O relógio continua funcionando mas o Excel trava e a taxa de utilização do hardware vai pra mais de 60%, liga a ventuinha e o micro parece que vai levantar vôo... hehehe.
Voce teria alguma dica para que a macro rode um pouco mais leve sem comprometer o processador e nem travar a máquina? Não tem problema se a precisão baixar para décimos de segundos por exemplo.
Muito obrigado pela ajuda! | |
| | | alexandrevba
Mensagens : 1820 Data de inscrição : 13/07/2011 Localização : Serra - ES
| Assunto: Re: Relógio digital Sex Out 07, 2011 12:35 am | |
| Boa tarde!! Tente assim.. - Código:
-
Dim agora As Date
Sub relogio()
Sheets("Plan1").Range("A1").Value = Format(Time, "hh:mm:ss") Call Atualiza
End Sub
Sub Atualiza()
agora = Now + TimeValue("00:00:01") Application.OnTime agora, "relogio"
End Sub
Sub Parar()
Application.OnTime EarliestTime:=agora, Procedure:="relogio", Schedule:=False
End Sub Att... | |
| | | LBG_Tri
Mensagens : 4 Data de inscrição : 05/10/2011
| Assunto: Re: Relógio digital Sex Out 07, 2011 2:12 am | |
| Olá alexandrevba,
Obrigado pela resposta antes de tudo.
Tentei repetir o procedimento que havia descrito na primeira resposta digitando "=agora()" em uma célula qualquer, me seguida cirando a macro e selecionando esta mesma célula mas posteriormente re-editei o código com este último que me propôs mas ao pressionar F5 a seguinte mensagem aparaceu: "Erro de compilação" - 'Sub' ou 'Function' não definida e ao mesmo tempo pintou uma tarja amarela na linha "Sub relogio()" e uma tarja cinza na linha "Call Atualiza".
Infelizmente sou bastante leigo em VB, mas agradeceria se puder ajudar!
Obrigado mais uma vez! | |
| | | alexandrevba
Mensagens : 1820 Data de inscrição : 13/07/2011 Localização : Serra - ES
| Assunto: Re: Relógio digital Sex Out 07, 2011 3:00 am | |
| Boa noite!! Testei aqui e funcionou....caso haja no topo de modulo escrito Opção Explicita favor remove-la!!! Certifique de que copiou toda extensão de todo o código! At + Att.. | |
| | | LBG_Tri
Mensagens : 4 Data de inscrição : 05/10/2011
| Assunto: Re: Relógio digital Sex Out 07, 2011 5:40 am | |
| Olá alexandrevba,
Legal, não tinha visto toda a extensão dele, só a parte que aparece na folha de rosto do fórum.
Agora tá funcionando, mas só vejo até os segundos. Não deveria contar até os décimos de segundos? Do modo que está funcionando eu já vinha usando um parecido.
Coloquei a opção de formatação personalizada da célula para hh:mm:ss,0 mas mesmo assim o número à direita da vírgula é sempre zero (0). Precisava que mostrasse contando de 0 a 9.
Obrigado novamente! | |
| | | Conteúdo patrocinado
| Assunto: Re: Relógio digital | |
| |
| | | | Relógio digital | |
|
Tópicos semelhantes | |
|
| Permissões neste sub-fórum | Não podes responder a tópicos
| |
| |
| |
|