Kako izbrati več elementov s spustnega seznama v celico v Excelu?
Spustni seznam se pogosto uporablja pri vsakodnevnem delu v Excelu. Na spustnem seznamu je privzeto mogoče izbrati samo en element. Toda včasih boste morda morali izbrati več elementov s spustnega seznama v eno samo celico, kot je prikazano spodaj. Kako lahko to storite v Excelu?
 |
 |
 |
S spustnega seznama izberite več elementov v celico z VBA
Enostavno in hitro izberite več elementov s spustnega seznama v celico
S spustnega seznama izberite več elementov v celico z VBA
Tukaj je nekaj VBA, ki vam lahko naredi uslugo pri reševanju tega posla.
Na spustnem seznamu v celici izberite podvojene predmete
1. Po ustvarjanju spustnega seznama z desno miškino tipko kliknite zavihek lista, da izberete Ogled kode iz kontekstnega menija.
2. Nato v Microsoft Visual Basic za aplikacije okno, kopirajte in prilepite spodnjo kodo v prazen skript.
VBA: Na spustnem seznamu v celici izberite več elementov
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. Shranite kodo in zaprite okno, da se vrnete na spustni seznam. Zdaj lahko na spustnem seznamu izberete več elementov.
Opomba:
1. Z VBA ločuje elemente po presledku, lahko jih spremenite xStrNew = xStrNew & "" & Target.Vrednost drugim, da spremenijo ločilo, kot ga potrebujete. Na primer xStrNew = xStrNew & "," & Target.Vrednost bo ločil predmete z vejicami.
2. Ta koda VBA deluje za vse spustne sezname na listu.
Izberite več elementov s spustnega seznama v celico brez ponovitve
Če želite s spustnega seznama v celico izbrati edinstvene predmete, lahko ponovite zgornje korake in uporabite spodnjo kodo.
VBA: Izberite več elementov s spustnega seznama v celico brez ponovitve
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
Obe zgornji kodi VBA ne podpirata brisanja delov vsebine celice, podpirata samo brisanje vseh elementov celice.
Enostavno in hitro izberite več elementov s spustnega seznama v celico
V Excelu razen kode VBA ni drugih načinov za omogočanje več elementov, izbranih s spustnega seznama v celici. Vendar pa je Večkrat izberite spustni seznam značilnost Kutools za Excel lahko hitro in enostavno opravi to delo s kliki.
Korak 1: Izberite Kutools > Spustni seznam > Spustni seznam za več izbir
2. korak: V pogovornem oknu spustnega seznama za več izbir določite nastavitve
- Nastavite obseg;
- Določite ločilo za razmejitvene elemente v celici;
- Odločite se za smer besedila；
- Kliknite OK.
Rezultat:
Preprosto ustvarite dinamični dvostopenjski ali večstopenjski spustni seznam v Excelu
|
| V Excelu je ustvarjanje spustnega seznama na dveh ali več ravneh zapleteno. Tukaj Dinamični spustni seznam uporabnost Kutools za Excel vam lahko naredim uslugo. Kar samo storite, je, da podatke naročite, kot je prikazano na primeru, nato izberete obseg podatkov in obseg izhoda, nato pa to prepustite pripomočku. Kliknite za 30-dnevno brezplačno preskusno različico! |
 |
| Kutools za Excel: z več kot 300 priročnimi dodatki za Excel lahko brezplačno preizkusite brez omejitev v 30 dneh. |
Najboljša pisarniška orodja za produktivnost
Napolnite svoje Excelove spretnosti s Kutools za Excel in izkusite učinkovitost kot še nikoli prej. Kutools za Excel ponuja več kot 300 naprednih funkcij za povečanje produktivnosti in prihranek časa. Kliknite tukaj, če želite pridobiti funkcijo, ki jo najbolj potrebujete...
Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo
- Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
- Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
- Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!
