Kazalo
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.xlsmPostopki 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 .