[Συναρτήσεις] Χρονόμετρο στην Excel

[Tasos]

Τζίμη έτσι,

Option Explicit

Dim ScheduledTime As Date
Dim EndTime As Date
Const ScheduledJob As String = "UpdateScreen"

Sub StartTimer()
 ' Αν δεν έχει περαστεί τιμή στη μεταβλητή EndTime, (που σημαίνει ότι είναι η πρώτη 
'εκτέλεση του StartTimer() ), τότε θα δοθεί η τιμή Now + TimeSerial(0, 20, 0) 
   If EndTime = 0 Then EndTime = TimeSerial(0, 20, 0)
    ScheduledTime = Now + TimeSerial(0, 0, 1)
    Application.OnTime EarliestTime:=ScheduledTime, _
                       Procedure:=ScheduledJob
End Sub

Sub PauseTimer()
    On Error Resume Next
   'EndTime = 0 '??? Αν θέλεις μηδενίζεις το χρονικό όριο
    Application.OnTime EarliestTime:=ScheduledTime, _
                       Procedure:=ScheduledJob, Schedule:=False
End Sub

Sub ResetTimer()
    PauseTimer
    EndTime = 0
    Sheet1.Range("F1") = TimeSerial(0, 0, 0)
End Sub

Sub UpdateScreen()
    With Sheet1.Range("F1")
        .Value = .Value + TimeSerial(0, 0, 1)  ' Η τιμή του κελιού + 1 δευτερόλεπτο.
        If .Value < EndTime Then StartTimer
    End With
End Sub

Φιλικά

Τάσος

[ΤΖΙΜΗΣ]

Τάσο ήδη το είχα κάνει αυτό, αλλά τελικά το βρήκα το λάθος.Έπρεπε να εισάγω module και όχι να το εισάγω στο βιβλίο.Τάσο αν μπορείς πες μας λίγα λόγια για την χρησιμότητα της τελευταίας διαδικασίας.(Update Screen) και αν μπορούμε να βάλουμε και ένα όριο, δηλαδή να τερματίζει το ρολόι στα 20 πρώτα λεπτά.
Μανώλη όσο αφορά ότι ξεκινά με 12.00.00 παίζεις με τη μορφοποίηση του κελιού.
Να είστε καλά.

[ΤΖΙΜΗΣ]

Τάσο δε σταματά στο πρώτο εικοσάλεπτο και επιπλέον αν επεξεργάζεσαι κάτι στο φύλλο σταματά ο χρόνος.

[Tasos]

Ναι Τζίμη, έχεις δίκιο! Δικό μου το λάθος.

Άλλαξε τη γραμμή:
If EndTime = 0 Then EndTime = Now + TimeSerial(0, 20, 0)

με αυτήν:

If EndTime = 0 Then EndTime = TimeSerial(0, 20, 0)

Καλή συνέχεια!

Τάσος

[ΤΖΙΜΗΣ]

Τάσο για μια άλλη φορά ζωγράφισες.Με βοήθησες πολύ για ένα θέμα που έχω δημιουργήσει εδώ και δύο χρόνια.Έχω ένα φύλλο με ερωτήσεις πολλαπλής επιλογής και Σ-Λ. Τώρα με αυτό το τρόπο μπορώ να ορίσω και τον προβλεπόμενο χρόνο που κάποιος πρέπει να τις απαντήσει.Βέβαια όπως και σου έγραψα και προηγουμένως το χρονόμετρο σταματά με κάποια άλλη ενέργεια, πράγμα που σε κάποιον εξεταζόμενο θα του δίνεται επιπλέον χρόνος ή και σε τελική ανάλυση να παγώνει το χρόνο.
Πάντως σε ευχαριστώ θερμά για τις λύσεις που μου δίνεις συνεχώς.

[ΤΖΙΜΗΣ]

Τάσο μήπως μπορείς να δεις ,γιατί όταν κάνεις κάποια άλλη ενέργεια μέσα στο φύλλο εργασίας, το χρονόμετρο σταματά ( φαίνεται να χάνει την εστίασή του).
Ευχαριστώ.

[Tasos]

Καλησπέρα !
Δεν θα ήταν ότι καλύτερο να συνέβαινε το αντίθετο δηλ. να είχε η μέθοδος OnTime την ύψιστη
προτεραιότητα και να "έπαιρνε το πληκτρολόγιο από τα χέρια του χρήστη".

Κάποιες άλλες διαδικασίες στην Excel που προέρχονται από ενέργειες του χρήστη έχουν την
προτεραιότητα οι οποίες με τη σειρά τους επηρεάζουν την κατάσταση της Εφαρμογής (Ready Mode) οπότε η OnTime οφείλει να περιμένει.

Γενικά η OnTime δεν θα εκτελέσει οτιδήποτε όταν την συγκεκριμένη χρονική στιγμή εκτελείται κάποια άλλη διαδικασία που απασχολεί την εφαρμογή.

Σ αυτή την περίπτωση, η Excel περιμένει μέχρι να τελειώσει η διαδικασία για να επιτρέψει στην OnTime να συνεχίσει.

Αυτό δε σημαίνει ότι το χρονόμετρο μας θα δείξει λάθος αποτελέσματα όταν το σταματήσεις χειροκίνητα.

Σημείωση: Αν έχεις τον κέρσορα μέσα στο κελί να ξέρεις ότι σχεδόν τα πάντα σταματούν στην Excel.
Δες πόσα εργαλεία γκριζάρονται εκείνη τη στιγμή.

Φιλικά

Τάσος