Kako ustvariti spustni seznam v Excelu z več izbirami

  • Deliti To
Hugh West

Do zdaj smo preučevali kako ustvariti spustne sezname v Excelu. Danes bom prikazal kako ustvariti spustni seznam z več izbirami v Excelu .

Prenesi delovni zvezek za prakso

Delovni zvezek za vadbo lahko prenesete tukaj.

Ustvarite spustni seznam z večkratnim izborom.xlsm

Postopki korak za korakom za ustvarjanje spustnega seznama v Excelu z več izbirami

Tu imamo nabor podatkov s stolpcem Ime knjige ki vsebuje nekatera imena knjig. Naš današnji cilj je ustvariti spustni seznam na podlagi tega nabora podatkov, ki omogoča več izbir. V spodnjem razdelku bom prikazal postopke po korakih.

KORAK 1: Ustvarjanje spustnega seznama z uporabo potrjevanja podatkov

Za ustvarjanje spustnega seznama z več izbirami moramo najprej ustvariti spustni seznam. Sprehodimo se skozi postopke.

  • Najprej izberite celico, v kateri želite ustvariti spustni seznam. Celica D5 .

  • Nato pojdite v Podatki in izberite zavihek Potrjevanje podatkov s traku.

  • Nato iz Potrjevanje podatkov izberite Seznam na spletnem mestu Omogočite in napišite celice območja, katerih podatke želite dodati na seznam v Vir: področje.
  • Lahko tudi kliknete na majhno puščico navzgor v Vir: in izberite območje podatkov iz delovnega lista.

  • Na koncu bomo videli spustni seznam, ustvarjen v Celica D5 .

Podobna branja:

  • Kako narediti spustni seznam v Excelu (neodvisen in odvisen)
  • Večkratni izbor iz spustnega seznama v Excelu (3 načini)
  • Kako ustvariti odvisni spustni seznam v Excelu
  • Ustvarjanje spustnega seznama v več stolpcih v Excelu (3 načini)

KORAK 2: Omogočanje spustnega seznama za sprejemanje večkratnega izbora s kodo VBA

Padajoči seznam smo že ustvarili. Zdaj je čas, da padajoči seznam pripravimo za več izbir. Uporabil bom 2 VBA kode, ki omogočajo, da seznam sprejme več izbir. Ena bo sprejela ponavljanje podatkov, druga pa ne bo sprejela ponavljanja podatkov.

Primer 1: Koda VBA za več izbir s ponavljanjem

V tem razdelku bom prikazal način ustvarjanja spustnega seznama z več izbirnimi možnostmi, ki bo vseboval ponavljajoče se podatke.

Oglejmo si postopke.

  • Najprej pritisnite ALT + F11 da odprete VBA okno.
  • Nato izberite Raziskovalec projekta . Tudi, dvojni - kliknite na listu, na katerem želite opraviti nalogo.

  • Hkrati je bil Koda odpre se okno.
  • Nato v to okno napišite naslednjo kodo.
 Private Sub Worksheet_Change(ByVal Target As Range) Dim Oldvalue As String Dim Newvalue As String On Error GoTo Exitsub If Target.Address = "$D$5" Then If Target.SpecialCells(xlCellTypeAllValidation) Is Nothing Then GoTo Exitsub Else: If Target.Value = "" Then GoTo Exitsub Else Application.EnableEvents = False Newvalue = Target.Value Application.Undo Oldvalue = Target.Value If Oldvalue = "" ThenTarget.Value = Newvalue Else Target.Value = Oldvalue & ", " & Newvalue End If End If End If End If Application.EnableEvents = True Exitsub: Application.EnableEvents = True End Sub 

Opomba: V delu kode ( Če Target.Address = "$D$5" Nato ) namesto reference na celico $D$5, napišete sklic na celico, v kateri ste ustvarili spustni seznam.

  • Nazadnje se vrnite na delovni list in na spustnem seznamu bomo lahko izbrali več elementov s ponavljanjem istega elementa.

Primer 2: Koda VBA za večkratni izbor brez ponavljanja

V tem razdelku bom prikazal način ustvarjanja spustnega seznama z več izbirami, ki ne bo zahteval ponavljanja podatkov.

Oglejmo si postopke.

  • Najprej pritisnite ALT + F11 da odprete VBA okno.
  • Nato izberite Raziskovalec projekta . Tudi, dvojni - kliknite na listu, na katerem želite opraviti nalogo.

  • Hkrati je bil Koda Prikaže se okno.
  • Nato v to okno vnesite naslednjo kodo.
 Private Sub Worksheet_Change(ByVal Target As Range) Dim Oldvalue As String Dim Newvalue As String Application.EnableEvents = True On Error GoTo Exitsub If Target.Address = "$D$5" Then If Target.SpecialCells(xlCellTypeAllValidation) Is Nothing Then GoTo Exitsub Else: If Target.Value = "" Then GoTo Exitsub Else Application.EnableEvents = False Newvalue = Target.Value Application.Undo Oldvalue =Target.Value If Oldvalue = "" Then Target.Value = Newvalue Else If InStr(1, Oldvalue, Newvalue) = 0 Then Target.Value = Oldvalue & ", " & Newvalue Else: Target.Value = Oldvalue End If End If End If End If Application.EnableEvents = True Exitsub: Application.EnableEvents = True End Sub 

Opomba: V delu kode ( Če Target.Address = "$D$5" Nato ) namesto reference na celico $D$5, napišete sklic na celico, v kateri ste ustvarili spustni seznam.

  • Nazadnje se vrnite na delovni list in na spustnem seznamu bomo lahko izbrali več elementov brez ponavljanja istega elementa.

Zaključek

S to metodo lahko v Excelu ustvarite spustni seznam z več izbirami. Imate vprašanja? Povejte nam jih v razdelku s komentarji. Obiščite našo Spletna stran ExcelWIKI za več člankov o Excel .

Hugh West je zelo izkušen trener Excela in analitik z več kot 10-letnimi izkušnjami v industriji. Po izobrazbi je diplomirani računovodstvo in finance ter magisterij poslovne administracije. Hugh ima strast do poučevanja in je razvil edinstven pristop k poučevanju, ki ga je enostavno slediti in razumeti. Njegovo strokovno znanje o Excelu je pomagalo na tisoče študentom in strokovnjakom po vsem svetu, da so izboljšali svoje sposobnosti in se izkazali v karieri. Prek svojega bloga Hugh deli svoje znanje s svetom, ponuja brezplačne vadnice za Excel in spletno usposabljanje, ki posameznikom in podjetjem pomaga doseči njihov polni potencial.