Macro VBA (excel 2010) - Display system time with running seconds in user form

Question

Please show me on how to display system time with running seconds in userform - vba excel 2010

Just like visual basic timer object - but I cant find any like this in macro

Thanks...

Our Man in Bananas · Accepted Answer · 2013-04-29 12:00:01Z

3

you can do this as below (found on Ozgrid.Com Forums) :

in a UserForm with a label called Label1 put the below code

Private Sub UserForm_Initialize()
    Me.Label1 = Time
    Application.OnTime Time + TimeValue("00:00:01"), "Live_time"
End Sub


Private Sub UserForm_Terminate()
    Application.OnTime Time + TimeValue("00:00:01"), "Live_time", , False
End Sub

in a Public module, put this code:

Sub Live_time()
    Application.OnTime Time + TimeValue("00:00:01"), "Live_time"
    UserForm1.Label1 = Time
    UserForm1.Repaint
End Sub

then run the form with the label on it.

answered Apr 29, 2013 at 12:00

Our Man in Bananas

6,00525 gold badges104 silver badges158 bronze badges

Sign up to request clarification or add additional context in comments.

1 Comment

Eddie Over a year ago

I'd stick with this solution as it looks the simplest. But I don't believe you need to additionally run the onTime event in the UserForm. Just calling Live_time() should do the trick.

romantique · Accepted Answer · 2017-08-23 08:53:08Z

0

you could also write this code
Application.OnTime Time + TimeValue("00:00:01"), "Live_time" UserForm1.Label1 = Time on the initialize event of the userform.

answered Aug 23, 2017 at 8:53

romantique

1

Collectives™ on Stack Overflow

Macro VBA (excel 2010) - Display system time with running seconds in user form

2 Answers 2

1 Comment

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

2 Answers 2

1 Comment

Comments

Your Answer

Sign up or log in

Post as a guest

Related