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

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

Πάρτε το αρχείο δείγματος για εξάσκηση.

Διαδικασίες βήμα προς βήμα για τη δημιουργία πολλαπλών επιλογών ListBox στο Excel

Για να διευκολύνουμε τη διαδικασία, την έχουμε χωρίσει σε 8 βήματα για καλύτερη κατανόηση. Έτσι, χωρίς περαιτέρω καθυστέρηση, ας περάσουμε στα παρακάτω βήματα για να δούμε πώς μπορούμε να δημιουργήσουμε μια πολυ-επιλογή ListBox στο Excel.

Βήμα 1: Δημιουργία πίνακα Excel από σύνολο δεδομένων

Αρχικά, πρέπει να προετοιμάσουμε ένα δείγμα συνόλου δεδομένων και να το μετατρέψουμε σε πίνακα. Για να το κάνουμε αυτό, ακολουθήστε τα παρακάτω βήματα.

• Πρώτον, δημιουργήστε ένα σύνολο δεδομένων με τις πληροφορίες του 10 ονόματα πόλεων και τα Συνολικός πληθυσμός του ΗΠΑ till 1, Ιούλιος στο Εύρος κυττάρων B5:C14 .

• Τώρα, κάντε κλικ σε οποιοδήποτε κελί του συνόλου δεδομένων και επιλέξτε Πίνακας από το Εισαγωγή καρτέλα.

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

• Ως αποτέλεσμα, θα δείτε ότι το σύνολο δεδομένων μετατρέπεται σε πίνακα.

• Μαζί με αυτό, μπορείτε να βρείτε τον πίνακα στο Όνομα πίνακα πλαίσιο κάτω από το Σχεδιασμός τραπεζιών καρτέλα

• Μπορείτε να αλλάξετε το όνομα του πίνακα ανάλογα με τις προτιμήσεις σας.

Διαβάστε περισσότερα: Πώς να δημιουργήσετε εξαρτημένη αναπτυσσόμενη λίστα στο Excel

Βήμα 2: Ονομασία λίστας συνόλων δεδομένων από τον Διαχειριστή ονομάτων

Τώρα, θα ονομάσουμε κάθε κατηγορία εύρους κελιών από τον πίνακα. Για το σκοπό αυτό, ακολουθήστε τα βήματα.

• Πρώτον, επιλέξτε οποιοδήποτε κελί από το Στήλη Β στον πίνακα.
• Στη συνέχεια, μεταβείτε στο Τύποι και επιλέξτε Ορισμός ονόματος .

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

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

• Ως αποτέλεσμα, θα δείτε τη λίστα των ονομάτων μαζί με το όνομα του πίνακα στο παράθυρο Αναφέρεται σε και πατήστε OK .

• Ακολουθήστε την ίδια διαδικασία, για το Εύρος κυττάρων C5:C14 επίσης.
• Τέλος, θα δείτε τα ονόματα στο Πλαίσιο ονόματος στην επάνω αριστερή γωνία του βιβλίου εργασίας.

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

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

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

• Στη συνέχεια, στο Ρυθμίσεις καρτέλα, επιλέξτε Λίστα στο Επιτρέψτε το κουτί.

• Επίσης, το σήμα έλεγξε το Αγνοήστε το κενό και Αναδυόμενο μενού εντός του κελιού κουτιά.

• Στη συνέχεια, κάντε κλικ στο Πηγή σε αυτό το παράθυρο και πατήστε F3 στο πληκτρολόγιό σας.
• Ως αποτέλεσμα, θα δείτε το Όνομα επικόλλησης παράθυρο διαλόγου με τη λίστα ονομάτων.
• Εδώ, επιλέξτε CityNames από τη λίστα και πατήστε OK .

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

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

Βήμα 4: Εισαγωγή κώδικα VBA στο επικυρωμένο φύλλο εργασίας

Τώρα έρχεται το κρίσιμο μέρος της εισαγωγής VBA κώδικα για τη δημιουργία ενός ListBox . Ακολουθεί η σχετική διαδικασία.

• Πρώτον, κάντε δεξί κλικ στο επικυρωμένο φύλλο εργασίας και επιλέξτε Προβολή κωδικού από το Μενού περιβάλλοντος .

• Στη συνέχεια, εισάγετε αυτόν τον κώδικα στη σελίδα.

 Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim rngDV As Range Dim oldVal As String Dim newVal As String Dim strList As String On Error Resume Next Application.EnableEvents = False Set rngDV = Cells.SpecialCells(xlCellTypeAllValidation) On Error GoTo exitHandler If rngDV Is Nothing Then GoTo exitHandler If Not Intersect(Target, rngDV) Is Nothing Then If Target.Validation.Type = 3Then strList = Target.Validation.Formula1 strList = Right(strList, Len(strList) - 1) strDVList = strList frmDVList.Show End If End If exitHandler: Application.EnableEvents = True End Sub 

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

• Στη συνέχεια, μετονομάστε την ενότητα σε modSettings και εισάγετε αυτόν τον κώδικα.

 Option Explicit Global strDVList As String 

Χάρη στην Πλαίσια για την παροχή των κωδικών.

Βήμα 5: Δημιουργία UserForm με Listbox & Κουμπιά

Σε αυτό το στάδιο, θα δημιουργήσουμε ένα UserForm για το βιβλίο εργασίας μαζί με ένα ListBox και μερικά Κουμπιά εντολών Για να το κάνετε αυτό, ακολουθήστε την παρακάτω διαδικασία.

• Αρχικά, επιλέξτε το βιβλίο εργασίας στο Project-VBAProject στο παράθυρο Visual Basic συντάκτης.

• Στη συνέχεια, μεταβείτε στο Εισαγωγή και επιλέξτε UserForm .

