timer plaatsen in exel

[kurt123]

graag had ik een timer geplaatst die optelt en die ik kan stoppen en opnieuw kan laten starten dus start ,stop en reset knop
en ook had ik graag een cel van kleur zien veranderen als de timer op een bepaalde tijd is
bv: timer staat op 00:00:05 cel D10 groen
timer staat op 00:00:06 cel D10 geen kleur
timer staat op 00:00:08 cel D10 groen
Timer staat op 00:00:09 cel G10 rood
Timer staat op 00:01:00 cel G10 geen kleur enz......

wie kan mij daar bij helpen

 

[huijb]

Visual Basic is iets anders dan Visual Basic for Applications. Verplaatst naar juiste sectie.

 

[kurt123]

timer

graag had ik een timer geplaatst die optelt en die ik kan stoppen en opnieuw kan laten starten dus start ,stop en reset knop
en ook had ik graag een cel van kleur zien veranderen als de timer op een bepaalde tijd is
bv: timer staat op 00:00:05 cel D10 groen
timer staat op 00:00:06 cel D10 geen kleur
timer staat op 00:00:08 cel D10 groen
Timer staat op 00:00:09 cel G10 rood
Timer staat op 00:01:00 cel G10 geen kleur enz......

wie kan mij daar bij helpen

heb al antwoorden gekregen maar geraak niet verder
had graag timer gehad zoals hierbioven beschreven
mvg kurt

 

[HSV]

Ik heb je hier een antwoord gegeven, maar doe er eens een bestandje bij hoe het ritme er uit ziet.

 

[kurt123]

timer

kan de bestanden niet uploaden

 

[HSV]

Het hoeft geen groot bestand te zijn.
Welke melding krijg je.

 

[kurt123]

timer

hier mijn code het lukt al een beetje
maar mijn timer wil niet vanaf 00:00:00 starten moet steeds tijd ingeven en dan telt hij af
en zoals je kan zien wordt de cel B10 rood als de timer op 00:00:03 staat grag zou ik de kleur van cel B10 naar geel zetten als de timer op 00:00:005 staat
gaat dit ?
ook krijg op het einde steeds de foutmelding fout 1004 tijdens uitvoering
in bijlage mijn timer

Sub Countup()
 
Dim Countup As Date
 
Countup = Now + TimeValue("00:00:01")
 
Application.OnTime Countup, "Realcount"
 
End Sub

Sub Realcount()
 
Dim count As Range
 
Set count = [B2]
 
count.Value = count.Value - TimeSerial(0, 0, 1)

If Range("B2") = TimeValue("00:00:03") Then

Range("B10").Interior.Color = vbRed

Else

Range("B10").Interior.Color = vbWhite
 
End If

If Range("B2") = TimeValue("00:00:03") Then

Range("F10").Interior.Color = vbYellow

Else

Range("F10").Interior.Color = vbWhite
 
End If

If Range("B2") = TimeValue("00:00:03") Then

Range("J10").Interior.Color = vbGreen

Else

Range("J10").Interior.Color = vbWhite
 
End If

If Range("B2") = TimeValue("00:00:03") Then

Range("N10").Interior.Color = vbBlue

Else

Range("N10").Interior.Color = vbWhite
 
End If
 
Call Countup
 
End Sub

 

[HSV]

count.Value = count.Value [SIZE="3"][COLOR="red"]+[/COLOR][/SIZE] TimeSerial(0, 0, 1)

 

[kurt123]

oke mijn timer start nu van 0 maar kan ik hem ook stoppen en terug verder laten lopen en resetten
en graag ook op andere vraag antwoord

mvg kurt

 

[HSV]

Zoiets?

 

[kurt123]

ja bedankt
kan ik nu ook nog de
cellen van kleur laten veranderen op een bepaald tijdstip van de timer
zoals beschreven in vorige vraag

 

[kurt123]

timer

hoi,
hier in bijlage mijn timer zoals hij nu is ,is hij bijna goed
heb nog 1 probleem
als de timer op 00:00::03 staat kleuren de cellen B10,F10,J10 en N10
graag zou ik de cellen ook laten kleuren op een ander tijdstip is dat mogelijk
alvast bedankt Bekijk bijlage timer 12 kurt bijna goed.rar

 

[HSV]

Hoi,

Sub Realcount()
 Dim count As Range
 
Set count = [B2]
 Range("B10,F10,J10,N10").Interior.Color = vbWhite
   count.Value = count.Value + TimeSerial(0, 0, 1)

Select Case count
 Case TimeValue("00:00:03")
   Range("B10").Interior.Color = vbRed
   Range("F10").Interior.Color = vbYellow
   Range("J10").Interior.Color = vbGreen
   Range("N10").Interior.Color = vbBlue
 Case TimeValue("00:00:15")
   Range("B10").Interior.Color = vbRed
   Range("F10").Interior.Color = vbYellow
   Range("J10").Interior.Color = vbGreen
   Range("N10").Interior.Color = vbBlue
 End Select
If Range("A1") = "stop" Then Exit Sub
  Call Countup
End Sub

 

[kurt123]

timer

hoi
heel erg bedankt he
heb nog 1 vraagje
kan ik de timer ook op 10 van seconde laten tellen

mvg kurt