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

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

Χρησιμοποιήστε το πλαίσιο λίστας για να δημιουργήσετε μια αναπτυσσόμενη λίστα με πολλά πλαίσια ελέγχου
Α: Δημιουργήστε ένα πλαίσιο λίστας με δεδομένα προέλευσης
Β: Ονομάστε το κελί στο οποίο θα εντοπίσετε τα επιλεγμένα στοιχεία
C: Εισαγάγετε ένα σχήμα για να βοηθήσετε στην έξοδο των επιλεγμένων αντικειμένων
Δημιουργήστε εύκολα αναπτυσσόμενη λίστα με πλαίσια ελέγχου με ένα καταπληκτικό εργαλείο
Περισσότερα μαθήματα για την αναπτυσσόμενη λίστα ...

Χρησιμοποιήστε το πλαίσιο λίστας για να δημιουργήσετε μια αναπτυσσόμενη λίστα με πολλά πλαίσια ελέγχου

Όπως φαίνεται στο παρακάτω στιγμιότυπο οθόνης, στο τρέχον φύλλο εργασίας, όλα τα ονόματα στην περιοχή A2: A11 θα είναι τα δεδομένα προέλευσης του πλαισίου λίστας. Κάντε κλικ στο κουμπί στο κελί C4 για έξοδο των επιλεγμένων στοιχείων και όλα τα επιλεγμένα στοιχεία στο πλαίσιο λίστας θα εμφανίζονται στο κελί E4. Για να το επιτύχετε, κάντε τα εξής.

A. Δημιουργήστε ένα πλαίσιο λίστας με δεδομένα προέλευσης

1. κλικ Εργολάβος > Κύριο θέμα > Πλαίσιο λίστας (Active X Control). Δείτε το στιγμιότυπο οθόνης:

2. Σχεδιάστε ένα πλαίσιο λίστας στο τρέχον φύλλο εργασίας, κάντε δεξί κλικ και, στη συνέχεια, επιλέξτε Ιδιοκτησίες από το μενού με δεξί κλικ.

3. Στο Ιδιοκτησίες πλαίσιο διαλόγου, πρέπει να διαμορφώσετε ως εξής.

• 3.1 Στο ΛίσταFillRange πλαίσιο, εισαγάγετε το εύρος πηγής που θα εμφανιστεί στη λίστα (εδώ εισάγω εύρος A2: A11);
• 3.2 Στο Στυλ λίστας , επιλέξτε 1 - Επιλογή στυλ fmList;
• 3.3 Στο Πολυεπιλογή , επιλέξτε 1 - fmMultiSelectMulti;
• 3.4 Κλείστε το Ιδιοκτησίες κουτί διαλόγου. Δείτε το στιγμιότυπο οθόνης:

Β: Ονομάστε το κελί στο οποίο θα εντοπίσετε τα επιλεγμένα στοιχεία

Εάν πρέπει να εξάγετε όλα τα επιλεγμένα στοιχεία σε ένα καθορισμένο κελί όπως το E4, κάντε τα εξής.

1. Επιλέξτε το κελί E4, εισάγετε ListBoxOutput μέσα στο όνομα Box και πατήστε το εισάγετε κλειδί.

Γ. Εισάγετε ένα σχήμα για να βοηθήσετε στην έξοδο των επιλεγμένων αντικειμένων

1. κλικ Κύριο θέμα > Σχήματα > Ορθογώνιο παραλληλόγραμμο. Δείτε screenshot:

2. Σχεδιάστε ένα ορθογώνιο στο φύλλο εργασίας σας (εδώ σχεδιάζω το ορθογώνιο στο κελί C4). Στη συνέχεια, κάντε δεξί κλικ στο ορθογώνιο και επιλέξτε Εκχώρηση μακροεντολής από το μενού με δεξί κλικ.

3. Στο Εκχώρηση μακροεντολής , κάντε κλικ στο Νέα κουμπί.

4. Στο άνοιγμα Microsoft Visual Basic για εφαρμογές παράθυρο, αντικαταστήστε τον αρχικό κωδικό στο Μονάδα μέτρησης παράθυρο με τον παρακάτω κώδικα VBA.

Κωδικός VBA: Δημιουργήστε μια λίστα με πολλά πλαίσια ελέγχου

