Excel - hora dinamica

Hola a todos

Resulta que he visto trabajos de excel interesantes
buenos trabajos con las formulas de excel
por ejemplo: =hoy()
muestra la fecha
pero si le doy formato DDDD me muestra el dia de la semana a que pertenece esa fecha

la funcion =ahora()
muestra la hora que toma del sistema operativo

peroooo he visto trabajos en donde los segundos cambian;
es decir son dinamicos los cambios

de que manera se puede lograr ese efecto?


Agradezco su ayuda


Gracias

Ah la ayuda de excel dice que es estatica esta funcion, no le creo

Pues las funciones HOY y AHORA pues solo se actualizan cuando se realiza algun tipo de operacion y/o escritura en la hoja en donde estan, Si quieres obtener el efecto tipo reloj en una celda, necesitas usar macros:

Option Explicit

Sub Tiempo()
'Mediante esta instruccion "llamamos" a "Actualizarreloj" para volver a _
actualzizar el Label con la hora
Application.OnTime Now + TimeValue("00:00:01"), _
Procedure:="Actualizarreloj", _
Schedule:=True
End Sub

Sub Actualizarreloj()
'Coloca la hora en el Label del UserForm
[A1] = Time
'"Llama a la rutina que cada 01 segundo "llama" a "Actualizarreloj" para volver a _
actualzizar el Label con la hora
Call Tiempo
End Sub

Sub Detener_reloj()
'Detiene el "OnTime"
Application.OnTime EarliestTime:=Now + TimeValue("00:00:01"), _
Procedure:="Actualizarreloj", _
Schedule:=False
End Sub

"Corre" la macro "Actualizarreloj" para ver el efecto deseado. PAra detenerlo "corre" la macro "Detener_reloj". Comentas

Abraham

creo que lo que tu buscas es esto:

en la celda A1 de la hoja 1, escribe la fomula =ahora()

en el programador y en el thisworwok coloca esto:

Private Sub Workbook_Open()
Flag = True
RunWhen = Now + TimeSerial(0, 0, 1)
Application.OnTime RunWhen, "UpdateClock"
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Flag = False
Call StopClock
End Sub


despues inserta un modulo y pega este codigo y tendra la hora digital por siempre en todo momento:

Public Flag As Boolean
Public RunWhen As Double

Sub UpdateClock()
If Flag = True Then
Worksheets("hoja1").Range("A1").Calculate
RunWhen = RunWhen + TimeSerial(0, 0, 1)
Application.OnTime RunWhen, "UpdateClock"
End If
End Sub

Sub StopClock()
On Error Resume Next
Application.OnTime EarliestTime:=RunWhen, Procedure:="UpdateClock", Schedule:=False
End Sub


espero haberte ayudado

no funsiona debes de terminar el proceso, debes de indicar que hacer despues del modulo ya que no funsiona, yo lo intente pero no hace nada

este codigo no funciona,, la hora se queda estatica

donde va el codigo?

en el thiswookbook?

o en un modulo?