Πώς να επιλέξετε πολλά στοιχεία από την αναπτυσσόμενη λίστα σε ένα κελί στο Excel;

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

Επιλέξτε πολλά στοιχεία από την αναπτυσσόμενη λίστα σε ένα κελί με VBA

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

Επιλέξτε πολλά στοιχεία από την αναπτυσσόμενη λίστα σε ένα κελί με VBA

Εδώ είναι μερικά VBA μπορούν να σας βοηθήσουν στην επίλυση αυτής της εργασίας.

Επιλέξτε διπλότυπα στοιχεία από την αναπτυσσόμενη λίστα σε ένα κελί

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

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

VBA: Επιλέξτε πολλά στοιχεία από την αναπτυσσόμενη λίστα σε ένα κελί

Private Sub Worksheet_Change(ByVal Target As Range)
'UpdatebyExtendoffice20221111
    Dim xRgVal As Range
    Dim xStrNew As String
    On Error Resume Next
    Set xRgVal = Cells.SpecialCells(xlCellTypeAllValidation)
    If (Target.Count > 1) Or (xRgVal Is Nothing) Then Exit Sub
    If Intersect(Target, xRgVal) Is Nothing Then Exit Sub
    If Target.Value = "" Then Exit Sub
    Application.EnableEvents = False
    xStrNew = Target.Value
    Application.Undo
    If xStrNew = Target.Value Then
    Else
    xStrNew = xStrNew & " " & Target.Value
    Target.Value = xStrNew
    End If
    Application.EnableEvents = True
End Sub

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

Σημείωση:

1. Με το VBA, χωρίζει τα αντικείμενα ανά χώρο, μπορείτε να αλλάξετε xStrNew = xStrNew & "" & Target.Value σε άλλους για να αλλάξετε το οριοθέτη όπως χρειάζεστε. Για παράδειγμα, xStrNew = xStrNew & "," & Target.Value θα διαχωρίσει τα στοιχεία με κόμματα.

2. Αυτός ο κωδικός VBA λειτουργεί για όλες τις αναπτυσσόμενες λίστες στο φύλλο.

Επιλέξτε πολλά στοιχεία από την αναπτυσσόμενη λίστα σε ένα κελί χωρίς επανάληψη

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

VBA: Επιλέξτε πολλά στοιχεία από την αναπτυσσόμενη λίστα σε ένα κελί χωρίς επανάληψη

Private Sub Worksheet_Change(ByVal Target As Range)
'UpdatebyExtendoffice20221111
    Dim I As Integer
    Dim xRgVal As Range
    Dim xStrNew As String
    Dim xStrOld As String
    Dim xFlag As Boolean
    Dim xArr
    On Error Resume Next
    Set xRgVal = Cells.SpecialCells(xlCellTypeAllValidation)
    If (Target.Count > 1) Or (xRgVal Is Nothing) Then Exit Sub
    If Intersect(Target, xRgVal) Is Nothing Then Exit Sub
    If Target.Value = "" Then Exit Sub
    Application.EnableEvents = False
    xFlag = True
    xStrNew = " " & Target.Value & " "
    Application.Undo
    xStrOld = Target.Value
    If InStr(1, xStrOld, xStrNew) = 0 Then
        xStrNew = xStrNew & xStrOld & " "
    Else
        xStrNew = xStrOld
    End If
    Target.Value = xStrNew
    Application.EnableEvents = True
End Sub

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

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

Στο Excel, εκτός από τον κώδικα VBA, δεν υπάρχουν άλλοι τρόποι για να επιτρέψετε πολλά στοιχεία επιλεγμένα από την αναπτυσσόμενη λίστα σε ένα κελί. Ωστόσο, το Αναδυόμενη λίστα πολλαπλών επιλογών χαρακτηριστικό του Kutools για Excel μπορεί γρήγορα και εύκολα να χειριστεί αυτή τη δουλειά με κλικ.

Βήμα 1: Επιλέξτε Kutools > Αναπτυσσόμενη λίστα > Αναπτυσσόμενη λίστα πολλαπλών επιλογών

Βήμα 2: Στο παράθυρο διαλόγου Αναπτυσσόμενη λίστα πολλαπλών επιλογών, καθορίστε τις ρυθμίσεις

1. Ορισμός πεδίου εφαρμογής.
2. Καθορίστε το διαχωριστικό για τα στοιχεία οριοθέτησης σε ένα κελί.
3. Αποφασίστε την κατεύθυνση του κειμένου;
4. Κάντε κλικ στο OK.
   

Αποτέλεσμα:

Δημιουργήστε εύκολα μια δυναμική αναπτυσσόμενη λίστα 2 επιπέδων ή πολλαπλών επιπέδων που εξαρτάται από το Excel

Στο Excel, η δημιουργία μιας αναπτυσσόμενης λίστας 2 επιπέδων ή πολλαπλών επιπέδων είναι πολύπλοκη. Εδώ Δυναμική αναπτυσσόμενη λίστα χρησιμότητα του Kutools για Excel μπορεί να σε κάνει μια χάρη. Το μόνο που πρέπει να κάνετε είναι να παραγγείλετε τα δεδομένα όπως φαίνεται στο παράδειγμα και, στη συνέχεια, επιλέξτε το εύρος δεδομένων και το εύρος εξόδου και, στη συνέχεια, αφήστε τα στο βοηθητικό πρόγραμμα.  Κάντε κλικ για δωρεάν δοκιμή 30 ημερών!

Kutools για Excel: με περισσότερα από 300 εύχρηστα πρόσθετα Excel, δωρεάν δοκιμή χωρίς περιορισμό σε 30 ημέρες.