Excel hulp

[lentzie]

Ik ben bezig met een programma, maar zit nu ergens vast.

Ik wil als ik f1 druk (of een andere knop) dat cel A1+1 gaat. Dus elke keer als ik deze knop indruk dat A1+1 gaat.

Verder was ik ook opzoek naar een stopwatch heb er wel 1 gevonden maar deze is iets uitgebreid, kan iemand zeggen hoe ik een stopwatch krijg die alleen secondes laat zien dus geen 1,1234325 maar gewoon 1. Heb nu dit,
alvast bedankt:

Public stopMe As Boolean
Public resetMe As Boolean
Public myVal As Variant

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Column = 1 Then
        If Target.Value = myVal And Target.Value <> "" Then
            'Changed
            Dim startTime, finishTime, totalTime, timeRow
            startTime = Timer
            stopMe = False
            resetMe = False
            myTime = Target.Offset(, 2).Value
            Target.Offset(, 1).Select
startMe:
            DoEvents
            timeRow = Target.Row
            finishTime = Timer
            totalTime = finishTime - startTime
            Target.Offset(, 1).Value = Format(myTime + totalTime, "0.0000") & " Seconds"
            If resetMe = True Then
                Target.Offset(, 1).Value = 0
                Target.Offset(, 2).Value = 0
                stopMe = True
            End If
            If Not stopMe = True Then
                Target.Offset(, 2).Value = totalTime
                GoTo startMe
            End If
            Cancel = True
            End
        Else
            'Not Changed
            stopMe = True
            Cancel = True
        End If
    End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    myVal = Target.Value
End Sub

 

[Warme bakkertje]

Target.Offset(, 1).Value = Format(myTime + totalTime, "[COLOR="Red"]0[/COLOR]") & " Seconden"

Private Sub CommandButton1_Click()
[A1] = [A1] + 1
End Sub

 

[lentzie]

Oke het is nu gelukt om secondes te krijgen, thx.

Alleen nu moet ik om te beginnen en te stoppen dubbelklikken op een cel in A.

Is er niet een mogelijk dat ik een macro kan gebruiken en die kan linken met een knop(afbeelding), dus zodra ik op een knop(Afbeelding) druk dat hij begint en stopt?

En nog een vraag

In dit excel bestand heb ik een berekening die te maken heeft met het aantal secondes, deze waarde veranderd dus per seconde. Nu wil ik de waarde niet elke seconde zien veranderen maar om de 10 minuten. Is dit ook mogelijk. Zeg maar dat hij in blad 1 per seconde wordt berekend en dat ik dan vanaf blad 2 verwijs naar de cel in a1, en dat hij hem dan eens in de 10 minuten refresht.

Ik hoop dat ik duidelijk genoeg ben.

 

[danny147]

Beste lentzie

Zie bestandje stopwatch met enkel seconden en met 2 afbeeldingen start en stop.

Stopwatch .xls

Groetjes Danny. :thumb:

 

[lentzie]

Thx dat is wat ik bedoel, alleen hoe kan ik die buttons op blad 2 krijgen maar de secondes wel op blad 1 houden.

Alvast bedankt

 

[lentzie]

heb het al voor elkaar was

Sheets("stopwatch").Range("B1") = Format(Timer - timing, "0")

 

[danny147]

Beste lentzie

Indien je vraag is opgelost, gelieve deze dan op opgelost te zetten, onderaan rechts of heb je nog vragen ?

Groetjes Danny. :thumb:

 

[lentzie]

bedankt voor de hulp tot nu toe maar heb nog een vraag. Ik heb namelijk een som die gebruik maakt van de stopwatch. Dus deze waarde veranderd elke seconde. Dit werkt perfect. Alleen nu wil ik dat hij niet elke seconde deze waarde laat zien maar om de 10 minuten: VB:

Een product kost €200, elke seconde neemt deze af met €0,005 en nu wil ik om de 10 minuten een update wat het product op dit moment kost.

Ik hoop dat ik het zo goed genoeg heb uit gelegd.

 

[popipipo]

Kun je iets met dit idee?

 

[lentzie]

hmm nee niet echt.

Eigenlijk wat ik wil is:

Op blad 1 wordt per seconde een waarde uitgerekend deze cel noemen we A1.

Laat in blad 2 cel a1 om de 10 minuten cel a1 blad 1 zien