1. Χρήση συμβάντος αλλαγής φύλλου εργασίας:
* βήματα:
1. Κάντε δεξί κλικ στην καρτέλα φύλλο και επιλέξτε " Προβολή κωδικού ".
2. Στον επεξεργαστή VBA, επιλέξτε " φύλλο εργασίας "Από το αντικείμενο" "Dropdown και" Αλλαγή "Από τη διαδικασία" "DREPDOWN.
3. Εισαγάγετε τον ακόλουθο κωδικό:
`` `vba
Ιδιωτικό Sub Workshange_Change (Byval Target As Range)
Εάν το Target.address ="$ A $ 1" τότε "αντικαταστήστε" $ A $ 1 "με τη διεύθυνση κυττάρων
Εάν το target.value ="yourpredefinedValue" τότε
Καλέστε το Yourmacroname 'Αντικαταστήστε το "Yourmacroname" με το πραγματικό όνομα μακροεντολής
Τέλος εάν
Τέλος εάν
Τερματισμός
`` `
* Αντικαταστήστε το `" $ A $ 1 "` με την πραγματική διεύθυνση κυττάρων που θέλετε να παρακολουθείτε.
* Αντικαταστήστε το `" YourpredefinedValue "` με την τιμή που θέλετε να ενεργοποιήσετε τη μακροεντολή.
* Αντικαταστήστε το `" Yourmacroname "` με το πραγματικό όνομα της μακροεντολής που θέλετε να εκτελέσετε.
* Επεξήγηση:
* Το συμβάν "φύλλο εργασίας_change" ενεργοποιείται κάθε φορά που αλλάζει μια κυτταρική τιμή στο φύλλο.
* Ο κώδικας ελέγχει εάν το μεταβαλλόμενο κύτταρο είναι το καθορισμένο κύτταρο και εάν η τιμή του ταιριάζει με την προκαθορισμένη τιμή.
* Εάν πληρούνται και οι δύο προϋποθέσεις, καλεί την καθορισμένη μακροεντολή.
2. Χρήση επικύρωσης δεδομένων:
* βήματα:
1. Επιλέξτε το κελί που θέλετε να παρακολουθείτε.
2. Πηγαίνετε στα δεδομένα καρτέλα και κάντε κλικ στο επικύρωση δεδομένων .
3. Στις ρυθμίσεις καρτέλα, επιλέξτε προσαρμοσμένο Από το επιτρέψτε αναπτυσσόμενο αναπτυσσόμενο.
4. Στον τύπο πεδίο, εισάγετε:
`` `
=A1 ="YourpredefinedValue"
`` `
* Αντικαταστήστε το `" YourpredefinedValue "` με την πραγματική τιμή που θέλετε να ενεργοποιήσετε τη μακροεντολή.
5. Πηγαίνετε στην ειδοποίηση σφάλματος καρτέλα και επιλέξτε Ειδοποίηση σφαλμάτων μετά την εισαγωγή μη έγκυρων δεδομένων .
6 στο μήνυμα σφάλματος πεδίο, εισαγάγετε τα εξής:
`` `
Αυτό το κύτταρο πρέπει να περιέχει την τιμή "YourpredefinedValue"
`` `
* Αντικαταστήστε το `" YourpredefinedValue "με την πραγματική τιμή.
7. Κάντε κλικ στο ok Για να αποθηκεύσετε τις ρυθμίσεις.
8. Κάντε δεξί κλικ Στο κελί και επιλέξτε " Αντιστοιχίστε τη μακροεντολή ".
9. Επιλέξτε τη μακροεντολή που θέλετε να εκτελέσετε και κάντε κλικ στο ok .
* Επεξήγηση:
* Η επικύρωση δεδομένων περιορίζει το κύτταρο για να αποδεχθεί μόνο την προκαθορισμένη τιμή.
* Όταν ο χρήστης εισάγει μια μη έγκυρη τιμή, εμφανίζεται ένα μήνυμα σφάλματος και η μακροεντολή που έχει εκχωρηθεί στο κελί εκτελείται.
3. Χρησιμοποιώντας μια φόρμουλα με ένα συμβάν φύλλου εργασίας:
* βήματα:
1. Δημιουργία Ένας τύπος σε ένα κρυφό κύτταρο που αξιολογεί σε «αληθές» όταν το παρακολούθησης κυττάρων ισούται με την προκαθορισμένη τιμή. Για παράδειγμα, στο κελί `b1`:
`` `
=A1 ="YourpredefinedValue"
`` `
* Αντικαταστήστε το `" YourpredefinedValue "με την πραγματική τιμή.
2. Κάντε δεξί κλικ στην καρτέλα φύλλο και επιλέξτε " Προβολή κωδικού ".
3. Στον επεξεργαστή VBA, επιλέξτε " φύλλο εργασίας "Από το αντικείμενο" "Dropdown και" Υπολογίστε "Από τη διαδικασία" "DREPDOWN.
4. Εισαγάγετε τον ακόλουθο κωδικό:
`` `vba
Ιδιωτικό Sub Worksheet_Calculate ()
Εάν το εύρος ("b1"). Value =true τότε "αντικαταστήστε" b1 "με το κύτταρο που περιέχει τον τύπο
Καλέστε το Yourmacroname 'Αντικαταστήστε το "Yourmacroname" με το πραγματικό όνομα μακροεντολής
Εύρος ("b1"). Value =false 'επαναφέρετε το κελί σε ψευδές
Τέλος εάν
Τερματισμός
`` `
* Αντικαταστήστε το "B1" `με την πραγματική διεύθυνση κυττάρων που περιέχει τον τύπο.
* Αντικαταστήστε το `" Yourmacroname "` με το πραγματικό όνομα της μακροεντολής που θέλετε να εκτελέσετε.
* Επεξήγηση:
* Το συμβάν "φύλλο εργασίας_calculate" ενεργοποιείται κάθε φορά που εμφανίζεται ένας υπολογισμός στο φύλλο.
* Ο κώδικας ελέγχει εάν η τιμή στο κύτταρο του τύπου είναι `true '.
* Εάν είναι `true ', καλεί την καθορισμένη μακροεντολή και στη συνέχεια επαναφέρει το κύτταρο του τύπου σε` false' για να αποτρέψει την επαναλαμβανόμενη εκτέλεση.
Επιλέξτε την καλύτερη μέθοδο με βάση τις συγκεκριμένες απαιτήσεις σας και την πολυπλοκότητα του υπολογιστικού φύλλου σας.
Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα