Πώς να Τοποθετήστε ένα χρονόμετρο αντίστροφης μέτρησης σε ένα φύλλο εργασίας του Excel

Ένα χρονόμετρο αντίστροφης μέτρησης σε ένα υπολογιστικό φύλλο του Excel θα μπορούσε να είναι χρήσιμη σε ένα φύλλο ευαίσθητες στον παράγοντα χρόνο , επιτρέποντας στο χρήστη να παρακολουθείτε πόσο χρόνο που τους έχει απομείνει πριν από ένα συγκεκριμένο γεγονός ή προθεσμία . Ενώ το Excel δεν διαθέτει τη λειτουργία αντίστροφης μέτρησης ή χαρακτηριστικό , μπορείτε να χρησιμοποιήσετε την ενσωματωμένη σε Visual Basic for Applications ( VBA ) γλώσσα προγραμματισμού για να δημιουργήσετε μια αντίστροφη μέτρηση σε ένα κελί του Excel . Οδηγίες
Η

1 Ανοίξτε το φύλλο εργασίας του Excel 2010, όπου θέλετε να προσθέσετε ένα χρονόμετρο αντίστροφης μέτρησης . Κάντε δεξί κλικ στο κελί όπου θέλετε το χρονόμετρο για να πάει και να επιλέξετε " Μορφοποίηση κελιών ". Κάντε κλικ στο " Custom" στην αριστερή πλευρά του παραθύρου που εμφανίζεται και στη συνέχεια επιλέξτε "h : mm : ss " από την λίστα στα δεξιά . Κάντε κλικ στο " OK " για να συνεχίσετε . 2

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

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

Sub Countup ( )

Dim Αντίστροφη μέτρηση Ως Ημερομηνία

Αντίστροφη μέτρηση = τώρα + TimeValue ( " 00:00:01 " )

Application.OnTime Αντίστροφη μέτρηση ", Realcount "

End Sub

Αυτός ο κωδικός θα επιτρέπει το υπόλοιπο του κώδικα για να επεξεργαστεί μία φορά κάθε δευτερόλεπτο .
Η

4 Πιέστε enter για να αποκτήσετε πρόσβαση σε μια νέα γραμμή στη σελίδα. Εισάγετε στο ακόλουθο κώδικα : Sub

Realcount ( )

Dim μετράνε Όπως Σειρά

Set count = [ Ε1 ] Ξενοδοχεία

count.Value = count.Value - TimeSerial ( 0 , 0 , 1 )

Εάν ο αριθμός <= 0 τότε

MsgBox

Exit Sub

End If "Αντίστροφη μέτρηση ολοκληρώθηκε . "

Καλέστε Countup

End Sub

Αλλαγή " Ε1 " σε ό, τι κελί που θέλετε να χρησιμοποιήσετε για την αντίστροφη μέτρηση . Αυτός ο κώδικας κάνει την πραγματική αντίστροφη μέτρηση και έλεγχοι για να δούμε αν ολοκληρωθεί η αντίστροφη μέτρηση .
5

Κάντε κλικ στο " Χ " στην επάνω δεξιά γωνία της κονσόλας για να το κλείσετε .
Η 6

Επιλέξτε το κελί που χρησιμοποιείτε για την αντίστροφη μέτρηση και να εισάγετε τον επιθυμητό χρόνο αντίστροφης μέτρησης σας . Να είστε βέβαιος ότι εισάγετε τις ώρες , λεπτά και δευτερόλεπτα , ακόμα και αν οι ώρες και τα λεπτά είναι μηδέν . " 2:30 " είναι δύο ώρες και τριάντα λεπτά? " 0:2:30 " είναι δύο λεπτά και τριάντα δευτερόλεπτα
Η

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