Μέχρι τώρα, εξετάζαμε πώς να δημιουργήσετε drop-down λίστες στο Excel. Σήμερα θα δείξω πώς να δημιουργήσετε μια αναπτυσσόμενη λίστα με πολλαπλές επιλογές στο Excel .

Κατεβάστε το βιβλίο ασκήσεων

Μπορείτε να κατεβάσετε το βιβλίο ασκήσεων από εδώ.

Διαδικασίες βήμα προς βήμα για τη δημιουργία Drop Down List στο Excel με πολλαπλές επιλογές

Εδώ, έχουμε ένα σύνολο δεδομένων με μια στήλη Όνομα βιβλίου το οποίο περιέχει κάποια ονόματα βιβλίων. Ο στόχος μας σήμερα είναι να δημιουργήσουμε μια αναπτυσσόμενη λίστα με βάση αυτό το σύνολο δεδομένων που δέχεται πολλαπλές επιλογές. Θα δείξω βήμα προς βήμα τις διαδικασίες στην παρακάτω ενότητα.

ΒΗΜΑ 1: Δημιουργία αναπτυσσόμενης λίστας με χρήση επικύρωσης δεδομένων

Για τη δημιουργία μιας αναπτυσσόμενης λίστας με πολλαπλές επιλογές, πρέπει πρώτα να δημιουργήσουμε μια αναπτυσσόμενη λίστα. Ας δούμε τις διαδικασίες.

• Αρχικά, επιλέξτε το κελί στο οποίο θέλετε να δημιουργήσετε την αναπτυσσόμενη λίστα. Έχω επιλέξει Κελί D5 .

• Στη συνέχεια, μεταβείτε στο Δεδομένα και επιλέξτε Επικύρωση δεδομένων από την κορδέλα.

• Στη συνέχεια, από το Επικύρωση δεδομένων παράθυρο, επιλέξτε Λίστα στο Επιτρέψτε το και γράψτε τα κελιά της περιοχής των οποίων τα δεδομένα θέλετε να προσθέσετε στη λίστα στην ενότητα Πηγή πεδίο.
• Εναλλακτικά, μπορείτε να κάνετε κλικ στο μικρό βέλος προς τα πάνω στο παράθυρο Πηγή και επιλέξτε την περιοχή δεδομένων από το φύλλο εργασίας.

• Τέλος, θα δούμε μια αναπτυσσόμενη λίστα που δημιουργήθηκε στο Κελί D5 .

Παρόμοιες αναγνώσεις:

• Πώς να δημιουργήσετε μια αναπτυσσόμενη λίστα στο Excel (ανεξάρτητη και εξαρτημένη)
• Κάντε πολλαπλή επιλογή από αναπτυσσόμενη λίστα στο Excel (3 τρόποι)
• Πώς να δημιουργήσετε εξαρτημένη αναπτυσσόμενη λίστα στο Excel
• Δημιουργία Drop Down List σε πολλαπλές στήλες στο Excel (3 τρόποι)

ΒΗΜΑ 2: Ενεργοποίηση της αναπτυσσόμενης λίστας για να δέχεται πολλαπλή επιλογή μέσω κώδικα VBA

Έχουμε ήδη δημιουργήσει την αναπτυσσόμενη λίστα. Τώρα, ήρθε η ώρα να προετοιμάσουμε την αναπτυσσόμενη λίστα για πολλαπλές επιλογές. Θα χρησιμοποιήσω την επιλογή 2 VBA κώδικες για να επιτρέψετε στη λίστα να δέχεται πολλαπλές επιλογές. Ένας θα δέχεται την επανάληψη των δεδομένων και ένας άλλος δεν θα δέχεται την επανάληψη των δεδομένων.

Περίπτωση 1: Κώδικας VBA για πολλαπλές επιλογές με επανάληψη

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

Ας δούμε τις διαδικασίες.

• Πρώτον, πατήστε ALT + F11 για να ανοίξετε το VBA παράθυρο.
• Στη συνέχεια, επιλέξτε Εξερευνητής έργου . Επίσης, διπλό - κάντε κλικ στο στο φύλλο όπου θέλετε να γίνει η εργασία.

• Ταυτόχρονα, ένα Κωδικός θα ανοίξει το παράθυρο.
• Στη συνέχεια, Γράψτε τον ακόλουθο κώδικα σε αυτό το παράθυρο.

 Private Sub Worksheet_Change(ByVal Target As Range) Dim Oldvalue As String Dim Newvalue As String On Error GoTo Exitsub If Target.Address = "$D$5" Then If Target.SpecialCells(xlCellTypeAllValidation) Is Nothing Then GoTo Exitsub Else: If Target.Value = "" Then GoTo Exitsub Else Application.EnableEvents = False Newvalue = Target.Value Application.Undo Oldvalue = Target.Value If Oldvalue = "" ThenTarget.Value = Newvalue Else Target.Value = Oldvalue & ", " & Newvalue End If End If End If End If Application.EnableEvents = True Exitsub: Application.EnableEvents = True End Sub 

• Τέλος, επιστρέψτε στο φύλλο εργασίας και θα μπορούμε να επιλέξουμε πολλαπλά στοιχεία στην αναπτυσσόμενη λίστα με επανάληψη του ίδιου στοιχείου.

Περίπτωση 2: Κώδικας VBA για πολλαπλή επιλογή χωρίς επανάληψη

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

Ας δούμε τις διαδικασίες.

• Πρώτον, πατήστε ALT + F11 για να ανοίξετε το VBA παράθυρο.
• Στη συνέχεια, επιλέξτε Εξερευνητής έργου . Επίσης, διπλό - κάντε κλικ στο στο φύλλο όπου θέλετε να γίνει η εργασία.

• Ταυτόχρονα, ένα Κωδικός θα εμφανιστεί το παράθυρο.
• Στη συνέχεια, πληκτρολογήστε τον ακόλουθο κώδικα σε αυτό το παράθυρο.

 Private Sub Worksheet_Change(ByVal Target As Range) Dim Oldvalue As String Dim Newvalue As String Application.EnableEvents = True On Error GoTo Exitsub If Target.Address = "$D$5" Then If Target.SpecialCells(xlCellTypeAllValidation) Is Nothing Then GoTo Exitsub Else: If Target.Value = "" Then GoTo Exitsub Else Application.EnableEvents = False Newvalue = Target.Value Application.Undo Oldvalue =Target.Value If Oldvalue = "" Then Target.Value = Newvalue Else If InStr(1, Oldvalue, Newvalue) = 0 Then Target.Value = Oldvalue & ", " & Newvalue Else: Target.Value = Oldvalue End If End If End If End If End If Application.EnableEvents = True Exitsub: Application.EnableEvents = True End Sub 

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

Συμπέρασμα

Χρησιμοποιώντας αυτή τη μέθοδο, μπορείτε να δημιουργήσετε μια αναπτυσσόμενη λίστα στο Excel με πολλαπλές επιλογές. Έχετε ερωτήσεις; Μπορείτε να μας ενημερώσετε στο τμήμα σχολίων. Επισκεφθείτε το τμήμα μας Ιστοσελίδα ExcelWIKI για περισσότερα άρθρα σχετικά με Excel .