Πώς να επιλέξετε πολλά στοιχεία από την αναπτυσσόμενη λίστα σε ένα κελί στο 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 Sub3. Αποθηκεύστε τον κωδικό και κλείστε το παράθυρο για να επιστρέψετε στην αναπτυσσόμενη λίστα. Τώρα μπορείτε να επιλέξετε πολλά στοιχεία από την αναπτυσσόμενη λίστα.
Σημείωση:
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 > Αναπτυσσόμενη λίστα > Αναδυόμενη λίστα πολλαπλών επιλογών για να ενεργοποιήσετε αυτό το βοηθητικό πρόγραμμα.
Στη συνέχεια, τα επιλεγμένα αναπτυσσόμενα κελιά λίστας μπορούν να επιλεγούν πολλά στοιχεία στο κελί.
Εάν χρησιμοποιήσετε αυτήν την επιλογή για πρώτη φορά, μπορείτε να καθορίσετε τις ρυθμίσεις αυτού του βοηθητικού προγράμματος όπως χρειάζεστε πριν από την εφαρμογή αυτού του βοηθητικού προγράμματος.
Πατήστε Kutools > Αναπτυσσόμενη λίστα > το βέλος δίπλα Αναδυόμενη λίστα πολλαπλών επιλογών > ρυθμίσεις.
Στη συνέχεια, στο Ρυθμίσεις αναπτυσσόμενης λίστας πολλαπλών επιλογών διαλόγου, μπορείτε
1) Προσδιορίστε το πεδίο εφαρμογής που χρειάζεστε.
2) Προσδιορίστε την κατεύθυνση των αντικειμένων θέση?
3) Καθορίστε το διαχωριστικό μεταξύ αντικειμένων.
4) Καθορίστε εάν δεν προσθέτετε διπλότυπα και αφαιρέστε διπλά αντικείμενα.
Πατήστε Ok και κάντε κλικ στο κουμπί Kutools > Αναπτυσσόμενη λίστα > Αναδυόμενη λίστα πολλαπλών επιλογών για να το πάρετε αποτέλεσμα.
Άκρο: Για να εφαρμόσετε το Αναδυόμενη λίστα πολλαπλών επιλογών χρησιμότητα, πρέπει να εγκαθιστώ στην αρχή. Εάν θέλετε να δημιουργήσετε μια αναπτυσσόμενη λίστα με πολλά επίπεδα, το παρακάτω βοηθητικό πρόγραμμα μπορεί να σας βοηθήσει.
Δημιουργήστε εύκολα μια δυναμική αναπτυσσόμενη λίστα 2 επιπέδων ή πολλαπλών επιπέδων που εξαρτάται από το Excel
|
| Στο Excel, η δημιουργία μιας αναπτυσσόμενης λίστας 2 επιπέδων ή πολλαπλών επιπέδων είναι πολύπλοκη. Εδώ Δυναμική αναπτυσσόμενη λίστα χρησιμότητα του Kutools για Excel μπορεί να σε κάνει μια χάρη. Το μόνο που πρέπει να κάνετε είναι να παραγγείλετε τα δεδομένα όπως φαίνεται στο παράδειγμα και, στη συνέχεια, επιλέξτε το εύρος δεδομένων και το εύρος εξόδου και, στη συνέχεια, αφήστε τα στο βοηθητικό πρόγραμμα. Κάντε κλικ για 30 ημέρες δωρεάν δοκιμή! |
 |
| Kutools για Excel: με περισσότερα από 300 εύχρηστα πρόσθετα Excel, δωρεάν δοκιμή χωρίς περιορισμό στο 30 ημέρα. |
Τα καλύτερα εργαλεία παραγωγικότητας του Office
Το Kutools για Excel λύνει τα περισσότερα από τα προβλήματά σας και αυξάνει την παραγωγικότητά σας κατά 80%
- Επαναχρησιμοποίηση: Εισαγάγετε γρήγορα σύνθετοι τύποι, γραφήματα και οτιδήποτε έχετε χρησιμοποιήσει στο παρελθόν. Κρυπτογράφηση κυττάρων με κωδικό πρόσβασης Δημιουργία λίστας αλληλογραφίας και στείλτε email ...
- Super Formula Bar (επεξεργαστείτε εύκολα πολλές γραμμές κειμένου και τύπου). Διάταξη ανάγνωσης (εύκολη ανάγνωση και επεξεργασία μεγάλου αριθμού κελιών). Επικόλληση σε φιλτραρισμένο εύρος...
- Συγχώνευση κελιών / σειρών / στηλών χωρίς απώλεια δεδομένων · Περιεχόμενο διαχωρισμού κελιών Συνδυάστε διπλές σειρές / στήλες... Αποτροπή διπλών κυττάρων; Συγκρίνετε τα εύρη...
- Επιλέξτε Διπλότυπο ή Μοναδικό Σειρές; Επιλέξτε Κενές σειρές (όλα τα κελιά είναι κενά). Σούπερ εύρεση και ασαφής εύρεση σε πολλά βιβλία εργασίας. Τυχαία επιλογή ...
- Ακριβές αντίγραφο Πολλαπλά κελιά χωρίς αλλαγή της αναφοράς τύπου. Αυτόματη δημιουργία αναφορών σε πολλαπλά φύλλα? Εισαγωγή κουκκίδων, Πλαίσια ελέγχου και άλλα ...
- Εξαγωγή κειμένου, Προσθήκη κειμένου, Κατάργηση κατά θέση, Αφαιρέστε το διάστημα; Δημιουργία και εκτύπωση υποσύνολων σελιδοποίησης. Μετατροπή περιεχομένου και σχολίων μεταξύ κελιών...
- Σούπερ φίλτρο (αποθηκεύστε και εφαρμόστε σχήματα φίλτρων σε άλλα φύλλα). Προηγμένη ταξινόμηση ανά μήνα / εβδομάδα / ημέρα, συχνότητα και άλλα. Ειδικό φίλτρο με έντονη, πλάγια ...
- Συνδυάστε βιβλία εργασίας και φύλλα εργασίας; Συγχώνευση πινάκων βάσει βασικών στηλών. Διαχωρίστε τα δεδομένα σε πολλά φύλλα; Μαζική μετατροπή xls, xlsx και PDF...
- Περισσότερα από 300 ισχυρά χαρακτηριστικά. Υποστηρίζει Office / Excel 2007-2021 και 365. Υποστηρίζει όλες τις γλώσσες. Εύκολη ανάπτυξη στην επιχείρηση ή τον οργανισμό σας. Πλήρεις δυνατότητες δωρεάν δοκιμής 30 ημερών. Εγγύηση επιστροφής χρημάτων 60 ημερών.
Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη
- Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
- Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
- Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!
