Ενώ εργαζόμουν στην IBM, ήμουν μέλος ενός κλαμπ ToastMasters International. Είναι ένα μέρος όπου μπορείτε να βελτιώσετε τις δεξιότητες επικοινωνίας και ηγεσίας σας.
Ένα ενδιαφέρον τμήμα στις εβδομαδιαίες συναντήσεις ήταν η αυτοσχέδια ομιλία. Σε αυτό το μέρος της συνάντησης, δόθηκε σε ένα άτομο ένα θέμα και έπρεπε να μιλήσει για 2 λεπτά. Υπήρχε ένα άτομο που συνήθιζε να ορίζει την ομιλία και δείχνει μια πράσινη κάρτα στο 1 λεπτό, μια κίτρινη κάρτα στο 1:30 λεπτό και μια κόκκινη κάρτα μετά από 2 λεπτά.
Συνήθως, ένα smartphone ή ένα ρολόι χρησιμοποιείται για τη χρονομέτρηση της ομιλίας και ο χρόνος που απαιτείται καταγράφεται χειροκίνητα σε ένα χαρτί.
Συχνά συμβαίνει ότι το άτομο ξεχνά να δείξει τις χρωματιστές κάρτες ή μερικές φορές ξεχνά να καταγράψει το χρονοδιάγραμμα για τα ηχεία (συνέβαινε μαζί μου όλη την ώρα). Με αυτά τα πράγματα κατά νου, έχω δημιουργήσει ένα χρονόμετρο στο Excel που θα βοηθούσε τον χρόνο και θα ηχογραφούσε τις ομιλίες.
Ας μάθουμε πρώτα πώς να δημιουργήσουμε ένα βασικό χρονόμετρο στο Excel.
Πώς να δημιουργήσετε ένα χρονόμετρο στο Excel (Basic)
Με ένα απλό/βασικό χρονόμετρο στο Excel, εννοώ κάτι που θα ξεκινούσε όταν πατάμε το κουμπί έναρξης και σταματούσε όταν πατούσαμε το κουμπί διακοπής.
Κάτι όπως φαίνεται παρακάτω:
Κατεβάστε αυτό το βασικό χρονόμετρο στο Excel
Για να δημιουργήσετε αυτό το χρονόμετρο στο Excel, πρέπει να γνωρίζετε για το Εφαρμογή.Στην ώρα μέθοδος στο VBA.
Εφαρμογή. Μέθοδος OnTime στο VBA
Application.OnTime μέθοδος μπορεί να χρησιμοποιηθεί όταν θέλετε να εκτελέσετε έναν καθορισμένο κώδικα στο μέλλον. Για παράδειγμα, μπορείτε να το χρησιμοποιήσετε για να εμφανίσετε ένα πλαίσιο μηνυμάτων για να σας υπενθυμίσει να σηκωθείτε και να τεντώσετε τα πόδια σας μετά από 1 ώρα ή να πάρετε φάρμακα μετά από 3 ώρες.
Σύνταξη εφαρμογής. Μέθοδος OnTime:
Application.OnTime (Πρώιμη ώρα, Διαδικασία, LatestTime, Πρόγραμμα)
- EarliestTime: Η ώρα που θέλετε να εκτελέσετε τη διαδικασία.
- Διαδικασία: Το όνομα της διαδικασίας που πρέπει να εκτελεστεί.
- LatestTime (Προαιρετικό): Σε περίπτωση που εκτελείται άλλος κωδικός και ο καθορισμένος κωδικός σας δεν μπορεί να εκτελεστεί την καθορισμένη ώρα, μπορείτε να καθορίσετε το LatestTime για το οποίο θα πρέπει να περιμένει. Για παράδειγμα, θα μπορούσε να είναι το EarliestTime + 45 (που σημαίνει ότι θα περιμένει 45 δευτερόλεπτα για να ολοκληρωθεί η άλλη διαδικασία). Αν ακόμη και μετά από 45 δευτερόλεπτα η διαδικασία δεν είναι σε θέση να εκτελεστεί, εγκαταλείπεται. Εάν δεν το καθορίσετε, το Excel θα περιμένει μέχρι να εκτελεστεί ο κώδικας και, στη συνέχεια, θα τον εκτελέσει.
- Χρονοδιάγραμμα (Προαιρετικό): Εάν οριστεί σε True, προγραμματίζει νέα διαδικασία ώρας. Αν είναι False, τότε ακυρώνει την προηγούμενη διαδικασία. Από προεπιλογή, αυτό είναι True.
Παράδειγμα Εφαρμογής. Μέθοδος OnTime
Sub test () Application.OnTime Now + TimeValue ("00:00:05"), "ShowMessage" End Sub Show ShowMessage () MsgBox ("HELLO") End Sub
Το πρώτο μέρος της μακροεντολής χρησιμοποιεί τη μέθοδο Application.OnTime και εκτελεί τη διαδικασία ShowMessage (σε διπλά εισαγωγικά) μετά από πέντε δευτερόλεπτα. Η διαδικασία ShowMessage εμφανίζει απλώς το πλαίσιο μηνυμάτων με το μήνυμα HELLO.
Μπορείτε να χρησιμοποιήσετε αυτήν τη μορφή για να εκτελέσετε οποιαδήποτε διαδικασία μετά από καθορισμένο χρόνο από την τρέχουσα ώρα.
Χρησιμοποιώντας τώρα αυτήν την έννοια, ας δούμε τον κώδικα για τη δημιουργία ενός απλού χρονόμετρου στο Excel.
Dim NextTick As Date, t As Date Sub StartStopWatch () t = Time Call StartTimer End Sub Sub StartTimer () NextTick = Time + TimeValue ("00:00:01") Range ("A1"). Value = Format (NextTick - t - TimeValue ("00:00:01"), "hh: mm: ss") Application.OnTime NextTick, "StartTimer" End Sub Sub StopTimer () On Error Resume Next Application.OnTime EarliestTime: = NextTick, Διαδικασία: = "StartTimer", Πρόγραμμα: = False End Sub
Αυτός ο κωδικός έχει 3 μέρη:
- Το πρώτο μέρος αρχικοποιεί τον τρέχοντα χρόνο στη μεταβλητή t. Στη συνέχεια καλεί μια άλλη διαδικασία StartTimer.
- Η διαδικασία StartTimer χρησιμοποιεί μια μεταβλητή NextTick η οποία αυξάνεται κατά 1 με κάθε δευτερόλεπτο που περνά. Στο φύλλο εργασίας, το κελί A1 έχει το χρονόμετρο όπως ορίσαμε το NextTick - t -TimeValue ("00:00:01"), "hh: mm: ss") για να είναι η τιμή σε αυτό το κελί. Στη συνέχεια, εκτελεί ξανά τον κώδικα StartTimer μετά από κάθε δευτερόλεπτο.
- Το StopTimer ακυρώνει την Εφαρμογή. Κατά τη διάρκεια της διαδικασίας, κάνοντας την τιμή του προγράμματος False. Αυτό σταματά το χρονόμετρο.
Εδώ είναι τι θα πάρετε με τον παραπάνω κώδικα (έχω εκχωρήσει τις μακροεντολές στα κουμπιά έναρξης/διακοπής):
Αυτό είναι ένα βασικό χρονόμετρο στο Excel.
Το ονομάζω βασικό καθώς δεν μπορείτε να σταματήσετε στη μέση και να κάνετε επανεκκίνηση από εκεί που φύγατε. Θα επανεκκινεί πάντα από το 1 όταν πατάτε το κουμπί έναρξης.
Τώρα που μάθατε τα βασικά της μεθόδου Application.OnTime, μπορείτε εύκολα να το τροποποιήσετε για να δημιουργήσετε όποιο χρονόμετρο θέλετε στο Excel.
Χρονόμετρο στο Excel (Για ToastMasters)
Έχω χρησιμοποιήσει την έννοια που συζητήθηκε παραπάνω και δημιούργησα ένα χρονόμετρο στο Excel που μπορεί να χρησιμοποιηθεί στη συνάντηση Toastmasters (το οποίο ανέφερα στην αρχή αυτού του σεμιναρίου).
Εδώ είναι τα πράγματα που μπορούν να γίνουν χρησιμοποιώντας αυτό το χρονόμετρο:
- Μπορείτε να σταματήσετε το χρονόμετρο και στη συνέχεια να κάνετε επανεκκίνηση από την ίδια ώρα (ηχογραφημένο μέχρι τότε).
- Μπορείτε να επαναφέρετε το χρονόμετρο. Αυτό ορίζει την τιμή του χρονοδιακόπτη στο 0. Μόλις το κάνετε αυτό καταγράφει αυτόματα τον συνολικό χρόνο που έχει παρέλθει.
- Αλλάζει το χρώμα του κουτιού χρονοδιακόπτη, ανάλογα με την τιμή του χρονόμετρου (αυτό θα μπορούσε να είναι μια καλή υπενθύμιση για την εμφάνιση των πράσινων/κίτρινων/κόκκινων καρτών).
Δείτε πώς φαίνεται:
Σε αυτό το παραπάνω demo, έχω ορίσει την αλλαγή χρώματος κάθε πέντε δευτερόλεπτα. Μπορείτε εύκολα να καθορίσετε πότε θέλετε να αλλάξει το χρώμα (η πράσινη κάρτα στο 1 λεπτό, η κίτρινη κάρτα στο 1,5 λεπτό και μια κόκκινη κάρτα στα 2 λεπτά) αλλάζοντας τις τιμές στο φύλλο υπολογισμού.
Μόλις πατήσετε το κουμπί επαναφοράς, το χρώμα του χρονοδιακόπτη θα επανέλθει στο λευκό, η τιμή του χρονοδιακόπτη θα γίνει 0 και θα καταγράψει τον χρόνο στη στήλη G.
Σημείωση: Δεδομένου ότι αυτά τα αρχεία περιέχουν μακροεντολή, θα πρέπει να ενεργοποιήσετε τις μακροεντολές πριν τη χρησιμοποιήσετε. Όταν ανοίγετε το βιβλίο εργασίας, θα δείτε ένα κίτρινο κουμπί - Ενεργοποίηση περιεχομένου. Κάντε κλικ σε αυτό για να ενεργοποιήσετε τις μακροεντολές.
Εάν δημιουργείτε κάτι δροσερό χρησιμοποιώντας ένα χρονόμετρο, μοιραστείτε το μαζί μου.