Sub Rectangle1_Click()
'Updated by Extendoffice 20200730
Dim xSelShp As Shape, xSelLst As Variant, I, J As Integer
Dim xV As String
Set xSelShp = ActiveSheet.Shapes(Application.Caller)
Set xLstBox = ActiveSheet.ListBox1
If xLstBox.Visible = False Then
    xLstBox.Visible = True
    xSelShp.TextFrame2.TextRange.Characters.Text = "Pickup Options"
    xStr = ""
    xStr = Range("ListBoxOutput").Value
    
    If xStr <> "" Then
         xArr = Split(xStr, ";")
    For I = xLstBox.ListCount - 1 To 0 Step -1
        xV = xLstBox.List(I)
        For J = 0 To UBound(xArr)
            If xArr(J) = xV Then
              xLstBox.Selected(I) = True
              Exit For
            End If
        Next
    Next I
    End If
Else
    xLstBox.Visible = False
    xSelShp.TextFrame2.TextRange.Characters.Text = "Select Options"
    For I = xLstBox.ListCount - 1 To 0 Step -1
        If xLstBox.Selected(I) = True Then
        xSelLst = xLstBox.List(I) & ";" & xSelLst
        End If
    Next I
    If xSelLst <> "" Then
        Range("ListBoxOutput") = Mid(xSelLst, 1, Len(xSelLst) - 1)
    Else
        Range("ListBoxOutput") = ""
    End If
End If
End Sub

Σημείωση: Στον κώδικα, Ορθογώνιο είναι το όνομα σχήματος. Λίστα κουτιών1 είναι το όνομα του πλαισίου λίστας · Επιλέξτε και Επιλογές παραλαβής είναι τα εμφανιζόμενα κείμενα του σχήματος. και το ListBoxOutput είναι το όνομα εύρους του κελιού εξόδου. Μπορείτε να τα αλλάξετε ανάλογα με τις ανάγκες σας.

5. Τύπος άλλος + Q ταυτόχρονα για να κλείσετε το Microsoft Visual Basic για εφαρμογές παράθυρο.

6. Κάντε κλικ στο ορθογώνιο κουμπί θα διπλώσει ή θα αναπτύξει το πλαίσιο λίστας. Όταν επεκτείνεται το πλαίσιο λίστας, ελέγξτε τα στοιχεία στο πλαίσιο λίστας και, στη συνέχεια, κάντε ξανά κλικ στο ορθογώνιο για έξοδο όλων των επιλεγμένων στοιχείων στο κελί E4. Δείτε παρακάτω την επίδειξη:

7. Και στη συνέχεια αποθηκεύστε το βιβλίο εργασίας ως Βιβλίο εργασίας Excel MacroEnable για επαναχρησιμοποίηση του κώδικα στο μέλλον.

Δημιουργήστε μια αναπτυσσόμενη λίστα με πλαίσια ελέγχου με ένα καταπληκτικό εργαλείο

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

1. Ανοίξτε το φύλλο εργασίας που έχετε ορίσει την αναπτυσσόμενη λίστα επικύρωσης δεδομένων, κάντε κλικ στο Kutools > Αναπτυσσόμενη λίστα > Αναπτυσσόμενη λίστα με πλαίσια ελέγχου > Ρυθμίσεις. Δείτε screenshot:

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

• 2.1) Στο Εφαρμογή σε ενότητα, καθορίστε το πεδίο εφαρμογής όπου θα δημιουργήσετε πλαίσια ελέγχου για στοιχεία στην αναπτυσσόμενη λίστα. Μπορείτε να καθορίσετε ένα συγκεκριμένο εύρος, τρέχον φύλλο εργασίας, τρέχον βιβλίο εργασίας or όλα τα ανοιχτά βιβλία εργασίας με βάση τις ανάγκες σας.
• 2.2) Στο Τρόπος ενότητα, επιλέξτε ένα στυλ που θέλετε να εξάγετε τα επιλεγμένα στοιχεία.
• Εδώ παίρνει το Τροποποίηση επιλογή ως παράδειγμα, αν το επιλέξετε, η τιμή του κελιού θα αλλάξει με βάση τα επιλεγμένα στοιχεία.
• 2.3) Στο Διαχωριστής πλαίσιο, εισαγάγετε ένα οριοθέτη το οποίο θα χρησιμοποιήσετε για να διαχωρίσετε τα πολλαπλά στοιχεία?
• 2.4) Στο Κατεύθυνση κειμένου ενότητα, επιλέξτε μια κατεύθυνση κειμένου με βάση τις ανάγκες σας.
• 2.5) Κάντε κλικ στο OK κουμπί.

3. Το τελευταίο βήμα, κάντε κλικ Kutools > Αναπτυσσόμενη λίστα > Αναπτυσσόμενη λίστα με πλαίσια ελέγχου > Ενεργοποίηση αναπτυσσόμενης λίστας πλαισίων ελέγχου για να ενεργοποιήσετε αυτήν τη δυνατότητα.

