Πώς να δημιουργήσετε ένα χρονόμετρο στο Excel

Ένας χρονοδιακόπτης Excel είναι αυτός που θα κάθεται μέσα σε ένα κελί και θα μετράει τα δευτερόλεπτα καθώς σημειώνουν. Το Excel δεν διαθέτει αυτό το είδος δυνατότητας στο τυπικό σύνολο εργαλείων του προγράμματος, οπότε για να ολοκληρώσετε τη δουλειά θα πρέπει να χρησιμοποιήσετε τη Visual Basic for Applications, μια γλώσσα προγραμματισμού που περιλαμβάνει η Microsoft στα κύρια προϊόντα του Office. Μόλις έχετε πρόσβαση στην κονσόλα VBA, η δημιουργία χρονομέτρου περιλαμβάνει μόνο την προσθήκη μερικών εντολών.

1

Ανοίξτε ένα νέο υπολογιστικό φύλλο Excel 2010. Μόλις φορτωθεί το φύλλο, κάντε δεξί κλικ στο κελί όπου θέλετε να είναι ο χρονοδιακόπτης σας και επιλέξτε "Μορφοποίηση κελιών" από το αναδυόμενο μενού.

2

Επιλέξτε "Time" από τη λίστα στην αριστερή πλευρά του παραθύρου Format Cells. Στη συνέχεια, κάντε κλικ σε μία από τις μορφές ώρας από τη λίστα στη δεξιά πλευρά. Βεβαιωθείτε ότι η επιλογή σας περιλαμβάνει δευτερόλεπτα, καθώς θα πρέπει να τα δείτε για να γνωρίζετε ότι ο χρονοδιακόπτης σας λειτουργεί. Κάντε κλικ στο "OK" για να κλείσετε το παράθυρο.

3

Πατήστε "Alt" και "F11" για να ανοίξετε την κονσόλα VBA. Κάντε δεξί κλικ στο "Sheet1" που βρίσκεται στην αριστερή πλευρά της κονσόλας. στη συνέχεια μετακινήστε το ποντίκι σας πάνω από το "Εισαγωγή" και επιλέξτε "Ενότητα". Κάντε κλικ στην ενότητα που εμφανίζεται κάτω από τα φύλλα εργασίας στη λίστα.

4

Κάντε κλικ οπουδήποτε στον μεγάλο λευκό χώρο στη δεξιά πλευρά της κονσόλας VBA. Επικολλήστε τον ακόλουθο κώδικα στην κονσόλα:

Dim CD As Date Sub RunTime () CD = Now + TimeValue ("00:00:01") Application.OnTime CD, "Counter" End Sub Sub Counter () Dim count As Range Set count = [A1] count.Value = count.Value - 1.1574074074074E-05 Call RunTime End Sub Sub DisableCount () On Error Resume Next Application.OnTime EarmostTime: = CD, Διαδικασία: = "Counter", Πρόγραμμα: = False End Sub

Αλλάξτε το "A1" σε οποιοδήποτε κελί χρησιμοποιείτε για την αντίστροφη μέτρηση. Αυτός ο κωδικός θα δημιουργήσει τρεις ξεχωριστές μακροεντολές, δύο για την εκτέλεση της αντίστροφης μέτρησης και μία για την απενεργοποίηση της αντίστροφης μέτρησης εάν θέλετε να την απενεργοποιήσετε. Κάντε κλικ στο "X" στην επάνω δεξιά γωνία της κονσόλας VBA για να το κλείσετε και να επιστρέψετε στο υπολογιστικό φύλλο σας.

5

Κάντε κλικ στο κελί χρονοδιακόπτη και εισαγάγετε το χρονικό διάστημα που θέλετε στο χρονόμετρο στο κελί. Εισαγάγετε την ώρα σε ώρα, λεπτό, δεύτερη μορφή (hh: mm: ss) για να βεβαιωθείτε ότι το Excel κατανοεί τι εισάγετε.

6

Κάντε κλικ στην καρτέλα "Προγραμματιστής" στο επάνω μέρος της οθόνης σας και, στη συνέχεια, κάντε κλικ στο κουμπί "Μακροεντολή" στην κορδέλα. Επιλέξτε τη μακροεντολή "Μετρητής" από τη λίστα και επιλέξτε "Εκτέλεση". Ο χρονοδιακόπτης θα αρχίσει να μετράει από την αρχική ώρα που εισαγάγατε.