Hora real en Excel con OnTime

El presente ejemplo funciona con el método OnTime, y se desarroló para mostrar la hora real en un WordArt, que a su vez, está vinculado con una celda que actualiza la hora cada segundo, haciendo el efecto de un reloj digital.

Imagen del ejemplo:

image

Código del ejemplo:

Private Sub Workbook_Open()
Call Reloj
End Sub
'
Sub Reloj()
Range("A2").Formula = "=NOW()"
Application.OnTime Now + TimeValue("00:00:01"), "reloj"
End Sub

:: Descarga el ejemplo EXCELeINFO – Hora real

You may also like...