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.

Mostrar la hora real en Excel segundo a segundo

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.

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: