Countup Timer

[jrevard]

Hi,

I have seen some examples of Countup Timers, but when I try to implement them into my program they don't work. I code exclusively in the userform and don't see any examples on how to create a countup timer this way. The examples I found use the spreadsheet, but I want to use a label (or something similar) in my form. When I try to figure out where code should go (Worksheet, modules, etc.) I get lost and nothing wants to work. Any suggestions or tutorials?

Thanks,

Justin

 

[sericom]

Here's an example from userform - Timer on user form in Excel VBA - Stack Overflow

Userform code

Dim nextTriggerTime As Date

Private Sub UserForm_Initialize()
    Label1 = 0
    ScheduleNextTrigger
End Sub

Private Sub UserForm_Terminate()
    Application.OnTime nextTriggerTime, "modUserformTimer.OnTimer", Schedule:=False
End Sub

Private Sub ScheduleNextTrigger()
    nextTriggerTime = Now + TimeValue("00:00:01")
    Application.OnTime nextTriggerTime, "modUserformTimer.OnTimer"
End Sub

Public Sub OnTimer()
    Label1 = Label1 + 1
    ScheduleNextTrigger
End Sub

Then add a module and rename it to modUserformTimer, and place in the following

Public Sub OnTimer()
    UserForm1.OnTimer
End Sub

That should work on a userform named UserForm1, with a label named Label1.

 

[jrevard]

Thank you, I will try it when I have time. I knew I needed to learn modules (they're like classes I think) and this seems like a great opportunity. I really appreciate this as I have not found an example anywhere else (other than the examples for a worksheet).

 

[jrevard]

Works for me. Good job finding that post on Stack Overflow, I don't know how you did. A search for any of the words in that title produces daunting results.

I tried updating the code to have a time format "00:00:00" but everything I try gives different errors. Current code (below) just seems to concatenate strings together. Any ideas? Thx

Dim nextTriggerTime As Date

Private Sub UserForm_Initialize()
    Label1 = 0
    ScheduleNextTrigger
    Label1.Caption = Format(Time, "00:00:00")
End Sub

Private Sub Userform_Terminate()
    Application.OnTime nextTriggerTime, "modUserformTimer.OnTimer", Schedule:=False
End Sub

Private Sub ScheduleNextTrigger()
    nextTriggerTime = Now + TimeValue("00:00:01")
    Application.OnTime nextTriggerTime, "modUserformTimer.OnTimer"
End Sub

Public Sub OnTimer()
    Label1 = Label1 + "00:00:01"
    ScheduleNextTrigger
End Sub