[manolis]

Αρχική Δημοσίευση από manolis

Καλησπέρα σε όλη την παρέα.

Φτιάχνω ένα αρχείο για να κάνω κάποιες χρονομετρήσεις.
Χρησιμοποιω την NOW σε κάποια κελιά . Αυτή όμως δείχνει την τρέχουσα ώρα. πχ 1:00:00
Θα ήθελα αν γίνεται να φαίνεται ο χρόνος που κυλάει δηλαδή 1:00:00 , 1:00:01 , 1:00:02 κλπ

Επειδή το PC που θα δουλέψει το αρχείο εχει το 2003 αν είναι δυνατον η απάντηση να είναι για 2003

Σας ευχαριστώ

Ψάχνοντας στον θειο γκογκλη βρήκα αυτον τον κώδικα με τον οποίο ξεκινάει το ρολοι.

Αλλα δεν βρίσκω πως να το σταματήσω

Private Sub Workbook_Open()
If Range("A1").Value = "" Then
Range("A2").Value = Time
Range("A2").Interior.ColorIndex = xlNone
Columns("A:A").AutoFit
Reset_Clock
End If
End Sub
Sub Reset_Clock()
Application.OnTime Now() + TimeValue("00:00:01"), "Update_Clock"
End Sub

Sub Update_Clock()
If Range("A2").Interior.ColorIndex = 36 Then
Exit Sub
End If
Range("A2").Value = Range("A2").Value + 1 / 86400
Reset_Clock
End Sub