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 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.
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 Sub3. 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 for Excel poate gestiona rapid și ușor această lucrare cu clicuri.
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
- Setați domeniul de aplicare;
- Specificați separatorul pentru elementele delimitate dintr-o celulă;
- Decideți direcția textului;
- Faceți clic pe OK.
Rezultat:
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 for 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! |
 |
| Kutools for Excel: cu mai mult de 300 de programe de completare Excel la îndemână, încercați fără limitări în 30 de zile. |
Cele mai bune instrumente de productivitate de birou
Îmbunătățiți-vă abilitățile Excel cu Kutools for Excelși experimentați eficiența ca niciodată înainte. Kutools for 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...
Office Tab Aduce interfața cu file la 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!
