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.