Namig: drugi jeziki so prevedeni v Google. Lahko obiščete English različico te povezave.
Vpiši se
x
or
x
x
Registracija
x

or

Kako izberem več elementov iz spustnega seznama v celico v Excelu?

Spustni seznam se pogosto uporablja v dnevnem delu Excela. Na spustnem seznamu je mogoče privzeto izbrati samo en element. Toda v nekaterih primerih boste morda morali izbrati več elementov s spustnega seznama v eno celico, kot je prikazano spodaj. Kako lahko to storite v Excelu?

doc izbere več elementov iz padajočega seznama 1 doc arrow desno doc izbere več elementov iz padajočega seznama 2

Izberite elemente iz spustnega seznama v celico

Preprosto združite stolpce ali vrstice, ne da bi izgubili podatke v programu Excel

Če menite, da delate z delovnim listom, ki vsebuje več podvojenih zapisov, zdaj morate kombinirati / združiti vrstice na podlagi enake vrednosti in narediti nekaj izračunih, kot je vsota, povprečje, število podvojenih vrstic. S tem Napredne kombinacije vrst of Kutools za Excel, lahko hitro združite iste vrednosti / iste podatke ali podvojene vrstice v ustrezne celice. Kliknite za brezplačni preskus 60 dni!
doc napredno kombiniranje vrstic
Kutools za Excel: z več kot 200 priročnimi dodatki Excel, lahko brezplačno poskusite brez omejitev v dnevih 60.

Izberite elemente iz spustnega seznama v celico


Tukaj je nekaj VBA, ki vam lahko pomaga pri reševanju tega posla.

Izberite podvojene elemente iz spustnega seznama v celici

1. Ko ustvarite spustni seznam, z desno miškino tipko kliknite jeziček stanja, da ga izberete Ogled kode iz kontekstnega menija.
doc izbere več elementov iz padajočega seznama 3

2. Potem v Microsoft Visual Basic za aplikacije okno, kopirajte in prilepite spodnjo kodo v prazno skripto.

VBA: v celici izberite več elementov iz spustnega seznama

Private Sub Worksheet_Change (ByVal Target As Range) 'UpdatebyExtendoffice20180510 Dim xRgVal As Range Dim xStrNew As String Error Resume Next Set xRgVal = Cells.SpecialCells (xlCellTypeAllValidation) Če (Target.Count> 1) ali (xRgVal Nič) Preseči (Target, xRgVal) Nič ni potem izhod Sub Application.EnableEvents = False xStrNew = Target.Value Application.Undo xStrNew = xStrNew & "" & Target.Value Target.Value = xStrNew Application.EnableEvents = True End Sub

doc izbere več elementov iz padajočega seznama 4

3. Shranite kodo in zaprite okno, da se vrnete na spustni seznam. Zdaj lahko iz padajočega seznama izberete več elementov.

Opomba:

1. Z VBA, ločuje predmete po prostoru, lahko spremenite xStrNew = xStrNew & "" & Target.Value drugim, da spremenite ločilo, kot ga potrebujete. Na primer, xStrNew = xStrNew & "," & Target.Value bo predmete ločil z vejicami.

2. Ta VBA koda deluje za vse spustne sezname v listu.

Izberite elemente iz spustnega seznama v celico brez ponovitve

Če želite samo enote iz spustnega seznama izbrati v celico, lahko ponovite zgornje korake in uporabite spodnjo kodo.

VBA: iz padajočega seznama izberite več elementov v celico brez ponovitve

Private Sub Worksheet_Change (ByVal Target As Range) 'UpdatebyExtendoffice20180510 Dim I kot celota Dim xRgVal As Range Dim xStrNew As String Dim xStrOld As String Dim xFlag As Boolean Dim xArr On Napaka Nadaljuj Naslednji Set xRgVal = Cells.SpecialCells (xlCellTypeAllValidation) Če (Target. Count> 1) ali (xRgVal Is Nothing) in nato Exit Sub, če se preseže (Target, xRgVal) je nič, potem izstopite iz Sub Application.EnableEvents = False xFlag = True xStrNew = "" & Target.Value & "" Application.Undo xStrOld = Target .Value Če je InStr (1, xStrOld, xStrNew) = 0 Potem xStrNew = xStrNew & xStrOld & "" Else xStrNew = xStrOld Končaj Če Target.Value = xStrNew Application.EnableEvents = True End Sub


Priporočena orodja za produktivnost za Excel

zavihek kte 201905

Kutools za Excel vam pomaga, da vedno končate delo pred časom in izstopite iz množice

  • Več kot zmogljive napredne funkcije 300, zasnovane za 1500 delovne scenarije, ki povečujejo produktivnost z 70%, vam dajejo več časa za skrb za družino in uživanje v življenju.
  • Ne potrebujete več pomnilniških formul in VBA kod, od zdaj naprej pa dajate svojim možganom počitek.
  • Postanite strokovnjak za Excel v minutah 3, zapletene in ponavljajoče se operacije lahko opravite v nekaj sekundah,
  • Vsak dan zmanjšajte število operacij tipkovnice in miške, zdaj se poslovite od poklicnih bolezni.
  • 110,000 visoko učinkovite ljudi in 300 + svetovno priznanih podjetij izbiro.
  • Brezplačna preizkusna različica 60 dneva. 60-dnevno jamstvo vračila denarja. 2 let brezplačne nadgradnje in podpore.

Prinaša kartično brskanje in urejanje za Microsoft Office, veliko močnejši od zavihkov brskalnika

  • Office Tab je namenjen za Word, Excel, PowerPoint in druge Office aplikacije: Založnik, Dostop, Visio in Projekt.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Z 50% poveča vašo produktivnost in vsak dan zmanjša na stotine klikov z miško!
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    debadeep · 19 days ago
    After adding,the data from dropdown,delete doesnt work.
    • To post as a guest, your comment is unpublished.
      Susan Lynn · 17 days ago
      I found the same issue. I think I found a way to overcome it. At the bottom of the code you'll see the code "xStrNew = xStrOld". Instead, make it say xStrNew = " "

      It works for me.