Countdown timer help....

Daniel_Johns · #1 (**permalink**) 02-23-05, 11:31

hi guys! i want to create a 'simple' countdown timer (from 30 - 0 secs.) in excel. any code to share? (this is an easy job in vb using timer control but i cant find it in excel vb...)

objects in userform:
- Label1 (in which the countdown is shown)
- CommandButton (if pressed, starts the countdown)

thnx in advance...

DavidCoutts · #2 (**permalink**) 02-23-05, 11:49

Ok 2 things needed here

firstly in your Class module where your Controls reside

Code:

Private Sub cmdStart_Click()
    lblTime.Caption = 30
    StartTimer
End Sub

and in a module

Code:

Public Sub StartTimer()
    Application.OnTime DateAdd("s", 1, Now), "RunTimer"
End Sub

Public Sub RunTimer()
    Worksheets("sheet1").lblTime.Caption = CInt(Worksheets("sheet1").lblTime.Caption) - 1
    If Worksheets("sheet1").lblTime.Caption > 0 Then StartTimer
End Sub

this should do what you need from it

Internet Services

Web Development

Digital Marketing

Consumer Tech