Reloj dinámico de Excel VBA

Personalmente me gusta usar esto:

Paso 1: Inserta un módulo y coloca el siguiente código.

Subtiming()

Tabla 1. rango("A1"). Valor = formato(fecha, "AAAA MM DD");" amp tiempo

Aplicar. a tiempo Serie temporal de tiempo (0, 0, 1), "Hora",, Verdadero.

Conector final

Paso 2, coloque el siguiente código en este editor de código de libro de trabajo

Workbook_Open() secundario privado

Tiempo de llamada

Finalizar conector

Paso 3, ejecutar el paso 2 o reiniciar la hoja de cálculo