-
If you would like to post, please check out the MrExcel Message Board FAQ and register here. If you forgot your password, you can reset your password.
Stop Watch / Chronometer for excel
- Thread starter brites
- Start date
erik.van.geit
MrExcel MVP
- Joined
- Feb 1, 2003
- Messages
- 17,832
Hi,
feel free to send me an email
I've made one some years ago
subject: stopwatch
kind regards,
Erik
feel free to send me an email
I've made one some years ago
subject: stopwatch
kind regards,
Erik
Upvote
0
erik.van.geit
MrExcel MVP
- Joined
- Feb 1, 2003
- Messages
- 17,832
email sent
for future reference: how it works
some controls needed
buttons
ExitBtn
ResetBtn
StartBtn
StopBtn
LapBtn
Labels
ElapsedTimeLbl
Laplbl
for future reference: how it works
some controls needed
buttons
ExitBtn
ResetBtn
StartBtn
StopBtn
LapBtn
Labels
ElapsedTimeLbl
Laplbl
Code:
Option Explicit
Dim StopTimer As Boolean
Dim Etime As Single
Dim Etime0 As Single
Dim LastEtime As Single
Dim lapnr As Integer
Private Sub ExitBtn_Click()
StopTimer = True
Unload Me
End Sub
Private Sub ResetBtn_Click()
StopTimer = True
Etime = 0
Etime0 = 0
LastEtime = 0
ElapsedTimeLbl.Caption = "00:00:00.00"
End Sub
Private Sub StartBtn_Click()
StopTimer = False
Etime0 = timer() - LastEtime
Me.Repaint
Do Until StopTimer
Etime = Int((timer() - Etime0) * 100) / 100
If Etime > LastEtime Then
LastEtime = Etime
ElapsedTimeLbl.Caption = Format(Etime / 86400, "hh:mm:ss.") & Format(Etime * 100 Mod 100, "00")
DoEvents
End If
Loop
End Sub
Private Sub StopBtn_Click()
StopTimer = True
Laplbl = ""
Beep
End Sub
Private Sub LapBtn_click()
Laplbl.Caption = ElapsedTimeLbl
lapnr = lapnr + 1
Range("A" & lapnr) = "lap " & lapnr
Range("B" & lapnr) = ElapsedTimeLbl
End Sub
Private Sub UserForm_Activate()
Range("A:B") = ""
ElapsedTimeLbl = "00:00:00.00"
End Sub
Upvote
0
I GOT IT!
Thanx!
Sub StartBtn_Click()
StopTimer = False
Etime0 = timer() - LastEtime
Do Until StopTimer
Etime = Int((timer() - Etime0) * 100) / 100
If Etime > LastEtime Then
LastEtime = Etime
ActiveSheet.Cells(1, 1).Value = Format(Etime / 86400, "hh:mm:ss.") & Format(Etime * 100 Mod 100, "00")
DoEvents
End If
Loop
End Sub
Thanx!
Sub StartBtn_Click()
StopTimer = False
Etime0 = timer() - LastEtime
Do Until StopTimer
Etime = Int((timer() - Etime0) * 100) / 100
If Etime > LastEtime Then
LastEtime = Etime
ActiveSheet.Cells(1, 1).Value = Format(Etime / 86400, "hh:mm:ss.") & Format(Etime * 100 Mod 100, "00")
DoEvents
End If
Loop
End Sub
Upvote
0
Greetings,
I'm fairly new to VBA's and ok with Excel. I'm trying to use the code for the stopwatch found in this thread and I can't get it to work. I've cut and pasted the code in and made the buttons but I don't know what to do with the labels. I tried to go to Insert>name>label in a cell but that didn't do anything. Any help would be much appreciated
I'm fairly new to VBA's and ok with Excel. I'm trying to use the code for the stopwatch found in this thread and I can't get it to work. I've cut and pasted the code in and made the buttons but I don't know what to do with the labels. I tried to go to Insert>name>label in a cell but that didn't do anything. Any help would be much appreciated
Upvote
0
Well...........After tinkering forever and asking a lot of friends, I got this macro to work. But if I enter data into other cells, the stopwatch stops running. Is there anything I can write in the macro to have the stopwatch keep running and input other data into the worksheet at the same time.
Again, I'm not very good at this and I'm struggling so any help would be much appreciated.
Thanks in advance!
Again, I'm not very good at this and I'm struggling so any help would be much appreciated.
Thanks in advance!
Upvote
0
