Αυτό το σεμινάριο θα δείξει πώς να χρησιμοποιήσετε την Επικύρωση δεδομένων για εργασία με αναπτυσσόμενες λίστες στο Excel χρησιμοποιώντας VBA.
Η επικύρωση δεδομένων Excel σας επιτρέπει να περιορίσετε τις τιμές που μπορούν να εισαχθούν σε ένα κελί ή εύρος. Μπορείτε να περιορίσετε τις καταχωρήσεις σε θετικούς ακέραιους αριθμούς, κείμενο, ημερομηνίες και πολλά άλλα. Σε αυτό το σεμινάριο, θα εξετάσουμε πώς να δημιουργήσετε μια αναπτυσσόμενη λίστα επικύρωσης δεδομένων σε ένα κελί χρησιμοποιώντας VBA.
Σημείωση: Μια εναλλακτική λύση στην αναπτυσσόμενη λίστα Επικύρωση δεδομένων είναι ένα αντικείμενο ListBox. Τα ListBoxes μπορούν να προστεθούν σε φύλλα εργασίας του Excel. Τα ListBoxes μπορούν να ενεργοποιήσουν μακροεντολές που εκτελούνται κάθε φορά που αλλάζει μια τιμή ListBox. Τα ListBoxes χρησιμοποιούνται επίσης σε VBA Userforms.
Δημιουργία αναπτυσσόμενης λίστας με χρήση VBA
Έχουμε το κείμενο Φρούτα στο κελί Α1 και πρόκειται να δημιουργήσουμε μια αναπτυσσόμενη λίστα στο κελί Α2, με πέντε καταχωρήσεις.
Θα χρησιμοποιήσουμε τη μέθοδο Validation.Add και θα καθορίσουμε ότι η παράμετρος Type είναι xlValidateList. Μπορείτε να προσθέσετε τα συγκεκριμένα στοιχεία που θέλετε στη λίστα σας χρησιμοποιώντας την παράμετρο Formula1.
Ο ακόλουθος κώδικας θα δημιουργήσει μια αναπτυσσόμενη λίστα επικύρωσης δεδομένων στο κελί A2:
| 123456 | Sub DropDownListinVBA ()Εύρος ("A2"). Validation.Add Type: = xlValidateList, AlertStyle: = xlValidAlertStop, _Formula1: = "Πορτοκάλι, Μήλο, Μάνγκο, Αχλάδι, Ροδάκινο"Τέλος υπο |
Το αποτέλεσμα είναι:
Συμπληρώστε μια αναπτυσσόμενη λίστα από μια ονομαστική περιοχή στο VBA
Μπορείτε να χρησιμοποιήσετε μια ονομαστική περιοχή που περιέχει τα στοιχεία, για να συμπληρώσετε μια αναπτυσσόμενη λίστα στο VBA. Έχουμε τα ονόματα των ζώων που εμφανίζονται παρακάτω:
Πρέπει να ορίσουμε την παράμετρο Formula1 ίση με την ονομαζόμενη περιοχή. Ο ακόλουθος κώδικας θα δημιουργήσει μια αναπτυσσόμενη λίστα επικύρωσης δεδομένων στο κελί A7 με βάση τα στοιχεία της ονομαζόμενης περιοχής:
| 123456 | Sub PopulateFromANamedRange ()Εύρος ("A7"). Validation.Add Type: = xlValidateList, AlertStyle: = xlValidAlertStop, _Formula1: = "= Ζώα"Τέλος υπο |
Το αποτέλεσμα είναι:
Κατάργηση της αναπτυσσόμενης λίστας
Μπορείτε να χρησιμοποιήσετε τη μέθοδο Validation.Delete για να καταργήσετε την αναπτυσσόμενη λίστα από το κελί. Ο ακόλουθος κώδικας θα καταργήσει την αναπτυσσόμενη λίστα από το κελί A7 στο παραπάνω παράδειγμα:
| 12345 | Sub RemoveDropDownList ()Εύρος ("A7"). Επικύρωση. ΔιαγραφήΤέλος υπο |
