Πώς να παρακολουθείτε τις αλλαγές κυττάρων στο Excel;
Πώς θα μπορούσατε να παρακολουθείτε κελιά ενός φύλλου εργασίας εάν τα δεδομένα αλλάξουν στο Excel; Αυτό μπορεί να σας βοηθήσει να εντοπίσετε τα αλλαγμένα κελιά όσο πιο γρήγορα μπορείτε. Σε αυτό το άρθρο, θα μιλήσω για μερικές ενδιαφέρουσες μεθόδους για την αντιμετώπιση αυτής της εργασίας στο Excel.
Παρακολούθηση αλλαγών κελιού στο Excel με λειτουργία αλλαγών παρακολούθησης
Παρακολούθηση αλλαγών κελιού στο Excel με κωδικό VBA
Παρακολούθηση αλλαγών κελιού στο Excel με λειτουργία αλλαγών παρακολούθησης
Το Excel έχει ένα χρήσιμο Παρακολούθηση αλλαγών δυνατότητα, μπορεί να σας βοηθήσει να επισημάνετε τα αλλαγμένα κελιά, κάντε τα εξής:
1. Κλίκ Βαθμολογία Κριτικής > Παρακολούθηση αλλαγών > Επισήμανση αλλαγών, δείτε το στιγμιότυπο οθόνης:
2. Στην Επισήμανση αλλαγών πλαίσιο διαλόγου, κάντε τις ακόλουθες λειτουργίες:
(1.) Έλεγχος Παρακολούθηση αλλαγών κατά την επεξεργασία. Αυτό κοινοποιεί επίσης το βιβλίο εργασίας σας.
(2.) Σύμφωνα με το Επισημάνετε ποια αλλάζει ενότητα, καθορίστε τα στοιχεία Πότε, Ποιος και Πού χρειάζεστε.
(3.) Επιτέλους, ελέγξτε Επισημάνετε τις αλλαγές στην οθόνη επιλογή.
3. Αφού ολοκληρώσετε τις ρυθμίσεις, κάντε κλικ στο OK κουμπί, τώρα, όταν αλλάζετε οποιεσδήποτε τιμές κελιού στα καθορισμένα κελιά, ένα περίγραμμα με ένα τριγωνικό εικονίδιο βρίσκεται γύρω από τα αλλαγμένα κελιά, δείτε το στιγμιότυπο οθόνης:
Note: Με αυτήν τη μέθοδο, το βιβλίο εργασίας σας θα γίνει κοινόχρηστο βιβλίο εργασίας.
Παρακολούθηση αλλαγών κελιού στο Excel με κωδικό VBA
Ο παρακάτω κώδικας VBA μπορεί επίσης να σας βοηθήσει να παρακολουθείτε τις τιμές των κυττάρων όταν αλλάζουν, κάντε το ως εξής:
1. Κάντε δεξί κλικ στην καρτέλα φύλλων που θέλετε να παρακολουθείτε τις αλλαγές κυττάρων και επιλέξτε Προβολή κωδικού από το μενού περιβάλλοντος, στο ανοιχτό Microsoft Visual Basic για εφαρμογές παράθυρο, αντιγράψτε και επικολλήστε τον ακόλουθο κώδικα VBA στην ενότητα:
Κωδικός VBA: Παρακολούθηση αλλαγών κελιού στο φύλλο εργασίας του Excel:
Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice 20160728
Dim xrng As Range
Set xrng = Range("A1:E7")
If Not Application.Intersect(xrng, Range(Target.Address)) _
Is Nothing Then
MsgBox "Cell " & Target.Address & " has changed.", vbInformation, "Kutools for Excel"
End If
End Sub
Σημείωση: Στον παραπάνω κώδικα, Α1: Ε7 είναι το εύρος δεδομένων που θέλετε να παρακολουθείτε εάν αλλάξει το κελί, μπορείτε να το αλλάξετε ανάλογα με τις ανάγκες σας.
2. Στη συνέχεια, αποθηκεύστε και κλείστε αυτό το παράθυρο κώδικα και τώρα, όταν αλλάζετε την τιμή κελιού στο καθορισμένο εύρος, θα εμφανιστεί ένα πλαίσιο μηνύματος για να σας υπενθυμίσει, δείτε το στιγμιότυπο οθόνης:
Τα καλύτερα εργαλεία παραγωγικότητας γραφείου
Αυξήστε τις δεξιότητές σας στο Excel με τα Kutools για Excel και απολαύστε την αποτελεσματικότητα όπως ποτέ πριν. Το Kutools για Excel προσφέρει πάνω από 300 προηγμένες δυνατότητες για την ενίσχυση της παραγωγικότητας και την εξοικονόμηση χρόνου. Κάντε κλικ εδώ για να αποκτήσετε τη δυνατότητα που χρειάζεστε περισσότερο...
Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη
- Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
- Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
- Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!