Fórum Excel Bácico, Avançado e Vba
Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.
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...
 
InícioInício  Últimas imagensÚltimas imagens  ProcurarProcurar  RegistarRegistar  Entrar  

 

 Relógio digital

Ir para baixo 
2 participantes
AutorMensagem
LBG_Tri




Mensagens : 4
Data de inscrição : 05/10/2011

Relógio digital Empty
MensagemAssunto: Relógio digital   Relógio digital EmptyQua 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
Ir para o topo Ir para baixo
alexandrevba

alexandrevba


Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

Relógio digital Empty
MensagemAssunto: Re: Relógio digital   Relógio digital EmptyQui 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...
Ir para o topo Ir para baixo
LBG_Tri




Mensagens : 4
Data de inscrição : 05/10/2011

Relógio digital Empty
MensagemAssunto: Re: Relógio digital   Relógio digital EmptyQui 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!
Ir para o topo Ir para baixo
alexandrevba

alexandrevba


Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

Relógio digital Empty
MensagemAssunto: Re: Relógio digital   Relógio digital EmptySex 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...
Ir para o topo Ir para baixo
LBG_Tri




Mensagens : 4
Data de inscrição : 05/10/2011

Relógio digital Empty
MensagemAssunto: Re: Relógio digital   Relógio digital EmptySex 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!
Ir para o topo Ir para baixo
alexandrevba

alexandrevba


Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

Relógio digital Empty
MensagemAssunto: Re: Relógio digital   Relógio digital EmptySex 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 + Wink

Att..
Ir para o topo Ir para baixo
LBG_Tri




Mensagens : 4
Data de inscrição : 05/10/2011

Relógio digital Empty
MensagemAssunto: Re: Relógio digital   Relógio digital EmptySex 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!
Ir para o topo Ir para baixo
Conteúdo patrocinado





Relógio digital Empty
MensagemAssunto: Re: Relógio digital   Relógio digital Empty

Ir para o topo Ir para baixo
 
Relógio digital
Ir para o topo 
Página 1 de 1
 Tópicos semelhantes
-
» Relogio Digital no Excel
» Relógio - Excel

Permissões neste sub-fórumNão podes responder a tópicos
Fórum Excel Bácico, Avançado e Vba :: Avançado/VBA :: Excel Avançado/VBA-
Ir para: