|
hola, el codigo que a continuacion te envio esta sacado de la ayuda de visual basic, el cual he modificado alguna cosa que creo que sobraba
Sub reloj()
Dim TiempoPausa, Inicio, Final, TiempoTotal
Range("A1").Value = Time
If (MsgBox("Presione Sí para parar 60 segundos", 4)) = vbYes Then
TiempoPausa = 60 ' Asigna hora de inicio.
Inicio = Timer ' Establece la hora de inicio.
Do While Timer < Inicio + TiempoPausa
DoEvents ' Cambia a otros procesos.
Loop
MsgBox "Detenida durante " & TiempoPausa & " segundos"
Range("A1").Value = Time ' Asigna hora de finalización.
Else
End
End If
End Sub
espero te sirva de ayuda para tu formulario, si necesitas algo mas, no dudes en decirmelo, un saludo y perdona por el retraso
|
