Lopende klok

[Koos Timmer]

Hallo.

als ik de tijd instel in een cel en druk niet op de f9 loopt het niet door.

hoe kan ik een werkelijk lopende tijd maken zonder iets te moeten indrukken ?.

Groeten.

 

[SillyMelody]

?????????? Zoiets ?????????

Zie bijlage

 

[Koos Timmer]

Hartelijk dank voor deze files.

ik zit nu te kijken hoe het is gemaakt zodat ik de werking ook begrijp.

Maar nu zou ik graag uitleg willen hebben hoe ik het zelf kan maken.

de stop en start snop , maar vooral het digitale klokje zelf =nu() dit gebruik ik ook maar de klok loopt dan niet.

ben benieuwd Groeten Koos.

 

[Wigi]

Hier bij Andy Pope staan ook nog enkele knappe klokken, voor het geval ze hierboven niet vermeld staan in het lijstje. (Ik heb het zelf niet nagekeken.)

 

[jpvs]

dit is de link van Wigi : http://www.andypope.info/fun/clocks.htm


Zelf wat geprobeerd maar?

Zet dit in ThisWorkbook :

Private Sub Workbook_Open()
  Tijd
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Application.OnTime Now + TimeValue("00:00:01"), "Tijd", , True
End Sub

en dit in een module :

Sub Tijd()
    Dim interval As Date
    
    interval = TimeValue("00:00:01")
    Worksheets(1).Range("A1") = Format(Time, "hh:mm:ss")
    Application.OnTime Now + interval, "Tijd"
End Sub

De tijd komt in cel A1 te staan bij het openen van het bestand en loopt door.

OPLETTEN : je kunt het bestand niet sluiten omdat de macro door loopt?
de Tijd bij het sluiten komt altijd terug (een door lopende lus).

Waarschijnlijk heeft Wigi er een oplossing voor.


Pierre

 

[oxclan]

ik heb iets leuks voor je zie plaatje wil je dat je xp er ook zo uitziet doenload dit dan klik hier

 

[Koos Timmer]

Hallo

Allemaal hartelijk dank voor de reactie.

er staan erg veel leuke dingen bij.

groeten Koos.