Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Time Function
Are there other functions beside NOW() that I can use to have the correct time displayed in a cell ?
|
#2
|
|||
|
|||
What's wrong with the NOW() function that means you need a different one?
|
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Time Function
On Tuesday, September 11, 2012 3:36:34 PM UTC-4, (unknown) wrote:
Are there other functions beside NOW() that I can use to have the correct time displayed in a cell ? For some reason it does not update all the time - there are pauses in the updates. So I'm looking for a time function that reflects the current time (hh:mm:ss) continuosly over the course of the day. |
#4
|
|||
|
|||
Quote:
Dim PleaseStopMe As Boolean Sub StopIt() PleaseStopMe = True End Sub Sub StartClock() PleaseStopMe = False Do Range("B9").Value = Format(Now, "hh:mm:ss") DoEvents If PleaseStopMe Then Exit Sub Loop End Sub To stop the clock, run the StopIt macro |
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
Time Function
Hi all
I use this nice chunk of code which works very nicely, essentially this saves the workbook to 2 locations ( 2 is a backup ), it also stamps ( C2 ) with the time it was last saved so you have a visual reference of it. If you want to trogger some other type of event, simply replace the SaveBook routine, and or the timer frequency with your desired timeframe in which to fire. Put this in the "ThisWorkbook" Private Sub Workbook_Open() StartTimer End Sub Private Sub Workbook_BeforeClose(Cancel As Boolean) StopTimer End Sub Then in a Module, use this to start the timer, it is currently set to trigger ever 30 minutes.. Option Explicit Public RunTime Sub StartTimer() RunTime = Now + #12:30:00 AM# Application.OnTime RunTime, "SaveBook", schedule:=True End Sub Sub SaveBook() StartTimer ChDir "C:\" ActiveWorkbook.SaveAs Filename:= _ "C:\WowSchedMaster.xls", FileFormat:=xlNormal, _ Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _ CreateBackup:=False ChDir "T:\WOW VIC\wow scheduler" ActiveWorkbook.SaveAs Filename:="T:\WOW VIC\wow scheduler\WowSchedMaster.xls", _ FileFormat:=xlNormal, Password:="", WriteResPassword:="", _ ReadOnlyRecommended:=False, CreateBackup:=False ActiveSheet.Select Range("C2").Select Selection.NumberFormat = "hh:mm" Selection.Value = Now() End Sub And finally, this stops the timer... Sub StopTimer() On Error Resume Next Application.OnTime RunTime, "SaveBook", schedule:=False End Sub HTH Mick. |
#7
Posted to microsoft.public.excel.programming
|
|||
|
|||
Time Function
|
#8
|
|||
|
|||
Quote:
Try it |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Is there an XLS function to convert std time to Military time? | Excel Worksheet Functions | |||
Macro / function text time to 24hr excel time passed midnight fortotaling hr's | Excel Worksheet Functions | |||
verify use of TIME Function, Find Quantity Level compare to time-d | Excel Discussion (Misc queries) | |||
Function Call Specified at Run Time rather than Compile Time? | Excel Programming | |||
Function to convert Time String to Time | Excel Worksheet Functions |