Es posible el efecto timer en excel?

"Manuel" escribió en el mensaje news:113a901c3bf54$dcbb5b10$

Saludos a la comunidad
Quisiera saber si puedo tener en excel un label que vaya
actualizando la hora cada segundo... si?
Tal como hace un timer.
Como se puede programar eso?
Bueno... agradezco vuestra ayuda.

Se puede hacer usando el método OnTime del objeto Application. Por ejemplo, para poner en la celda A1 de Hoja1 la hora tendrías que poner esto en el módulo del libro:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
DetenerPonerHora
End Sub

Private Sub Workbook_Open()
IniciarPonerHora
End Sub

y esto en un módulo creado por ti:

Dim dtHoraSiguiente As Date

Sub IniciarPonerHora()
Worksheets("Hoja1").Range("A1") = Now() - Int(Now())
dtHoraSiguiente = Now + TimeValue("00:00:01")
Application.OnTime dtHoraSiguiente, "IniciarPonerHora"
End Sub

Sub DetenerPonerHora()
On Error Resume Next
Application.OnTime dtHoraSiguiente, "IniciarPonerHora", , False
End Sub


Respecto a que la hora aparezca en una etiqueta... ¿dónde está la etiqueta?
Un saludo.


Fernando Arroyo
MS MVP - Excel