Από μόνο του, το Excel δεν διαθέτει λειτουργία που να περιλαμβάνει χρονόμετρο αντίστροφης μέτρησης. Ωστόσο, με μια γλώσσα προγραμματισμού που ονομάζεται Visual Basic για εφαρμογές, είναι δυνατό να γράψετε μια απλή μακροεντολή για να εκτελέσετε τη λειτουργία αντίστροφης μέτρησης. Αυτό το άρθρο δείχνει πώς να δημιουργήσετε μια μακροεντολή που επιτρέπει σε ένα χρονόμετρο να μετράει αντίστροφα έως και 12 ώρες, κατάλληλο για διαχείριση χρόνου μέσα σε ένα φύλλο εργασίας.
Μορφοποιήστε το κελί του χρονοδιακόπτη
Βήμα 1
Σε ένα νέο, ανοιχτό φύλλο εργασίας, μεταβείτε στο κελί A1. Αυτή θα είναι η θέση του παραδείγματος χρονοδιακόπτη.
Το βίντεο της ημέρας
Βήμα 2
Πίστωση εικόνας: Η εικόνα είναι ευγενική προσφορά της Microsoft
Κάντε δεξί κλικ στο κελί Α'1 και επιλέξτε Μορφοποίηση κελιών.
Βήμα 3
Πίστωση εικόνας: Η εικόνα είναι ευγενική προσφορά της Microsoft
Επιλέγω χρόνος από το πλαίσιο Κατηγορία και επιλέξτε μία από τις μορφές ωρών: λεπτά: δευτερόλεπτα. Κάντε κλικ Εντάξει για να ορίσετε τη μορφή κελιού.
Δημιουργήστε τη Μακροεντολή
Βήμα 1
Πίστωση εικόνας: Η εικόνα είναι ευγενική προσφορά της Microsoft
Μεταβείτε στο παράθυρο επεξεργασίας της Visual Basic πατώντας ALT-F11. Κάντε κλικ Εισάγετε από τη γραμμή μενού και κάντε κλικ Μονάδα μέτρησης.
Βήμα 2
Πίστωση εικόνας: Η εικόνα είναι ευγενική προσφορά της Microsoft
Πληκτρολογήστε το ακόλουθο κείμενο στο παράθυρο Module1:
Dim gCount As Date
Sub Timer()
gCount = Now + TimeValue ("00:00:01")
Εφαρμογή. OnTime gCount, "EndMessage"
End Sub
Sub EndMessage()
Dim xRng ως εύρος
Ορισμός xRng = Εφαρμογή. Ενεργό Φύλλο. Εύρος ("A1")
xRng. Τιμή = xRng. Value - TimeSerial (0, 0, 1)
Αν xRng. Τιμή <= 0 Τότε
MsgBox "Η αντίστροφη μέτρηση ολοκληρώθηκε."
Έξοδος υπο
Τέλος εαν
Χρονοδιακόπτης κλήσης
End Sub
Μπορείς αντιγραφή και επικόλληση το κείμενο του κώδικα παραπάνω ή μπορείτε να το πληκτρολογήσετε γραμμή προς γραμμή στο παράθυρο Module1. Το πρόγραμμα επεξεργασίας VBA εφαρμόζει μορφοποίηση όπως απαιτείται.
Βήμα 3
Πίστωση εικόνας: Η εικόνα είναι ευγενική προσφορά της Microsoft
Ελαχιστοποιήστε το παράθυρο VBA κάνοντας κλικ στο - σύμβολο στην επάνω δεξιά γωνία. Κάντε κλικ Αρχείο στην κορδέλα και Αποθήκευση ως. Επιλέξτε μια τοποθεσία για να αποθηκεύσετε το αρχείο σας. Στο παράθυρο Αποθήκευση ως, δώστε ένα όνομα στο βιβλίο εργασίας σας και επιλέξτε Βιβλίο εργασίας με δυνατότητα Macro-Enabled (*.xlsm) από το Αποθήκευση ως τύπος αναπτυσσόμενη λίστα. Κάντε κλικ Σώσει και επιστρέψτε στο βιβλίο εργασίας.
Χρήση του χρονοδιακόπτη
Βήμα 1
Κάντε κλικ στο κελί Α'1 και μπείτε 0:3:0, μετά πατήστε Εισαγω. Αυτό ρυθμίζει την ώρα για 0 ώρες, 3 λεπτά και 0 δευτερόλεπτα.
Βήμα 2
Κάντε κλικ στο Θέα καρτέλα στην κορδέλα και κάντε κλικ Μακροεντολές. Επιλέγω Μετρών την ώραν από τη λίστα Macro και κάντε κλικ Τρέξιμο. Το κελί του χρονοδιακόπτη σας θα αρχίσει να μετράει αντίστροφα μέχρι το μηδέν, όταν α Ολοκληρώθηκε η αντίστροφη μέτρηση ανοίγει το παράθυρο διαλόγου. Κάντε κλικ Εντάξει για να επιστρέψετε στη δουλειά σας.
Υπόδειξη
Δεν χρειάζεται να χρησιμοποιήσετε το κελί A1. Τοποθετήστε το χρονόμετρο σας οπουδήποτε και αλλάξτε την αναφορά κελιού στη γραμμή 8 του κωδικού του χρονοδιακόπτη από A1 σε όποιο κελί χρησιμοποιείτε.
