View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.misc
FSt1 FSt1 is offline
external usenet poster
 
Posts: 3,942
Default Display constanlty updating time in a cell

hi
see this site...
http://www.mvps.org/dmcritchie/excel/datetime.htm

it a large site, all about dates, time, funcntions about times/dates etc.
good site
but you will be looking for the real time clock towards the bottom.

regards
FSt1

"Paul Kraemer" wrote:

Hi,

I am using Excel 2007. I would like to configure a cell so that it will
display the current time. If feasible, I would like this cell to be
automatically updated once per second. I can set the cell formula =Now(),
but this does not get automatically updated. So far, the only way I have
come up with is to create a Sub and use the Application.OnTime function to
call it once per second. (I called this Sub pkPeriodic and I listed it
below).

Anyway, my pkPeriodic Sub does the job, but it makes the user experience
terrible. It is very noticeable that my script is running €“ you can see the
cursor briefly disappear/reappear once per second. This seems to briefly
take control away from the user to the extent that it makes it difficult to
for him/her to use the worksheet.

If anyone can think of a better way I can do this, I would really appreciate
it.

Thanks,
Paul

PS..Here is my Sub pkPeriodic()

Public Sub pkPeriodic()

Application.OnTime EarliestTime:=Now + TimeValue("00:00:01"), _
Procedu="pkPeriodic"
wksParams.Range("CurTime") = Time
End Sub