Από τώρα και στο εξής, όταν κάνετε κλικ στα κελιά με την αναπτυσσόμενη λίστα σε ένα καθορισμένο πεδίο, θα εμφανιστεί ένα πλαίσιο λίστας, επιλέξτε στοιχεία επιλέγοντας τα πλαίσια ελέγχου για έξοδο στο κελί, όπως φαίνεται στην παρακάτω επίδειξη (Πάρτε τη λειτουργία Τροποποίηση ως παράδειγμα ).

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

Σχετικά άρθρα:

Τα καλύτερα εργαλεία παραγωγικότητας γραφείου

🤖	Kutools AI Aide: Επανάσταση στην ανάλυση δεδομένων με βάση: Ευφυής Εκτέλεση   |  Δημιουργία κώδικα  |  Δημιουργία προσαρμοσμένων τύπων  |  Αναλύστε δεδομένα και δημιουργήστε γραφήματα  |  Επίκληση Λειτουργιών Kutools...
	Δημοφιλή χαρακτηριστικά: Εύρεση, επισήμανση ή αναγνώριση διπλότυπων   |  Διαγραφή κενών γραμμών   |  Συνδυάστε στήλες ή κελιά χωρίς απώλεια δεδομένων   |   Γύρος χωρίς φόρμουλα ...
	Σούπερ Αναζήτηση: VLookup πολλαπλών κριτηρίων  |   VLookup πολλαπλών τιμών  |   VLookup σε πολλά φύλλα   |   Ασαφής αναζήτηση ....
	Σύνθετη αναπτυσσόμενη λίστα: Γρήγορη δημιουργία αναπτυσσόμενης λίστας   |  Εξαρτημένη αναπτυσσόμενη λίστα   |  Πολλαπλή αναπτυσσόμενη λίστα ....
	Διαχειριστής στήλης: Προσθέστε έναν συγκεκριμένο αριθμό στηλών  |  Μετακίνηση στηλών  |  Εναλλαγή κατάστασης ορατότητας κρυφών στηλών  |  Συγκρίνετε εύρη και στήλες ...
	Επιλεγμένα Χαρακτηριστικά: Εστίαση πλέγματος   |  Προβολή σχεδίου   |   Μεγάλη Formula Bar   |  Διαχείριση βιβλίου εργασίας & φύλλου   |  Βιβλιοθήκη πόρων (Αυτόματο κείμενο)   |  Επιλογή ημερομηνίας   |  Συνδυάστε φύλλα εργασίας   |  Κρυπτογράφηση/Αποκρυπτογράφηση κελιών   |  Αποστολή email ανά λίστα   |  Σούπερ φίλτρο   |   Ειδικό φίλτρο (φίλτρο με έντονη γραφή/πλάγια γραφή/διαγραφή...) ...
	Κορυφαία 15 σύνολα εργαλείων:  12 Κείμενο Εργαλεία (Προσθήκη κειμένου, Κατάργηση χαρακτήρων, ...)   |   50 + Διάγραμμα Τύποι (Gantt διάγραμμα, ...)   |   40+ Πρακτικό ΜΑΘΗΜΑΤΙΚΟΙ τυποι (Υπολογίστε την ηλικία με βάση τα γενέθλια, ...)   |   19 Εισαγωγή Εργαλεία (Εισαγωγή κωδικού QR, Εισαγωγή εικόνας από το μονοπάτι, ...)   |   12 Μετατροπή Εργαλεία (Αριθμοί σε λέξεις, Μετατροπή Συναλλάγματος, ...)   |   7 Συγχώνευση & διαχωρισμός Εργαλεία (Σύνθετες σειρές συνδυασμού, Διαίρεση κελιών, ...)   |   ... κι αλλα

Αυξήστε τις δεξιότητές σας στο Excel με τα Kutools για Excel και απολαύστε την αποτελεσματικότητα όπως ποτέ πριν. Το Kutools για Excel προσφέρει πάνω από 300 προηγμένες δυνατότητες για την ενίσχυση της παραγωγικότητας και την εξοικονόμηση χρόνου.  Κάντε κλικ εδώ για να αποκτήσετε τη δυνατότητα που χρειάζεστε περισσότερο...

Διαβάστε περισσότερα ... ΔΩΡΕΑΝ Λήψη...

---

Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη

• Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
• Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
• Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!

Διαβάστε περισσότερα ... ΔΩΡΕΑΝ Λήψη...