Anderson_fs2
Mensagens : 1
Data de inscrição : 27/01/2015
Idade : 53
Localização : Tres Lagoas
 | | Assunto: 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 | |
|
alexandrevba
Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES
| | Assunto: 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 | |
|
