NOW() Function PROBLEM SOLVED, NICELY TOO

[elgringo56]

When using the NOW() function, the date and time are displayed, but the time remains static from that point on. Is there a function that will allow the date and time to display and the time to incriment with the clock?
This message was edited by elgringo56 on 2002-08-22 23:37

 

[Juan Pablo González]

If what you need is to have a "live" clock, then the NOW() function is partially your solution. You know that the NOW() function recalculates everytime any cell changes ? not *all* the time...

 

[elgringo56]

Thats kewl, the problem is, I have no cells changing. My sheet is full of menu buttons that get selected, and that doesn't change the time.

 

[Jay Petrulis]

Hi,

The NOW() function is volatile, so it will update at any worksheet change.

If you are looking for a clock timer in an Excel worksheet function, I think you would have to use VBA in a userform or have an event macro which is triggered by time increments, possibly by changing an "unused" cell. This would probably slow your spreadsheet to a crawl.

 

[Juan Pablo González]

To get a real, live clock, check this link:

http://www.xl-logic.com/pages/vba.html

Number 1.

 

[elgringo56]

Jay, that really isn't a problem as this sheed does nothing but sit there and wait for some one to click on a button to iniate some task. It is the main page of a multi page task group and is what is up most of the time in the store in a just sit there mode. I thought it would be nice if the time kept up in the header. However, I have know idea in the man in the moon how to do that.

 

[PaddyD]

Or for something a little sillier from j-walk (get excel chart to behave like an analog clock):

http://j-walk.com/ss/excel/files/clockchart.htm

 

[brettvba]

Well This will do it and leave you working give it a try.

Sub Z()
Application.OnTime now + TimeValue("00:00:1"), "Z"
If Range("a1").Value <> now() Then Calculate
End Sub


Brett

 

[Jay Petrulis]

Hi Brett,

Nice job.

Another option to try...

<pre>Sub test()

With Application
.OnTime Now, "test"
.Caption = Now
End With
End Sub</pre>

 

[elgringo56]

Wow, inundated with stuff here. Will take me a bit to sort through all this. Thanks guys