Stop and continue stopwatch excel vba

Status
Niet open voor verdere reacties.

keesdh

Gebruiker
Lid geworden
19 feb 2016
Berichten
11
Hoi,

I want to have an excel vba sheet where I have 2 bottons 1 start /continue and one stop/pause. This time must be linked with a cell.

Can anyone help me with this?

With kind regards,

Kees
 
Hallo Case,

Het is helpmij.nl
Niet helpme.com
 
Geintjes Kees ;)
Plaats eens een voorbeeld document van wat je al hebt.
 
Bekijk bijlage Stopwatch.xls

Dank voor je hulp. zie bijgevoegd. en ik wil dan dat als ik op stop druk de tijden niet naar 0 gaan zodat als ik weer op start druk dat de tijd weer verder gaat waar hij gebleven is.
 
In which other english forum did you ask the same question ?
 
@snb

none. But if you have found a solution please let me know.
 
Wat je eigen code betreft moet de variabele "timing" alleen worden gevuld als deze leeg is:
If timing = 0 Then timing = Timer
 
@edmoor

Wat jij hebt voorgesteld werkt niet. Wat ik eigenlijk wil is een soort pause in de stopwatch. dus ik druk op start en dan gaat de tijd lopen en als ik dan op pause druk staat de tijd stil en als ik dan weer op start druk gaat de tijd weer verder
 
Je vraag ging over de Stop knop en dat werkt hier prima.
Nu heb je het ineens over de Pause knop.
 
Laatst bewerkt:
@ edmoor. Dat klopt de stop werkt inderdaad wel zoals jij voorstelt. zou jij mij kunnen helpen met deze pauze knop?
 
Ik zie in je document geen Pauzeknop?
Gebruik de Startknop ervoor met de wijziging die ik voorstelde.
Zonder die wijziging kan je dat als Startknop gebruiken die dan altijd met 0 begint.
 
Laatst bewerkt:
Code:
Option Explicit
Public timing As Double
Public running As Boolean

Private Sub CommandButton1_Click()
    'start timer
    Range("A1") = "Tijden"
    timing = Timer
    running = True
    Do While running
        Range("B1") = Format(Timer - timing, "0.00") & " seconden"
        DoEvents
    Loop
End Sub

Private Sub CommandButton2_Click()
    'stop timer
    running = False
    Range("A1").End(xlDown).Select
End Sub

Private Sub CommandButton3_Click()
    'zet tussentijd weg
    If timing = 0 Then timing = Timer
    Range("A65536").End(xlUp).Offset(1, 0) = Range("B1")
End Sub

Private Sub CommandButton4_Click()



End Sub

Dit heb ik nu dus een nieuwe knop met pauze maar weet niet welke code ik daar moet invullen
 
Je kunt niet echt pauzeren als je de Timer() functie gebruikt. Die geeft altijd het aantal seconden na middernacht terug.
Kijk naar wat snb schreef in #8.
 
Beste Edmoor,
Dank voor je hulp. ik heb al een oplossing gevonden.
 
So what I wanted was the total time when he is running. So what I did was created a button “tussentijden” When you press this button he shows you the meantime.

# Mean time
Time 5 sec.
Paused 10 sec
Time 30 sec.

If you now adding up all the time when he show time then you know how long he was running. Of you addig up al the pause time you know how long he paused.
And adding up thing I did with a sum.if (A1:A3; “=time”; B1:B1) and then total time – time = pause = sum.if (A1:A3; “=pause”; B1:B1).
I hope you understand what I mean.
 
Volgens mij is dit geen taal die Excel begrijpt.
Welke VBA-code gebruik je nu?
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan