Hora real en Excel con OnTime
En este ejemplo te voy a regalar una macro que puedas tener la hora real en una hoja de Excel. Esta macro funciona con el método OnTime, la cual nos ayudará a ejecutar una macro cada 1 segundo.
Este tema lo vemos a fondo de mi curso GRATIS de macros:
Curso Excel VBA y Macros – Cap. 41 – OnTime para agendar macros y procedimientos
.
Ver Video Hora real en Excel
Suscríbete al canal de EXCELeINFO en YouTube para aprender más de Excel y macros.
Figura 1. Mostrar la hora real en Excel segundo a segundo.
Qué aprenderás en el video
Te pongo la lista de lo que aprenderás en el video. Estoy seguro que los temas te gustarán:
-
Función AHORA.
-
Función TEXTO.
-
WordArt en Excel.
-
Controles de Formulario.
-
Macros.
-
Ejecutar macros al iniciar el archivo.
Código VBA de la macro
Dentro del objeto ThisWorkbook usamos esta macro:
Option Explicit Private Sub Workbook_BeforeClose(Cancel As Boolean) Call DetenerReloj End Sub Private Sub Workbook_Open() Call IniciarReloj End Sub
En un módulo normal:
Option Explicit Dim Tiempo Sub IniciarReloj() Sheets("Hoja1").Range("b4").Formula = "=NOW()" Tiempo = VBA.DateAdd("s", 1, Time) Application.OnTime EarliestTime:=Tiempo, Procedure:="IniciarReloj" End Sub Sub DetenerReloj() On Error Resume Next Application.OnTime EarliestTime:=Tiempo, Procedure:="IniciarReloj", Schedule:=False End Sub
Descarga el archivo de ejemplo
Hora real en Excel usando VBA y macros – EXCELeINFO.zip
Si te gustó este tutorial, por favor regístrate en nuestra Lista de correo y Suscríbete a nuestro canal de YouTube para que estés siempre enterado de lo nuevo que publicamos.
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.