Voilà Koen
Option Explicit
Public timing As Double
Public running As Boolean
'code opgesteld door Wim Gielis, augustus 2006
'www.oplossing.be/index.php?board=79
Private Sub CommandButton1_Click()
'start stopwatch
Dim tijd As String
Range("A1") = "Rugnummer"
Range("B1") = "Tijden"
timing = Timer
running = True
Do While running
tijd = ""
tijd = tijd & Format(Int((Timer - timing) / 3600), "00") & ":"
tijd = tijd & Format(Int(((Timer - timing) - Int((Timer - timing) / 3600) * 3600) / 60), "00") & ":"
tijd = tijd & Format((Timer - timing) - 3600 * Int((Timer - timing) / 3600) - _
60 * Int(((Timer - timing) - Int((Timer - timing) / 3600) * 3600) / 60), "00.00")
Range("C1") = tijd
DoEvents
Loop
End Sub
Private Sub CommandButton2_Click()
'stop timer
running = False
Range("C1").Select
End Sub
Private Sub CommandButton3_Click()
'zet tussentijd weg
Dim ans As Long
If timing < 0 Then timing = timing + 1440
On Error Resume Next
ans = InputBox("Geef het wedstrijdnummer in.", "Tijd wegschrijven")
Range("A65536").End(xlUp).Offset(1, 0) = ans
Range("B65536").End(xlUp).Offset(1, 0) = Range("C1")
End Sub
Wigi
Beste wigi (wim)
Heb vorige berichtjes allemaal eens uitgeprobeerd en ze weken allemaal fantastich op eentje na vind ik.
Bij het automatisch aan tijd een rugnummer toevoegen vind ik dat dit in werkelijk niet uitvoerbaar is.
Wanneer twee lopers binnen komen met een verschil van
0,5 sec. of 2 sec. heeft men de tijd niet om deze twee te
reistreren met rugnummer en tijd.
Mijn vraag is nu, kan men in het werblad typen terwijl de tijd loopt, heb dit gedaan maar de tijd stopt dan.
De bedoeling is als ik op tussentijd drukt van twee lopers
die kort op elkaar binnen komen dat ik achteraf de rugnummer op mijn gemak er kan voorzetten terwijl de tijd nog verder loopt.
Zie bijlage (voorbeeld van tijden xls)
Groetjes Danny