Note: The other languages of the website are Google-translated. Back to English

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

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

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

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

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


Επιλέξτε πολλά στοιχεία από την αναπτυσσόμενη λίστα σε ένα κελί με 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 δεν επιτρέπουν τη διαγραφή τμημάτων των περιεχομένων κελιών, υποστηρίζουν μόνο τη διαγραφή όλων των στοιχείων του κελιού.


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

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

Αφού δημιουργήσετε την αναπτυσσόμενη λίστα, επιλέξτε τα κελιά της αναπτυσσόμενης λίστας και κάντε κλικ Kutools > Αναπτυσσόμενη λίστα > Αναδυόμενη λίστα πολλαπλών επιλογών για να ενεργοποιήσετε αυτό το βοηθητικό πρόγραμμα.
doc kutools multi select αναπτυσσόμενη λίστα 1

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

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

Πατήστε Kutools > Αναπτυσσόμενη λίστα > το βέλος δίπλα Αναδυόμενη λίστα πολλαπλών επιλογών > ρυθμίσεις.
doc kutools multi select αναπτυσσόμενη λίστα 2

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

1) Προσδιορίστε το πεδίο εφαρμογής που χρειάζεστε.

2) Προσδιορίστε την κατεύθυνση των αντικειμένων θέση?

3) Καθορίστε το διαχωριστικό μεταξύ αντικειμένων.

4) Καθορίστε εάν δεν προσθέτετε διπλότυπα και αφαιρέστε διπλά αντικείμενα.

Πατήστε Ok και κάντε κλικ στο κουμπί Kutools > Αναπτυσσόμενη λίστα > Αναδυόμενη λίστα πολλαπλών επιλογών για να το πάρετε αποτέλεσμα.

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

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

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

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

Το Kutools για Excel λύνει τα περισσότερα από τα προβλήματά σας και αυξάνει την παραγωγικότητά σας κατά 80%

  • Επαναχρησιμοποίηση: Εισαγάγετε γρήγορα σύνθετοι τύποι, γραφήματα και οτιδήποτε έχετε χρησιμοποιήσει στο παρελθόν. Κρυπτογράφηση κυττάρων με κωδικό πρόσβασης Δημιουργία λίστας αλληλογραφίας και στείλτε email ...
  • Super Formula Bar (επεξεργαστείτε εύκολα πολλές γραμμές κειμένου και τύπου). Διάταξη ανάγνωσης (εύκολη ανάγνωση και επεξεργασία μεγάλου αριθμού κελιών). Επικόλληση σε φιλτραρισμένο εύρος...
  • Συγχώνευση κελιών / σειρών / στηλών χωρίς απώλεια δεδομένων · Περιεχόμενο διαχωρισμού κελιών Συνδυάστε διπλές σειρές / στήλες... Αποτροπή διπλών κυττάρων; Συγκρίνετε τα εύρη...
  • Επιλέξτε Διπλότυπο ή Μοναδικό Σειρές; Επιλέξτε Κενές σειρές (όλα τα κελιά είναι κενά). Σούπερ εύρεση και ασαφής εύρεση σε πολλά βιβλία εργασίας. Τυχαία επιλογή ...
  • Ακριβές αντίγραφο Πολλαπλά κελιά χωρίς αλλαγή της αναφοράς τύπου. Αυτόματη δημιουργία αναφορών σε πολλαπλά φύλλα? Εισαγωγή κουκκίδων, Πλαίσια ελέγχου και άλλα ...
  • Εξαγωγή κειμένου, Προσθήκη κειμένου, Κατάργηση κατά θέση, Αφαιρέστε το διάστημα; Δημιουργία και εκτύπωση υποσύνολων σελιδοποίησης. Μετατροπή περιεχομένου και σχολίων μεταξύ κελιών...
  • Σούπερ φίλτρο (αποθηκεύστε και εφαρμόστε σχήματα φίλτρων σε άλλα φύλλα). Προηγμένη ταξινόμηση ανά μήνα / εβδομάδα / ημέρα, συχνότητα και άλλα. Ειδικό φίλτρο με έντονη, πλάγια ...
  • Συνδυάστε βιβλία εργασίας και φύλλα εργασίας; Συγχώνευση πινάκων βάσει βασικών στηλών. Διαχωρίστε τα δεδομένα σε πολλά φύλλα; Μαζική μετατροπή xls, xlsx και PDF...
  • Περισσότερα από 300 ισχυρά χαρακτηριστικά. Υποστηρίζει Office / Excel 2007-2021 και 365. Υποστηρίζει όλες τις γλώσσες. Εύκολη ανάπτυξη στην επιχείρηση ή τον οργανισμό σας. Πλήρεις δυνατότητες δωρεάν δοκιμής 30 ημερών. Εγγύηση επιστροφής χρημάτων 60 ημερών.
