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 | 
 

 Relogio Digital no Excel

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



Mensagens : 1
Data de inscrição : 27/01/2015
Idade : 45
Localização : Tres Lagoas

MensagemAssunto: Relogio Digital no Excel   Ter Jan 27, 2015 2:21 pm

Sera que alguém poderia me ajudar, preciso fazer um relógio digital em uma planilha do excel porem deve estar dando algum erro na formula, pois até roda mais quando eu vou salvar não salva,

segue a formula que estou usando:

'Sub Macro1()
Do While x = 0
Range("A4").Calculate
Loop
End Sub
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: Relogio Digital no Excel   Ter Jan 27, 2015 4:38 pm

Bom dia!!

faça o download aqui:
http://www.andypope.info/fun/clocks.htm

Ou tente algo assim...

Código:

'Ponha esse código dentro de um Módulo
Dim SchedRecalc As Date
Sub Recalc()
Range("C3").Value = Format(Now, "dd-mmm-yy")
Range("C4").Value = Format(Time, "hh:mm:ss AM/PM")

Call SetTime
End Sub

Sub SetTime()
SchedRecalc = Now + TimeValue("00:00:01")
Application.OnTime SchedRecalc, "Recalc"
End Sub

Sub Disable()
On Error Resume Next
Application.OnTime EarliestTime:=SchedRecalc, Procedure:="Recalc", Schedule:=False
End Sub
Código:

'Ponha esse código dentro de um Módulo de Arquivo que seria em EstaPasta_de_trabalho
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Disable
End Sub

Att
Voltar ao Topo Ir em baixo
Ver perfil do usuário
 
Relogio Digital no Excel
Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo 
Página 1 de 1
 Tópicos similares
-
» O'CLOCK - RELOGIO DIGITAL
» [Script]Relógio Digital Simples.
» 188 Digital Universe Wallpapers
» [Relógio] No Seconds Digi Clock - Varias cores de fundo!
» 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: