Mostanáig a következőket vizsgáltuk hogyan hozzunk létre legördülő listákat ma megmutatom, hogy hogyan hozzon létre egy legördülő listát többszörös kiválasztással az Excelben .

Gyakorlati munkafüzet letöltése

A gyakorlati munkafüzetet innen töltheti le.

Lépésről lépésre eljárások az Excel többszörös kiválasztással rendelkező legördülő lista létrehozásához

Itt van egy adatkészletünk, amelynek van egy oszlopa. Könyv neve amely néhány könyv nevét tartalmazza. A mai célunk egy olyan legördülő lista létrehozása ezen az adatkészleten alapulva, amely többszörös választást fogad el. Az alábbiakban lépésről lépésre mutatom be az eljárást.

1. LÉPÉS: Drop-Down lista létrehozása az adatérvényesítés használatával

A többszörös kiválasztással rendelkező legördülő lista létrehozásához először egy legördülő listát kell létrehoznunk. Menjünk végig az eljárásokon.

• Először is jelölje ki azt a cellát, ahol a legördülő listát szeretné létrehozni. Én a D5 cella .

• Ezután menjen a Adatok lapot, és válassza a Adatérvényesítés a szalagról.

• Ezután, a Adatérvényesítés ablakban válassza a Lista a oldalon. Engedélyezze a szakaszba, és írja be azokat a tartománycellákat, amelyek adatait hozzá akarja adni a listához a Forrás mező.
• Másik lehetőségként kattinthat a kis felfelé mutató nyílra a Forrás szakaszban, és válassza ki a munkalap adattartományát.

• Végül egy legördülő listát fogunk látni, amelyet a D5 cella .

Hasonló olvasmányok:

• Hogyan készítsünk egy legördülő listát az Excelben (független és függő)
• Többszörös kiválasztás a legördülő listából az Excelben (3 mód)
• Hogyan hozzon létre függő legördülő listát az Excelben
• Drop Down lista létrehozása több oszlopban az Excelben (3 módja)

2. LÉPÉS: A legördülő lista többszörös kiválasztás engedélyezése VBA-kóddal

A legördülő listát már létrehoztuk. Most itt az ideje, hogy előkészítsük a legördülő listát a többszörös kiválasztásra. Én a 2 VBA kódok, hogy a lista többszörös kiválasztást fogadjon el. Az egyik elfogadja az adatismétlést, a másik pedig nem fogadja el az adatismétlést.

1. eset: VBA-kód többszörös kiválasztáshoz ismétléssel

Ebben a részben megmutatom, hogyan hozhatunk létre egy többszörös kiválasztással rendelkező legördülő listát, amely az adatok ismétlődését veszi fel.

Menjünk végig az eljárásokon.

• Először nyomja meg a ALT + F11 a VBA ablak.
• Ezután válassza a Project Explorer ...is, dupla - kattints a címre. azon a lapon, ahol a feladatot szeretné elvégezni.

• Ezzel egyidejűleg egy Kód: ablak fog megnyílni.
• Ezután írja a következő kódot ebbe az ablakba.

 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 

• Végül térjünk vissza a munkalapra, és a legördülő listában több elemet is ki tudunk majd választani ugyanazon elem ismétlésével.

2. eset: VBA-kód többszörös kiválasztáshoz ismétlés nélkül

Ebben a részben megmutatom, hogyan hozhatunk létre egy többszörös kiválasztással rendelkező legördülő listát, amely nem veszi igénybe az adatok ismétlődését.

Menjünk végig az eljárásokon.

• Először nyomja meg a ALT + F11 a VBA ablak.
• Ezután válassza a Project Explorer ...is, dupla - kattints a címre. azon a lapon, ahol a feladatot szeretné elvégezni.

• Ezzel egyidejűleg egy Kód: ablak jelenik meg.
• Ezután írja be a következő kódot ebbe az ablakba.

 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 End If Application.EnableEvents = True Exitsub: Application.EnableEvents = True End Sub 

• Végül térjünk vissza a munkalapra, és a legördülő listában több elemet is ki tudunk majd választani anélkül, hogy ugyanaz az elem ismétlődne.

Következtetés

Ezzel a módszerrel többszörös választékkal rendelkező legördülő listát hozhat létre az Excelben. Van kérdése? Nyugodtan ossza meg velünk a megjegyzés rovatban. Látogasson el a mi ExcelWIKI weboldal további cikkekért a következőkkel kapcsolatban Excel .