Saltar al contenido

cuenta regresiva en Excel con ejemplo de código VBA

Ejemplo: temporizador de cuenta atrás de Excel vba

Select AllPublic interval As Date
Sub timer()
 
    interval = Now + TimeValue("00:00:01")
    
    If Range("A1").Value = 0 Then Exit Sub
    
    Range("A1") = Range("A1") - TimeValue("00:00:01")
    
    Application.OnTime interval, "timer"
     
End Sub
Sub stop_timer()
 
    Application.OnTime EarliestTime:=interval, Procedure:="timer", Schedule:=False
 
End Sub
¡Haz clic para puntuar esta entrada!
(Votos: 0 Promedio: 0)


Tags : /

Utiliza Nuestro Buscador

Deja una respuesta

Tu dirección de correo electrónico no será publicada. Los campos obligatorios están marcados con *