Salt la conținutul principal

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?

doc selectați mai multe elemente din lista derulantă 1 doc săgeată dreapta doc selectați mai multe elemente din lista derulantă 2

Selectați mai multe elemente din lista derulantă într-o celulă cu VBA

Selectați mai multe elemente din lista verticală într-o celulă ușor și rapid


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.
doc selectați mai multe elemente din lista derulantă 3

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 elemente din lista verticală într-o celulă ușor și rapid

În Excel, cu excepția codului VBA, nu există alte modalități de a permite mai multe elemente selectate din lista derulantă într-o celulă. Însă Listă derulantă cu selectare multiplă caracteristică a Kutools pentru Excel poate gestiona rapid și ușor această lucrare cu clicuri.

varful: Înainte de a aplica acest instrument, vă rugăm să instalați mai întâi Kutools pentru Excel. Accesați descărcarea gratuită acum.
Pasul 1: Selectați Kutools > Listă drop-down > Listă drop-down cu selecție multiplă
Pasul 2: În caseta de dialog Listă derulantă cu selecție multiplă, specificați setările
  1. Setați domeniul de aplicare;
  2. Specificați separatorul pentru elementele delimitate dintr-o celulă;
  3. Decideți direcția textului;
  4. Faceți clic pe OK.
    doc selectați mai multe articole din lista verticală kte 1
Rezultat:

selectați mai multe articole din lista derulantă kutools

notițe: Pentru a utiliza funcția Listă derulantă cu selecție multiplă, ar trebui să instalați mai întâi Kutools pentru Excel, vă rugăm faceți clic pentru a descărca și beneficiați acum de o probă gratuită de 30 de zile.

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 o perioadă de încercare gratuită de 30 de zile!
doc avansat combina rânduri
 
Kutools pentru Excel: cu peste 300 de programe de completare la îndemână Excel, gratuit pentru a încerca fără limitări în 30 de zile.

Cele mai bune instrumente de productivitate de birou

🤖 Kutools AI Aide: Revoluționați analiza datelor pe baza: Execuție inteligentă   |  Generați codul  |  Creați formule personalizate  |  Analizați datele și generați diagrame  |  Invocați funcțiile Kutools...
Caracteristici populare: Găsiți, evidențiați sau identificați duplicatele   |  Ștergeți rândurile goale   |  Combinați coloane sau celule fără a pierde date   |   Rundă fără Formula ...
Super căutare: VLookup cu mai multe criterii    VLookup cu valori multiple  |   VLookup pe mai multe foi   |   Căutare fuzzy ....
Listă derulantă avansată: Creați rapid o listă derulantă   |  Listă drop-down dependentă   |  Listă derulantă cu selectare multiplă ....
Manager de coloane: Adăugați un număr specific de coloane  |  Mutați coloanele  |  Comutați starea vizibilității coloanelor ascunse  |  Comparați intervale și coloane ...
Caracteristici prezentate: Focus pe grilă   |  Vedere de proiectare   |   Big Formula Bar    Manager registru de lucru și foi   |  Biblioteca de resurse (Text automat)   |  Data Picker   |  Combinați foi de lucru   |  Criptare/Decriptare celule    Trimiteți e-mailuri după listă   |  Super Filtru   |   Filtru special (filtrează bold/italic/barat...) ...
Top 15 seturi de instrumente12 Text Instrumente (Adăuga text, Eliminați caractere,...)   |   50+ Diagramă Tipuri de (Gantt Chart,...)   |   40+ Practic Formule (Calculați vârsta pe baza zilei de naștere,...)   |   19 inserare Instrumente (Introduceți codul QR, Inserați imaginea din cale,...)   |   12 Convertire Instrumente (Numere la cuvinte, conversie valutara,...)   |   7 Merge & Split Instrumente (Rânduri combinate avansate, Celule divizate,...)   |   ... și altele

Îmbunătățiți-vă abilitățile Excel cu Kutools pentru Excel și experimentați eficiența ca niciodată. Kutools pentru Excel oferă peste 300 de funcții avansate pentru a crește productivitatea și a economisi timp.  Faceți clic aici pentru a obține funcția de care aveți cea mai mare nevoie...

Descriere


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!
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