Prev Previous Post   Next Post Next
  #1   Report Post  
Posted to microsoft.public.excel.misc
Runner77
 
Posts: n/a
Default VBA Code Help


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

 
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules

Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On


Similar Threads
Thread Thread Starter Forum Replies Last Post
Change case...help please Terry Excel Worksheet Functions 14 October 2nd 05 12:29 PM
Macro for changing text to Proper Case JPriest Excel Worksheet Functions 3 August 8th 05 09:31 PM
Using other workbooks.. DavidMunday Excel Worksheet Functions 2 July 1st 05 07:35 AM
Make Change Case in Excel a format rather than formula Kevin Excel Worksheet Functions 1 March 18th 05 08:53 PM
Opening a file with code without a set file name jenkinspat Excel Discussion (Misc queries) 1 March 4th 05 10:50 AM


All times are GMT +1. The time now is 02:51 PM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Copyright ©2004-2025 ExcelBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Excel"