Home |
Search |
Today's Posts |
#1
![]()
Posted to microsoft.public.excel.misc
|
|||
|
|||
![]() Hi Guys, Below is some code to start a stopwatch and run in Mins & Seconds I would also like it to include hours as well. Public Sub startClock() Dim start Range("F6").Select start = Timer Do While stopped = False DoEvents Worksheets("Stopw").Range("F4").Value = Int((Timer - start + 0.5) / 60) Worksheets("Stopw").Range("H4").Value = (Timer - start) Mod 60 Worksheets("Stopw").Range("I4").Value = (Timer - start + 0.5) - (Int(Timer - start + 0.5)) Loop End Sub -- Runner77 ------------------------------------------------------------------------ Runner77's Profile: http://www.excelforum.com/member.php...o&userid=30388 View this thread: http://www.excelforum.com/showthread...hreadid=507113 |
#2
![]()
Posted to microsoft.public.excel.misc
|
|||
|
|||
![]()
Hi Runner77,
Try... Worksheets("Stopw").Range("D4").Value = Int((Timer - start + 0.5) / 3600) for hour in D4 since there are 3600 sec per hour. Ken Johnson |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
![]() |
||||
Thread | Forum | |||
Change case...help please | Excel Worksheet Functions | |||
Macro for changing text to Proper Case | Excel Worksheet Functions | |||
Using other workbooks.. | Excel Worksheet Functions | |||
Make Change Case in Excel a format rather than formula | Excel Worksheet Functions | |||
Opening a file with code without a set file name | Excel Discussion (Misc queries) |