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:
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
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
Agradezco tus comentarios.
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.
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
Gracias por tus comentarios.
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
Hola.
De aquí lo puedes descargar: https://onedrive.live.com/redir?resid=4509FEB32392C17C%212096
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.