Cum se selectează mai multe articole din lista derulantă într-o celulă din Excel?
Lista derulantă este frecvent utilizată în activitatea zilnică Excel. În mod implicit, un singur element poate fi selectat într-o listă derulantă. Dar, în unele momente, poate fi necesar să selectați mai multe elemente din lista derulantă într-o singură celulă, așa cum este prezentat mai jos. Cum îl puteți gestiona în Excel?
![]() |
![]() |
![]() |
Selectați mai multe elemente din lista derulantă într-o celulă cu VBA
Selectați mai multe elemente din lista derulantă într-o celulă cu VBA
Iată câteva VBA care vă pot face o favoare în rezolvarea acestui job.
Selectați elementele duplicate din lista derulantă dintr-o celulă
1. După crearea unei liste derulante, faceți clic dreapta pe fila de foaie pentru a selecta Afișați codul din meniul contextual.
2. Apoi în Microsoft Visual Basic pentru aplicații fereastră, copiați și lipiți codul de mai jos pe scriptul gol.
VBA: Selectați mai multe articole din lista derulantă dintr-o celulă
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. Salvați codul și închideți fereastra pentru a reveni la lista derulantă. Acum puteți selecta mai multe articole din lista derulantă.
Notă:
1. Cu VBA, separă articolele de spațiu, puteți schimba xStrNew = xStrNew & "" & Target.Value altora pentru a schimba delimitatorul după cum aveți nevoie. De exemplu, xStrNew = xStrNew & "," & Target.Value va separa articolele cu virgule.
2. Acest cod VBA funcționează pentru toate listele derulante din foaie.
Selectați mai multe elemente din lista derulantă într-o celulă fără repetare
Dacă doriți doar să selectați elemente unice din lista derulantă într-o celulă, puteți repeta pașii de mai sus și utilizați codul de mai jos.
VBA : Selectați mai multe elemente din lista derulantă într-o celulă fără repetare
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
Ambele coduri VBA de mai sus nu acceptă ștergerea părților din conținutul celulei, ci doar pentru a șterge toate elementele celulei.
Selectați mai multe articole din lista derulantă într-o celulă cu Kutools pentru Excel opțiunea la îndemână
Dacă nu sunteți familiarizat cu codul VBA, puteți instalare gratuită un instrument la îndemână - Kutools pentru Excel, care conține un grup de utilitare despre lista derulantă și există o opțiune Listă derulantă cu selectare multiplă vă poate ajuta să selectați cu ușurință mai multe elemente din lista derulantă într-o celulă.
După crearea listei derulante, selectați celulele listei derulante și faceți clic Kutools > Lista verticală > Listă derulantă cu selectare multiplă pentru a activa acest utilitar.
Apoi, celulele listei derulante selectate pot fi selectate mai multe elemente în celulă.
Dacă utilizați această opțiune pentru prima dată, puteți specifica setările acestui utilitar după cum aveți nevoie înainte de a aplica acest utilitar.
Clic Kutools > Lista verticală > săgeata de lângă Listă derulantă cu selectare multiplă > setări cont.
Apoi în Setări listă derulantă cu selectare multiplă dialog, puteți
1) Specificați domeniul de aplicare după cum aveți nevoie;
2) Specificați direcția locului articolelor;
3) Specificați separatorul între articole;
4) Specificați dacă nu adăugați duplicate și eliminați elementele duplicat.
Clic Ok și faceți clic Kutools > Lista verticală > Listă derulantă cu selectare multiplă pentru a-l face efect.
varful: Pentru a aplica Listă derulantă cu selectare multiplă utilitate, trebuie instala la început. Dacă doriți să creați o listă derulantă cu mai multe niveluri, utilitarul de mai jos vă poate ajuta.
Creați cu ușurință o listă drop-down dinamică cu 2 niveluri sau dependente de mai multe niveluri în Excel
|
În Excel, pentru a crea o listă verticală cu 2 niveluri sau cu mai multe niveluri este complex. Aici Listă derulantă dinamică utilitatea Kutools pentru Excel îți poate face o favoare. Ceea ce trebuie doar să faceți este să comandați datele ca exemplu, apoi selectați intervalul de date și intervalul de ieșire, apoi lăsați-l la utilitate. Faceți clic pentru 30 zile de probă gratuită! |
![]() |
Kutools pentru Excel: cu peste 300 de programe de completare Excel la îndemână, puteți încerca gratuit fără limitare în 30 zile. |
Cele mai bune instrumente de productivitate Office
Kutools pentru Excel vă rezolvă majoritatea problemelor și vă crește productivitatea cu 80%
- reutilizarea: Introduceți rapid formule complexe, diagrame și orice ai folosit anterior; Criptați celulele cu parola; Creați o listă de corespondență și trimiteți e-mailuri ...
- Super Formula Bar (editați cu ușurință mai multe linii de text și formulă); Layout de citire (citiți și editați cu ușurință un număr mare de celule); Lipiți la interval filtrat...
- Merge celule / rânduri / coloane fără a pierde date; Conținut de celule divizate; Combinați rânduri / coloane duplicate... Prevenirea celulelor duplicate; Comparați gamele...
- Selectați Duplicat sau Unic Rânduri; Selectați Rânduri goale (toate celulele sunt goale); Super Find și Fuzzy Find în multe cărți de lucru; Selectare aleatorie ...
- Copie exactă Mai multe celule fără modificarea referinței formulelor; Creați automat referințe la foi multiple; Introduceți gloanțe, Casete de selectare și multe altele ...
- Extrageți textul, Adăugați text, eliminați după poziție, Eliminați spațiul; Creați și imprimați subtotaluri de paginare; Convertiți conținutul dintre celule și comentarii...
- Super Filtru (salvați și aplicați scheme de filtrare altor foi); Sortare avansată după lună / săptămână / zi, frecvență și multe altele; Filtru special cu bold, italic ...
- Combinați cărți de lucru și foi de lucru; Merge Tables pe baza coloanelor cheie; Împărțiți datele în mai multe foi; Conversia în loturi xls, xlsx și PDF...
- Peste 300 de funcții puternice. Suportă Office / Excel 2007-2021 și 365. Acceptă toate limbile. Implementare ușoară în întreprinderea sau organizația dvs. Funcții complete Probă gratuită de 30 de zile. Garanție de returnare a banilor de 60 de zile.

Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară
- Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
- Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ferestrele noi.
- Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!


























