soundswarm
New Member
- Joined
- Oct 26, 2005
- Messages
- 5
I would like to have a running clock in cell A1 based on my system's time and have a button to press so I can freeze it. Any ideas?
-
If you would like to post, please check out the MrExcel Message Board FAQ and register here. If you forgot your password, you can reset your password.
Running Clock w/ Freeze
- Thread starter soundswarm
- Start date
erik.van.geit
MrExcel MVP
- Joined
- Feb 1, 2003
- Messages
- 17,832
Hi,
don't use a cell to do this, but use a textbox
using a cell has major drawback*: it will disable, cut copy paste
in thisworkbookmodule
in normal module
*if you absolutely want to use a cell, whithout the drawback, there is a trick: use running-clock on other (hidden) sheet and refer to there with a formula
kind regards,
Erik
don't use a cell to do this, but use a textbox
using a cell has major drawback*: it will disable, cut copy paste
in thisworkbookmodule
Code:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
StopIt
'ThisWorkbook.Save
End Sub
Private Sub Workbook_Open()
RunIt
End Sub
Code:
Option Explicit
Dim RunOnTime As Double
Dim LastRun As Double
Sub RunIt()
Dim sec As Integer
sec = 1 'procedure will run each ... second(s)
LastRun = Timer
Sheets(1).TextBox1 = Time
RunOnTime = Now + sec / 60 / 60 / 24
Application.OnTime RunOnTime, "RunIt", , True
End Sub
Sub StopIt()
On Error Resume Next
Application.OnTime RunOnTime, "RunIt", , False
RunOnTime = 0
End Sub*if you absolutely want to use a cell, whithout the drawback, there is a trick: use running-clock on other (hidden) sheet and refer to there with a formula
kind regards,
Erik
Upvote
0
