Active Clock

[richblake74]

Is there anyway of getting an "Active Clock" in a cell.
I know the =now() thing, but this is not what I am looking for,
I would like to get a clock that updates by the minute, without having to select a cell, or make excel do a calculation.
Hope you are all having fun with excel 2007
richblake74

 

[VoG]

Try

Range("U2").Value = Now() - Date

and make sure U2 is formatted as Time. But Right_Click's code is much better.

 

[Steveo59]

Thank you works well.

 

[Legacy 98055]

Bump because the code I posted earlier contained an error.

 

[Greg Truby]

Tom,

Looks to me like this does fire up the CPU a bit. On my machine if Excel has focus, it looks like the CPU burns at between 60% & 80% of capacity and if Excel does not have focus it hums along using about 20% of capacity.

Interesting the jump in CPU usage when Excel gets focus. Any ideas on why that would be?

Just curious,

 

[Legacy 98055]

I don't know Greg. Running the Resource Monitor on Vista, there was no jump in CPU or memory. I lowered the firing time from 1000 to 5 milliseconds and there was a neglible jump from 1.15 to 1.28. Is there another process I should be looking at? I suppose that you are speaking of the "Excel" process?

 

[Legacy 98055]

This code fired it up to 49.12
Sub sdfsdf()
Do: DoEvents: Loop
End Sub

Application.OnTime Now + TimeSerial(1, 0, 0), "Hi"

Placed it at 1.88

 

[erik.van.geit]

strange behaviour

I quoted out lines with "caption" and "Range", but cell A1 as well as the caption are still updating

Sub Tick(ByVal dwParamOrCancel As Long, ByVal hwnd As Long, ByVal Milliseconds As Long, ByVal nEventId As Long)
    On Error Resume Next
    'Application.Caption = Now
    Application.StatusBar = Now
    'Range("A1").Value = Now
End Sub

What am I missing here ??

best regards,
Erik

 

[Legacy 98055]

Erik. Stop the timer before you edit the code. I don't know much about the internals, but I suppose that addressof locks the compiler out until it is released by KillTimer.

 

[erik.van.geit]

Thank you for your answer, Tom.
I should have told explicitly, that I restarted Excel to check it out: even then the application.caption and the cell were updating.

Now after some hours, restarted computer: still same problem??? Very strange isn't it?

In fact the caption is displaying the date & time AND the name of active workbook!!

(Office XP, Windows 98SE)

 

[Legacy 98055]

Sounds like you have an extra excel.exe running. Well... Two is better than one. Right?