• Ως αποτέλεσμα, θα λάβετε το UserForm διεπαφή όπως αυτή.

• Μαζί με αυτό, θα λάβετε επίσης το Εργαλειοθήκη παράθυρο.
• Από εδώ, σύρετε ListBox στο UserForm .

• Στη συνέχεια, το ListBox Μπορείτε να προσαρμόσετε το μέγεθος σύροντας τις άκρες του πλαισίου.

• Στη συνέχεια, σύρετε το CommanButton δύο φορές για να UserForm επίσης για να δημιουργήσετε 2 κουμπιά για λειτουργία.

• Τέλος, η τελική έξοδος έχει την εξής μορφή.

Βήμα 6: Αλλαγή ρυθμίσεων ιδιοτήτων

Σε αυτό το στάδιο, θα κάνουμε κάποιες αλλαγές στις ιδιότητες κάθε συστατικού του ListBox .

• Στην αρχή, πατήστε F4 στο Visual Basic editor για να ανοίξετε το Παράθυρο ιδιοτήτων .
• Στη συνέχεια, επιλέξτε το UserForm και αλλάξτε το Όνομα και Λεζάντα ως εξής.

• Στη συνέχεια, επιλέξτε ListBox και αλλάξτε το Όνομα σύμφωνα με τις προτιμήσεις σας.

• Επιπλέον, αλλάξτε τον τύπο του ListStyle , MultiSelect και SpecialEffect σύμφωνα με την παρακάτω εικόνα.

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

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

Βήμα 7: Εφαρμογή κώδικα VBA στο UserForm

Σε αυτό το στάδιο, θα εφαρμόσουμε VBA κωδικούς σε κάθε ένα από τα στοιχεία του UserForm Ας δούμε πώς λειτουργεί.

• Αρχικά, επιλέξτε UserForm και πηγαίνετε στο Προβολή για να επιλέξετε Κωδικός .

• Στη συνέχεια, εισάγετε αυτόν τον κώδικα στην κενή σελίδα. UserForm ανοίγει.

 Private Sub UserForm_Initialize() Me.lstDV.RowSource = strDVList End Sub 

• Μετά από αυτό, επιστρέψτε στο UserForm κάνοντας κλικ στο Αντικείμενο στο Προβολή καρτέλα.

• Τώρα, ακολουθήστε τη διαδικασία για να εισαγάγετε αυτόν τον κώδικα για το OK κουμπί.

 Private Sub cmdOK_Click() Dim strSelItems As String Dim lCountList As Long Dim strSep As String Dim strAdd As String Dim bDup As Boolean On Error Resume Next strSep = ", " With Me.lstDV For lCountList = 0 To .ListCount - 1 If .Selected(lCountList) Then strAdd = .List(lCountList) Else strAdd = "" End If If strSelItems = "" Then strSelItems = strAdd Else If strAdd "" Then strSelItems = strSelItems_ & strSep & strAdd End If End If Next lCountList End With With ActiveCell If .Value "" Then .Value = ActiveCell.Value _ & strSep & strSelItems Else .Value = strSelItems End If End With Unload Me End Sub 

• Μαζί με αυτό, πληκτρολογήστε αυτόν τον κώδικα για το Κλείστε το χρησιμοποιώντας την ίδια διαδικασία.

 Private Sub cmdClose_Click() Ξεφορτώστε με End Sub 

• Τέλος, πατήστε Ctrl + S για να το αποθηκεύσετε και να κλείσετε το παράθυρο.

Χάρη στην Πλαίσια για τη βοήθεια με τους κωδικούς.

Βήμα 8: Πολλαπλή επιλογή από ListBox

Τέλος, δημιουργήσαμε με επιτυχία ένα ListBox για πολλαπλές επιλογές. Για να ελέγξετε αν ο κώδικας λειτουργεί ή όχι, απλώς ακολουθήστε τα παρακάτω βήματα.

• Αρχικά, επιλέξτε Κύτταρο B5 όπου εφαρμόσαμε Επικύρωση δεδομένων .
• Αμέσως μετά, ένα ListBox θα εμφανιστεί και θα διατάξει Επιλέξτε στοιχείο από τη λίστα .
• Σε αυτό το παράθυρο, επιλέξτε περισσότερα από ένα ονόματα από τη λίστα.

• Στη συνέχεια, πατήστε OK .
• Τέλος, έχετε επιλέξει με επιτυχία πολλαπλές επιλογές από το ListBox και κάθε όνομα διαχωρίζεται με ένα Κόμμα ( , ).

Πράγματα που πρέπει να θυμάστε

• Ονομαστικές σειρές δεν θα δημιουργήσει ένα Επικύρωση δεδομένων κανόνα εάν εισάγονται ως αναφορά κελιού ή με διαχωριστικά.
• Το Παγκόσμια μεταβλητή εφαρμόζεται και για τις δύο UserForm και Φύλλο εργασίας VBA Κάθε ενεργό όνομα κελιού περνάει αρχικά τον κωδικό strDVList σε μια προσωρινή περιοχή και στη συνέχεια χρησιμοποιείται ως RowSource για το ListBox όταν ένας χρήστης ανοίγει το UserForm .
• Μπορείτε να συνδυάσετε πολλαπλά εύρη σε ένα μόνο όνομα για ευκολότερη επιλογή.

Συμπέρασμα

Αυτά για σήμερα. Ελπίζω αυτά τα μακρά αλλά απλά βήματα για το πώς να δημιουργία πολλαπλών επιλογών ListBox στο excel έχουν κάνει το θέμα λίγο πιο εύκολο για εσάς. Ενημερώστε μας για τα σχόλιά σας στο πλαίσιο σχολίων. Follow ExcelWIKI για περισσότερα άρθρα όπως αυτό.