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  FAQFAQ  BuscarBuscar  MembrosMembros  GruposGrupos  Registrar-seRegistrar-se  Login  

Compartilhe | 
 

 Relógio digital

Ver o tópico anterior Ver o tópico seguinte Ir em baixo 
AutorMensagem
LBG_Tri



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

MensagemAssunto: 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
Voltar ao Topo Ir em baixo
Ver perfil do usuário
alexandrevba



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

MensagemAssunto: 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...
Voltar ao Topo Ir em baixo
Ver perfil do usuário
LBG_Tri



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

MensagemAssunto: 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!
Voltar ao Topo Ir em baixo
Ver perfil do usuário
alexandrevba



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

MensagemAssunto: 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...
Voltar ao Topo Ir em baixo
Ver perfil do usuário
LBG_Tri



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

MensagemAssunto: 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!
Voltar ao Topo Ir em baixo
Ver perfil do usuário
alexandrevba



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

MensagemAssunto: 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 + Wink

Att..
Voltar ao Topo Ir em baixo
Ver perfil do usuário
LBG_Tri



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

MensagemAssunto: 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!
Voltar ao Topo Ir em baixo
Ver perfil do usuário
Conteúdo patrocinado




MensagemAssunto: Re: Relógio digital   Hoje à(s) 8:55 am

Voltar ao Topo Ir em baixo
 
Relógio digital
Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo 
Página 1 de 1
 Tópicos similares
-
» [Script]Relógio Digital Simples.
» [Relógio] No Seconds Digi Clock - Varias cores de fundo!
» O'CLOCK - RELOGIO DIGITAL
» 188 Digital Universe Wallpapers
» Afinador digital

Permissão deste fórum:Você não pode responder aos tópicos neste fórum
Fórum Excel Bácico, Avançado e Vba :: Avançado/VBA :: Excel Avançado/VBA-
Ir para: