Lap Timer and Running Average

[Josh96]

Hi there!

I'm trying to set up a lap timer in Excel, with the ability to do up to 100 laps. I've seen things like this are possible, but haven't found a useful source which explains to me how to do it. If anyone can point me in the direction of a good tutorial or something it'd be much appreciated!

However, I also want to be able to keep track of the average of the 10 most recent lap times. Is there a neat way to get Excel to be able to do this for me, or will I be stuck with having to do this manually?

Thanks in advance!

 

[rpaulson]

try this on a blank file

Option Explicit
Private startTime As Single

Sub StartButton_Click()
    Range("A:B").ClearContents
    Range("A1") = "Start"
    startTime = Timer
End Sub
Sub LapButton_Click()
    Dim finalTime As Single, lr As Long
    finalTime = Timer - startTime
    lr = Cells(Rows.Count, "A").End(xlUp).Row + 1
    Cells(lr, "A") = Format(finalTime, "0.000")
    If lr = 2 Then Cells(lr, "B") = Cells(lr, "A")
    If lr > 2 Then Cells(lr, "B") = Cells(lr, "A") - Cells(lr - 1, "A")
End Sub

create 2 buttons
start button - will erase your data in column A & B the time to start over
lap button - will write the time in column A since the start button was pressed and in column B it will write the lap time

hth,

Ross