|
Desde VBA puedes utilizar la función timer que te arroja la hora actual del sistema, luego le aumentas el tiempo de pausa y actualizas... te adjunto el ejemplo que se encuentra en la ayuda en línea de VBA para el tema:
Ejemplo de la función Timer
En este ejemplo se utiliza la función Timer para detener la aplicación. El ejemplo también utiliza DoEvents para pasar el control a otros procesos durante la pausa.
Dim TiempoPausa, Inicio, Final, TiempoTotal
If (MsgBox("Presione Sí para parar 5 segundos", 4)) = vbYes Then
TiempoPausa = 5 ' Asigna hora de inicio.
Inicio = Timer ' Establece la hora de inicio.
Do While Timer < Inicio + TiempoPausa
DoEvents ' Cambia a otros procesos.
Loop
Final = Time ' Asigna hora de finalización.
TiempoTotal = Final - Inicio ' Calcula tiempo total.
MsgBox "Detenida durante " & TiempoTotal & " segundos"
Else
End
End If
Cordialmente,
CESAR MERA
|
