Mostrar hora real en label (que cambie constantemente)
¿Cómo consigo que se muestre la hora y vaya cambiando a cada minuto o segundo?
Solo consigo que se muestre una sola vez con el código
label1 = time
De antemano muchas gracias ! (Y)
1 Respuesta
Respuesta de Dante Amor
1
H o l a:
En un módulo pon la siguiente macro:
Sub ActualizarHora()
'Por.Dante Amor
UserForm1.Label1 = Time
Application.OnTime Now + TimeValue("00:00:01"), "ActualizarHora"
End SubPon lo siguiente en tu formulario:
Private Sub UserForm_Activate()
'Por.Dante Amor
ActualizarHora
End Sub
'
Private Sub UserForm_Terminate()
'Por.Dante Amor
Application.OnTime Now + TimeValue("00:00:01"), "ActualizarHora", , False
End SubEjecuta el formulario y en automático el formulario ejecutará la macro del módulo y eso hará que se actualice la hora en tu label.
:) Saludos. Dante Amor. Recuerda valorar la respuesta.
