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

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

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

Η αλλαγή ενός κελιού στο C5:C16 αναγκάζει το βιβλίο εργασίας να αποθηκεύσει.

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

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

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

Ιδιωτικό δευτερεύον φύλλο εργασίας_Αλλαγή (ByVal Στόχος ως εύρος)
'Βήμα 1: Τέμνεται το αλλαγμένο εύρος;
    Αν το Intersect(Target, Range("C5:C16")) δεν είναι τίποτα τότε
'Βήμα 2: Εάν δεν υπάρχει διασταύρωση, βγείτε από τη διαδικασία
    Έξοδος υπο
'Βήμα 3: Εάν υπάρχει διασταύρωση, αποθηκεύστε το βιβλίο εργασίας
    Αλλού
    ActiveWorkbook.Save
'Βήμα 4: Κλείστε τη δήλωση If
    Τέλος εαν
End Sub