Μετάβαση στο κύριο περιεχόμενο

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

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

doc επιλέξτε πολλά στοιχεία από την αναπτυσσόμενη λίστα 1 doc βέλος δεξιά doc επιλέξτε πολλά στοιχεία από την αναπτυσσόμενη λίστα 2

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

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


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

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

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

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

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 μπορεί γρήγορα και εύκολα να χειριστεί αυτή τη δουλειά με κλικ.

Άκρο: Πριν εφαρμόσετε αυτό το εργαλείο, εγκαταστήστε πρώτα το Kutools για Excel. Μεταβείτε στη δωρεάν λήψη τώρα.
Βήμα 1: Επιλέξτε Kutools > Αναπτυσσόμενη λίστα > Αναπτυσσόμενη λίστα πολλαπλών επιλογών
Βήμα 2: Στο παράθυρο διαλόγου Αναπτυσσόμενη λίστα πολλαπλών επιλογών, καθορίστε τις ρυθμίσεις
  1. Ορισμός πεδίου εφαρμογής.
  2. Καθορίστε το διαχωριστικό για τα στοιχεία οριοθέτησης σε ένα κελί.
  3. Αποφασίστε την κατεύθυνση του κειμένου;
  4. Κάντε κλικ στο OK.
    doc επιλέξτε πολλά στοιχεία από την αναπτυσσόμενη λίστα kte 1
Αποτέλεσμα:

επιλέξτε πολλά στοιχεία από τα kutools της αναπτυσσόμενης λίστας

Note: Για τη χρήση της δυνατότητας Αναπτυσσόμενης λίστας πολλαπλών επιλογών, θα πρέπει πρώτα να εγκαταστήσετε το Kutools για Excel, παρακαλώ κάντε κλικ για λήψη και αποκτήστε μια δωρεάν δοκιμή 30 ημερών τώρα.

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

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

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

🤖 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% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!
Comments (26)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Como posso utilizar a função com a planilha bloqueada?
This comment was minimized by the moderator on the site
Hi, Macros, try below code, it supports to select multi items in drop down list in protected sheet.
Private Sub Worksheet_Change(ByVal Target As Range)
'UpdatebyExtendoffice20221111
    Dim xRgVal As Range
    Dim xStrNew As String
    On Error Resume Next  
    xType = 0
    xType = Target.Validation.Type
    If xType <> 3 Then Exit Sub
    If (Target.Count > 1) 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

And also Kutools for Excel 26.1 and later versions supports this job in protected sheet.
This comment was minimized by the moderator on the site
¿Cómo puedo hacer para que el orden en que se coloque el texto, sea tan cuál como yo quiera?

Ejemplo:
Mi texto para la lista es:
TRAMITAR ESTE ASUNTO
COORDINAR
ANALIZAR Y RECOMENDAR

sí selecciono:
TRAMITAR ESTE ASUNTO
ANALIZAR Y RECOMENDAR

me aparece
ANALIZAR Y RECOMENDAR, TRAMITAR ESTE ASUNTO

o sea, los de abajo me aparecen primero, pero quiero que sea en el orden en que voy seleccionando...
TRAMITAR ESTE ASUNTO, ANALIZAR Y RECOMENDAR.....
This comment was minimized by the moderator on the site
Hi, Gorgelys, Kutools's multi-select drop down list can help you. The items you selected will be in the order like you want.
This comment was minimized by the moderator on the site
the code works but won't let me delete can someone please post the new code.
This comment was minimized by the moderator on the site
bonjour,
selon le premier exemple tout fonctionne très bien jusqu'à ce que je verrouille la feuille.
quand la feuille est verrouillée, je n'ai plus le choix multiple !
comment faire ?
merci par avance
This comment was minimized by the moderator on the site
Hi, sorry for that. We will upgrade our feature next version to avoid this problem. Thank you for your feekback.
This comment was minimized by the moderator on the site
Merci bcp
Mais à quand la nouvelle version ?
This comment was minimized by the moderator on the site
Hi, we have updated this version for you, but this is a beta version, please download it from this: https://download.extendoffice.com/downloads/Kutools-for-Excel/beta/26.10/KutoolsforExcelSetup.Inno.exe
If there are any problems, welcome for your feedback.
This comment was minimized by the moderator on the site
Merci,
Je vais la télécharger et essayer.
Bonne journée
This comment was minimized by the moderator on the site
Hi, the new version is in planning, since next version will upgrade multiple features, it may take somewhat time.
This comment was minimized by the moderator on the site
Hi! Como puedo usar este codigo para todo un worksheet y no solo para una pestana?
This comment was minimized by the moderator on the site
Hi, Vero, Kutools for Excel's Multi-select Drop-down List feature suports selecting multiple items from drop down list in the whole worksheet or across workbook, just specify the Specified Scope in the Multi-select Drop-down List Settings dialog.
This comment was minimized by the moderator on the site
How can I do that for the fist formula you provided :) Thanks in advanced!
This comment was minimized by the moderator on the site
Quando quero deletar alguma opção ou todas dá erro. Como posso resolver?
This comment was minimized by the moderator on the site
I am also finding that after selecting multiple items using the updated VBA code, I still cannot clear the cell, it just keeps multiplying.
Does anyone have a solution for this yet?
This comment was minimized by the moderator on the site
Hi, Rusty, the code I have updated for making it more stable. But because the cell is in data validation, blank is out of data validation, the code cannot solve this problem.
This comment was minimized by the moderator on the site
the code works but carries over across all cells and multiplies in the cells and wont allow delete can you assist?
This comment was minimized by the moderator on the site
If I create a sheet with dropdown list using checkboxes, is there a way to share this workbook with this checkboxes feature?
This comment was minimized by the moderator on the site
How would you apply this functionality but making it so that there aren't redundant values? Any help would be appreciated!
This comment was minimized by the moderator on the site
I used this "Select multiple items from drop down list to a cell without repeat"
this is what happened
1. Multiple selections happen without problems.
2. The issue is when i try to edit and remove an option. There is no way for me to remove an option. it keeps multiplying.
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations