Χρησιμοποιώντας μακροεντολές για την αποθήκευση βιβλίων εργασίας όταν τα κελιά Αλλαγή

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

Στο παράδειγμα που εμφανίζεται, θέλετε να αποθηκεύσετε το βιβλίο εργασίας όταν κάνετε μια επεξεργασία σε οποιοδήποτε από τα κελιά της περιοχής C5: C16.

αλλαγή κυψέλης στο C5: Το C16 αναγκάζει το βιβλίο εργασίας να αποθηκευτεί.

Πώς λειτουργεί η μακροεντολή

Το μυστικό σε αυτόν τον κώδικα είναι η μέθοδος Intersect. Επειδή δεν θέλετε να αποθηκεύσετε το φύλλο εργασίας όταν αλλάξετε κάποιο παλιό κελί, χρησιμοποιείτε τη μέθοδο Intersect για να προσδιορίσετε αν το κελί στόχος (το κελί που άλλαξε) τέμνει το εύρος που ορίζεται ως εύρος ενεργοποίησης (C5: C16 στην περίπτωση αυτή).

Η μέθοδος Intersect επιστρέφει ένα από τα δύο πράγματα: ένα αντικείμενο εύρους που ορίζει τη διασταύρωση μεταξύ των δύο δεδομένων περιοχών ή τίποτα. Επομένως, στην ουσία, πρέπει να ρίξετε το κύτταρο στόχο κατά της μεθόδου Intersect για να ελέγξετε την τιμή του Τίποτα. Σε αυτό το σημείο, μπορείτε να αποφασίσετε αν θα αποθηκεύσετε το βιβλίο εργασίας.

Ιδιωτικό υποεξυτόριο_διαλλαγής (ByVal στόχος ως εύρος) 'Βήμα 1: Μήπως η εναλλασσόμενη περιοχή τέμνει; Αν δεν υπάρχει διασταύρωση, ακολουθήστε το βήμα 2: Αν δεν υπάρχει τομή, ακολουθήστε την διαδικασία Exit Sub 'Βήμα 3: Αν υπάρχει διασταύρωση, αποθηκεύστε το βιβλίο εργασίας Άλλο ActiveWorkbook. Αποθήκευση 'Βήμα 4: Κλείσιμο της εντολής If End If End Sub

Στο Βήμα 1, απλά ελέγξτε αν το κύτταρο-στόχο (το κυψελωτό που έχει αλλάξει) βρίσκεται στο εύρος που καθορίζεται από τη μέθοδο Intersect. Μια τιμή του Τίποτα δεν σημαίνει ότι το κύτταρο-στόχος βρίσκεται εκτός της καθορισμένης περιοχής.

Το βήμα 2 αναγκάζει τη μακροεντολή να σταματήσει και να εξέλθει από τη διαδικασία αν δεν υπάρχει διασταύρωση μεταξύ της κυψέλης στόχου και της καθορισμένης περιοχής.

Εάν υπάρχει μια διασταύρωση, το Βήμα 3 ενεργοποιεί τη μέθοδο Αποθήκευσης του ενεργού βιβλίου εργασίας, αντικαθιστώντας την προηγούμενη έκδοση.

Στο βήμα 4 απλά κλείνετε τη δήλωση If. Κάθε φορά που ξεκινάτε έναν έλεγχο If-Then-Else, πρέπει να το κλείσετε με ένα αντίστοιχο End If.

Πώς να χρησιμοποιήσετε τη μακροεντολή

Για να εφαρμόσετε αυτήν τη μακροεντολή, πρέπει να αντιγράψετε και να την επικολλήσετε στο παράθυρο κώδικα συμβάντος Worksheet_Change. Η τοποθέτηση της μακροεντολής εδώ επιτρέπει να εκτελείται κάθε φορά που κάνετε οποιαδήποτε αλλαγή στο φύλλο:

1. Ενεργοποιήστε τον επεξεργαστή της Visual Basic πατώντας Alt + F11.

2. Στο παράθυρο του έργου, βρείτε το όνομα του έργου / του βιβλίου εργασίας σας και κάντε κλικ στο σύμβολο συν δίπλα του για να δείτε όλα τα φύλλα.

3. Κάντε κλικ στο φύλλο από το οποίο θέλετε να ενεργοποιήσετε τον κώδικα.

4. Στην αναπτυσσόμενη λίστα Συμβάν, επιλέξτε το συμβάν αλλαγής.

5. Πληκτρολογήστε ή επικολλήστε τον κώδικα στη νεοδημιουργηθείσα λειτουργική μονάδα, αλλάζοντας τη διεύθυνση εμβέλειας ώστε να ανταποκρίνεται στις ανάγκες σας.

   

   Καταχωρίστε τον κωδικό σας στο συμβάν αλλαγής φύλλου εργασίας.