knipperende blok

[richard024]

Hallo allemaal. 

Ik heb een timer ingebouw in excel. De laatste 10 minuten dan word het blok rood. Maar ik wil het blok dan ook laten knipperen.

Hoe kan ik dan toegevoegen Onderstaande de vba code die ik gebruikt hebt :

 

Sub start_timer()
Application.OnTime Now + TimeValue("00:00:01"), "next_tick"
End Sub

Sub next_tick()
If Blad1.Range("T4") = 0 Then Exit Sub
Blad1.Range("T4").Value = Blad1.Range("T4").Value - TimeValue("00:00:01")
If Blad1.Range("T4").Value <= TimeValue("00:00:10") Then
    Blad1.Shapes("Tekstvak 5").Fill.ForeColor.RGB = RGB(255, 0, 0)
Else
    Blad1.Shapes("Tekstvak 5").Fill.ForeColor.RGB = RGB(255, 255, 255)
 
    
End If
start_timer
End Sub

Sub stop_timer()
On Error Resume Next
Application.OnTime Now + TimeValue("00:00:01"), "next_tick", , False
End Sub
 

[richard024]

1 minuut geleden, dotchiejack zei:

Hier heb je een voorbeeldje van mij, kan je misschien aanpassen.

Zonder voorbeeld bestand kan ik je code niet aanpassen.

Tekstvak 5 of T4 zeggen me niets zonder voorbeeld, sorry mijn madam heeft mijn glazen bol in de glas container geflikkerd.😢

Knipper.xlsm 21 kB · 0 downloads

tekstvak word bij 10 seconden rood. maar wil het dan ook laten knipperen

[richard024]

Dit is het bestand. 

zodra een timer op rood springt moet hij dus ook gaan knipperen

hoop dat dit voldoende is

 

Digitale shiftoverdracht versie 2.02.xlsm

[richard024]

3 uren geleden, dotchiejack zei:

In bijlage knipper de knip.🙂

Digitale shiftoverdracht (knipper).xlsm 643 kB · 4 downloads

dank je wel voor je hulp. werkt perfect nu👍👍

[kweezie wabbit]

19 uren geleden, richard024 zei:

werkt perfect nu👍👍

Dan gaan we er van uit dat het probleem is opgelost en sluiten we het topic af.

Succes nog.