kte καρτέλα 201905

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

  • Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
  • Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
  • Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!
κάτω μέρος γραφείου
Σχόλια (26)
Δεν υπάρχουν ακόμη βαθμολογίες. Γίνε ο πρώτος που θα αξιολογήσετε!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Μετά την προσθήκη, τα δεδομένα από το αναπτυσσόμενο μενού, η διαγραφή δεν λειτουργεί.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Βρήκα το ίδιο θέμα. Νομίζω ότι βρήκα τρόπο να το ξεπεράσω. Στο κάτω μέρος του κώδικα θα δείτε τον κωδικό "xStrNew = xStrOld". Αντίθετα, κάντε το να λέει xStrNew = " "

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

δημοσιεύστε το πρόβλημά σας στο κύριο νήμα αυτού του άρθρου.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
στον πρώτο κώδικα προσθέστε την ακόλουθη γραμμή μεταξύ της γραμμής 6 και 7 (10-11 στον δεύτερο κωδικό): Εάν Target.Value = "" Τότε βγείτε από το Sub
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Χρησιμοποίησα αυτό το "Επιλογή πολλών στοιχείων από την αναπτυσσόμενη λίστα σε ένα κελί χωρίς επανάληψη"
αυτό έγινε
1. Πολλαπλές επιλογές γίνονται χωρίς προβλήματα.
2. Το πρόβλημα είναι όταν προσπαθώ να επεξεργαστώ και να αφαιρέσω μια επιλογή. Δεν υπάρχει τρόπος να αφαιρέσω μια επιλογή. συνεχίζει να πολλαπλασιάζεται.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Πώς θα εφαρμόζατε αυτή τη λειτουργία αλλά θα την κάνατε έτσι ώστε να μην υπάρχουν περιττές τιμές; Οποιαδήποτε βοήθεια θα εκτιμηθεί!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Εάν δημιουργήσω ένα φύλλο με αναπτυσσόμενη λίστα χρησιμοποιώντας πλαίσια ελέγχου, υπάρχει τρόπος να μοιραστώ αυτό το βιβλίο εργασίας με αυτήν τη δυνατότητα πλαισίων ελέγχου;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Διαπιστώνω επίσης ότι μετά την επιλογή πολλών στοιχείων χρησιμοποιώντας τον ενημερωμένο κώδικα VBA, δεν μπορώ ακόμα να διαγράψω το κελί, απλώς πολλαπλασιάζεται.
Έχει κανείς λύση για αυτό ακόμα;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σου, Rusty, ο κώδικας που έχω ενημερώσει για να τον κάνω πιο σταθερό. Επειδή όμως το κελί βρίσκεται σε επικύρωση δεδομένων, το κενό δεν έχει επικυρωθεί, ο κώδικας δεν μπορεί να λύσει αυτό το πρόβλημα.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
ο κώδικας λειτουργεί αλλά μεταφέρεται σε όλα τα κελιά και πολλαπλασιάζεται στα κελιά και δεν επιτρέπει τη διαγραφή, μπορείτε να βοηθήσετε;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Quando quero deletar alguma opção ou todas dá erro. Αναλυτής Como Posso;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια! Como puedo usar este codigo para todo un φύλλο εργασίας y no solo para una pestana;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια, Vero, Η λειτουργία αναπτυσσόμενης λίστας πολλαπλών επιλογών του Kutools για το Excel υποστηρίζει την επιλογή πολλών στοιχείων από την αναπτυσσόμενη λίστα σε ολόκληρο το φύλλο εργασίας ή σε ολόκληρο το βιβλίο εργασίας, απλώς καθορίστε το Καθορισμένο εύρος στο παράθυρο διαλόγου Ρυθμίσεις αναπτυσσόμενης λίστας πολλαπλών επιλογών.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Πώς μπορώ να το κάνω αυτό για την πρώτη φόρμουλα που παρείχατε :) Ευχαριστώ εκ των προτέρων!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Καλημέρα,
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 !
πώς να το κάνουμε ?
ευχαριστώ εκ των προτέρων
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια, συγγνώμη για αυτό. Θα αναβαθμίσουμε τη λειτουργία μας στην επόμενη έκδοση για να αποφύγουμε αυτό το πρόβλημα. Σας ευχαριστούμε για τα σχόλιά σας.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Merci bcp
Mais à quand la nouvelle έκδοση;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σας, η νέα έκδοση είναι υπό σχεδιασμό, καθώς η επόμενη έκδοση θα αναβαθμίσει πολλαπλές δυνατότητες, μπορεί να χρειαστεί λίγος χρόνος.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια, έχουμε ενημερώσει αυτήν την έκδοση για εσάς, αλλά αυτή είναι μια έκδοση beta, κάντε λήψη της από αυτό: https://download.extendoffice.com/downloads/Kutools-for-Excel/beta/26.10/KutoolsforExcelSetup.Inno.exe
Εάν υπάρχουν προβλήματα, ευπρόσδεκτοι για τα σχόλιά σας.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Ευχαριστώ,
Je vais la télécharger et essayer.
Bonne Journée
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
ο κωδικός λειτουργεί, αλλά δεν με αφήνει να διαγράψω, μπορεί κάποιος να δημοσιεύσει τον νέο κωδικό.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
¿Cómo puedo hacer para que el orden en que se coloque el texto, sea tan cuál como yo quiera;

