Reloj en tiempo real 1

Código Macro

'Este código agrega el horario actual de la pc, actualizandoce en tiempo real...

Sub Reloj_Nuevo()
Sheets(1).Cells(1, "A") = Now
Application.OnTime Now + TimeSerial(0, 0, 2), "Reloj_Nuevo"
End Sub
 
Sub auto_Open()
  Call Reloj_Nuevo
End Sub
 
A la celda A1 darle click derecho y hacer click en la opción (Formato de Celda), y en la solapa Número elegir de la lista (Personalizada), y en donde dice dd/mm/yy hh:mm , poner segun descripción.

 

dd = Día = Ejemplo: 05
ddd = Día = Ejemplo: Lun
dddd = Día = Ejemplo: Lunes
 
mm = Mes = Ejemplo: 01
mmm = Mes = Ejemplo: Ene
mmmm = Mes = Ejemplo: Enero
 
yy = Año = Ejemplo: 10
yyyy = Año = Ejemplo: 2010
 
hh = Horas = Ejemplo: 10
mm = Minutos= Ejemplo: 30
ss = Segundos = Ejemplo: 00
 
 
Para que solo muestre el horario como reloj, usar este formato:
 
hh:mm:ss
 

Para agregar un macro, deberá abrir el editor de VBA en el libro de Excel abierto al cual desea agregarlo, mantener apretado la tecla "ALT + F11", luego seleccionar la solapa "INSERTAR", y desde ahí elegir "MODULO".

Y en el módulo pegar el código completo del macro, para luego poder usarlo.

Para Usar el macro, volver a la hoja de Excel de la siguiente manera, mantener apretado la tecla "ALT + F11", o minimizando o cerrando el editor de VBA.

Y en la hoja de cálculo insertar una FORMA o IMAGEN, luego hacerle clic derecho a la misma y seleccionar, "ASIGNAR MACRO", y elegir el macro deseado que de antemano hemos copiado.

Recuerde que el libro de Excel deberá guardarlo como "LIBRO DE EXCEL HABILITADO PARA MACROS"...