Knipperrende cursor

[Roma]

Beste,
Ik heb van internet een mooie code gevonden om een klok te plaatsen in Excel.
Nu knippert de cursor constant.
Weet iemand hoe je dit op kunt losssen
Alvast bedankt
Ron

 

[edmoor]

Wijzig de Start en Stop routines eens in het volgende:

Sub StartClock()
    Application.Cursor = xlIBeam
    UpdateClock
End Sub

Sub StopClock()
'   Cancels the OnTime event (stops the clock)
    On Error Resume Next
    Application.OnTime NextTick, "UpdateClock", , False
    Application.Cursor = xlDefault
End Sub

 

[Roma]

Edmoor,
Bedankt voor je reactie. Op blad1 gaat het goed maar op de volgende tabbladen helaas niet.

 

[edmoor]

Excel is ook niet gemaakt voor dat soort dingen. Op het moment dat de klok wordt bijgewerkt, iedere seconde dus, wordt het blad met de klok aangesproken en dat blijf je zien. Als je op een ander sheet bezig bent zie je de klok niet en hoeft deze dus eigenlijk ook niet te lopen. Zet daarom deze code achter het blad Clock:

Private Sub Worksheet_Activate()
    StartClock
End Sub

Private Sub Worksheet_Deactivate()
    StopClock
End Sub

De klok wordt dan bij het openen van het document ook direct gestart.

 

[Roma]

Je hebt eigenlijk helemaal gelijk. Maar het was zo'n leuke fun.
De start en stopknop staan er al op. Maar toch bedankt voor je reactie.
Ron

 

[edmoor]

En het blijft gewoon werken als je het doet zoals ik voorstelde. Dat staat los van die start en stop knoppen. Zie bijgevoegd document.

Bekijk bijlage Clock.xlsm

 

[Roma]

Het werkt.
Bedankt

 

[edmoor]

Dat bedoel ik