Παράδειγμα:
Mi texto para la lista es:
ΤΡΑΜΙΤΑΡ ΕΣΤΕ ΑΣΟΥΝΤΟ
ΣΥΝΤΟΝΙΣΤΗΣ
ANALIZAR Y ΣΥΝΙΣΤΑ

ως επιλογή:
ΤΡΑΜΙΤΑΡ ΕΣΤΕ ΑΣΟΥΝΤΟ
ANALIZAR Y ΣΥΝΙΣΤΑ

Μου φαίνεται
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.....
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια, Gorgely, η αναπτυσσόμενη λίστα πολλαπλών επιλογών του Kutools μπορεί να σας βοηθήσει. Τα στοιχεία που επιλέξατε θα έχουν τη σειρά που θέλετε.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Como posso utilizar a função com a planilha bloqueada;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια, Μακροεντολές, δοκιμάστε τον παρακάτω κώδικα, υποστηρίζει την επιλογή πολλών στοιχείων στην αναπτυσσόμενη λίστα σε προστατευμένο φύλλο.
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

Και επίσης το Kutools για Excel 26.1 και νεότερες εκδόσεις υποστηρίζει αυτήν την εργασία σε προστατευμένο φύλλο.
Δεν υπάρχουν σχόλια δημοσιεύτηκε ακόμα
Αφήστε τα σχόλιά σας
Δημοσίευση ως επισκέπτης
×
Αξιολογήστε αυτήν την ανάρτηση:
0   Χαρακτήρες
Προτεινόμενες τοποθεσίες

Ακολουθησε μας

Πνευματικά δικαιώματα © 2009 - www.extendoffice.com. | Ολα τα δικαιώματα διατηρούνται. Τροφοδοτείται από ExtendOffice. | Sitemap
Το Microsoft και το λογότυπο του Office είναι εμπορικά σήματα ή σήματα κατατεθέντα της Microsoft Corporation στις Ηνωμένες Πολιτείες ή / και σε άλλες χώρες.
Προστατεύεται από το Sectigo SSL