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...

8 Responses

  1. christyan says:

    Me encanta lo que e visto en tu Block te felicito por compartir el conocimiento eres ejemplo para mucho. mi correo es chryseduardoleon@hotmail.com

  2. Nuria says:

    El código indicado se introduce en un módulo?, en Thisworkbook??, en la hoja específica de un libro??. Yo necesito que se aplique a una celda de una hoja concreta y que no afecte al resto de las hojas del libro. Gracias.

  3. Nexzar says:

    te felicito por compartir tus conocimiento, muy pocos lo hacen y eso se merece lo mucho que puede decir de ti al compartir tus conocimiento amigo. espero que sigas asi y nunca cambies saludos

  4. Mr. Bob says:

    te felicito es muy bueno tu aporte, pero el Hora real en Excel con OnTime no se puede descargar el ejemplo para ver como lo realizaste, aun asi eh visto algunos otros y estan fabulosos

  5. Alfredo says:

    Me gusta tú trabajo y quisiera adaptarlo a lo que necesito. Quisiera contactarme contigo. Mi correo es: aeramirez1962@live.com. Si fuera necesario te paso mi proyecto completo por email.
    El tema es que estoy simulando un StatusBar. En mi computadora el SatusBar funciona fenómeno pero cuando lo llevo a otra PC, no reconoce la instrucción. Es por ello, que decidí hacer una simulación con instrucciones comunes.
    Dentro del StatusBar (Simulado), tengo un LABEL que lleva la hora. Logro que lo presente, pero quiero que actualice automáticamente por minuto. No logro que esto suceda, es por ello que solicito tu ayuda.
    Desde ya te agradezco y te felicito por tus buenos aportes.
    Alfredo.

Leave a Reply

Your email address will not be published. Required fields are marked *

%d bloggers like this: