Note: The other languages of the website are Google-translated. Back to English

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?

doc izberite več elementov s spustnega seznama 1 doc puščica desno doc izberite več elementov s spustnega seznama 2

S spustnega seznama izberite več elementov v celico z VBA

S spustnega seznama izberite več elementov v celico s priročno možnostjo Kutools for Excel


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.
doc izberite več elementov s spustnega seznama 3

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)
'UpdatebyExtendoffice20210409
    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
    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

doc izberite več elementov s spustnega seznama 4

3. 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)
'UpdatebyExtendoffice20180510
    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
    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

S spustnega seznama izberite več elementov v celico s priročno možnostjo Kutools for Excel

Če kode VBA ne poznate, jo lahko brezplačna namestitev priročno orodje - Kutools za Excel, ki vsebuje skupino pripomočkov o spustnem seznamu in obstaja možnost Večkrat izberite spustni seznam vam lahko pomaga s preprosto izbiro več elementov s spustnega seznama v celico.

Po ustvarjanju spustnega seznama izberite celice spustnega seznama in kliknite Kutools > Spustni seznam > Večkrat izberite spustni seznam da omogočite to pripomoček.
doc kutools multi select spustni seznam 1

Nato lahko izbrane celice spustnega seznama izberejo več elementov v celico.

Če to možnost uporabite prvič, lahko pred uporabo tega pripomočka določite želene nastavitve.

klik Kutools > Spustni seznam > puščica zraven Večkrat izberite spustni seznam > Nastavitve.
doc kutools multi select spustni seznam 2

Potem v Večkrat izberite Nastavitve spustnega seznama lahko pogovorno okno

1) določite obseg prijave, kot ga potrebujete;

2) Navedite smer postavitve predmetov;

3) Navedite ločilo med elementi;

4) Določite, če ne želite dodati dvojnikov in odstraniti podvojene elemente.

klik Ok in kliknite Kutools > Spustni seznam > Večkrat izberite spustni seznam da začne veljati.

Nasvet: Za uporabo Večkrat izberite spustni seznam pripomoček, morate namestitev najprej. Če želite ustvariti spustni seznam z več nivoji, vam bo morda v pomoč spodnji pripomoček.

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!
doc napredne kombinacije vrstic
 
Kutools za Excel: z več kot 300 priročnimi dodatki za Excel lahko brezplačno preizkusite brez omejitev v 30 dneh.

Najboljša orodja za pisarniško produktivnost

Kutools za Excel rešuje večino vaših težav in poveča produktivnost za 80%

  • Ponovna uporaba: Hitro vstavite zapletene formule, grafikoni in vse, kar ste že uporabljali; Šifriraj celice z geslom; Ustvari poštni seznam in pošiljanje e-pošte ...
  • Vrstica Super Formula (enostavno urejanje več vrstic besedila in formule); Bralna postavitev (enostavno branje in urejanje velikega števila celic); Prilepite v filtrirani obseg...
  • Združi celice / vrstice / stolpce brez izgube podatkov; Vsebina razdeljenih celic; Združi podvojene vrstice / stolpce... prepreči podvojene celice; Primerjaj obsege...
  • Izberite Duplicate ali Unique Vrstice; Izberite prazne vrstice (vse celice so prazne); Super Find in Fuzzy Find v mnogih delovnih zvezkih; Naključna izbira ...
  • Natančna kopija Več celic brez spreminjanja sklica formule; Samodejno ustvarjanje referenc na več listov; Vstavi oznake, Potrditvena polja in še več ...
  • Izvleček besedila, Dodaj besedilo, Odstrani po položaju, Odstrani presledek; Ustvari in natisni vmesne seštevke strani Pretvarjanje med vsebino celic in komentarji...
  • Super filter (shranite in uporabite sheme filtrov za druge liste); Napredno razvrščanje glede na mesec / teden / dan, pogostost in drugo; Poseben filter s krepko, ležeče ...
  • Združite delovne zvezke in delovne liste; Spoji tabele na podlagi ključnih stolpcev; Razdelite podatke na več listov; Paketna pretvorba xls, xlsx in PDF...
  • Več kot 300 zmogljivih funkcij. Podpira Office / Excel 2007-2019 in 365. Podpira vse jezike. Preprosta namestitev v vašem podjetju ali organizaciji. Vse funkcije 30-dnevnega brezplačnega preskusa. 60-dnevno jamstvo za vračilo denarja.
zavihek kte 201905

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 z miško!
dno pisarniške mize
Komentarji (20)
Ocene še ni. Bodite prvi in ​​ocenite!
Ta komentar je moderator na spletnem mestu minimiziral
Po dodajanju podatki iz spustnega menija brisanje ne delujejo.
Ta komentar je moderator na spletnem mestu minimiziral
Našel sem isto težavo. Mislim, da sem našel način, kako to premagati. Na dnu kode boste videli kodo "xStrNew = xStrOld". Namesto tega naj piše xStrNew = " "

Meni deluje.
Ta komentar je moderator na spletnem mestu minimiziral
Ali obstaja možnost, da še imate to kodo? Poskušam narediti, kar ste rekli, vendar se besedilo še vedno podvaja.
Hvala
Ta komentar je moderator na spletnem mestu minimiziral
Oprosti, ampak ne. Vendar sem samo pogledal zgornjo kodo in zdi se, da je avtor uredil kodo z mojim predlogom.

objavite svojo težavo v glavni temi tega članka.
Ta komentar je moderator na spletnem mestu minimiziral
v prvi kodi med vrsticama 6 in 7 dodajte naslednjo vrstico (10-11 v drugi kodi): Če je Target.Value = "" Nato zapustite Sub
Ta komentar je moderator na spletnem mestu minimiziral
Uporabil sem to "Izberi več elementov s spustnega seznama v celico brez ponavljanja"
to se je zgodilo
1. Več izbir se zgodi brez težav.
2. Težava je, ko poskušam urediti in odstraniti možnost. Ne morem odstraniti možnosti. se kar naprej množi.
Ta komentar je moderator na spletnem mestu minimiziral
Kako bi uporabili to funkcionalnost, vendar tako, da ne bo odvečnih vrednosti? Vsaka pomoč bi bila hvaležna!
Ta komentar je moderator na spletnem mestu minimiziral
Če s potrditvenimi polji ustvarim list s spustnim seznamom, ali obstaja način za skupno rabo tega delovnega zvezka s to funkcijo potrditvenih polj?
Ta komentar je moderator na spletnem mestu minimiziral
Ugotavljam tudi, da po izbiri več elementov s posodobljeno kodo VBA še vedno ne morem počistiti celice, le še naprej se množi.
Ali ima še kdo rešitev za to?
Ta komentar je moderator na spletnem mestu minimiziral
Živjo, Rusty, kodo sem posodobil, da je bolj stabilna. Ker pa je celica v postopku preverjanja veljavnosti podatkov, blank je izven preverjanja veljavnosti podatkov, koda ne more rešiti te težave.
Ta komentar je moderator na spletnem mestu minimiziral
Quando quero deletar alguma opção ou todas dá erro. Como posso razreševalec?
Ta komentar je moderator na spletnem mestu minimiziral
Živjo! Como puedo usar este codigo para todo un worksheet y no solo para una pestana?
Ta komentar je moderator na spletnem mestu minimiziral
Živjo, Vero, Kutools for Excelova funkcija spustnega seznama z več izbiro podpira izbiro več elementov s spustnega seznama na celotnem delovnem listu ali v delovnem zvezku, samo določite določen obseg v pogovornem oknu Nastavitve spustnega seznama z več izbiro.
Ta komentar je moderator na spletnem mestu minimiziral
Kako lahko to storim za prvo formulo, ki ste jo navedli :) Hvala že vnaprej!
Ta komentar je moderator na spletnem mestu minimiziral
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 !
komentiraj pošteno?
merci par avance
Ta komentar je moderator na spletnem mestu minimiziral
Živjo, oprosti za to. Da bi se izognili tej težavi, bomo našo funkcijo nadgradili z naslednjo različico. Hvala za povratne informacije.
Ta komentar je moderator na spletnem mestu minimiziral
bcp hvala
Mais à quand la nouvelle version ?
Ta komentar je moderator na spletnem mestu minimiziral
Živjo, nova različica je v načrtovanju, ker bo naslednja različica nadgradila več funkcij, lahko traja nekaj časa.
Ta komentar je moderator na spletnem mestu minimiziral
Pozdravljeni, to različico smo posodobili za vas, vendar je to različica beta, prenesite jo s tega naslova: https://download.extendoffice.com/downloads/Kutools-for-Excel/beta/26.10/KutoolsforExcelSetup.Inno.exe
Če imate kakršne koli težave, dobrodošli za povratne informacije.
Ta komentar je moderator na spletnem mestu minimiziral
Hvala,
Je vais la télécharger et essayer.
Bonne journée
Tu še ni objavljenih komentarjev
Pustite vaše komentarje
Objava kot gost
×
Ocenite to objavo:
0   Znaki
Predlagane lokacije