Hogyan hozzunk létre többszörös listaboxot az Excelben (egyszerű lépésekkel)

Hugh West

18-10-2023 Makrók &; Excel VBA
  • Ossza Meg Ezt
Hugh West

Amikor egy nagy adathalmazon dolgozunk, gyakran nehézséget okoz, hogy szelektív értéket nyerjünk belőle. Ráadásul nem tudunk egyszerre több információt kiválasztani. Ebben az esetben, ListBox egy nagyon hasznos megoldás a Excel . De a létrehozásának folyamata ListBox egy kicsit trükkös. Ezért ebben a cikkben megtanuljuk, hogyan hozzunk létre egy többszörös kiválasztású ListBox excelben néhány egyszerű lépéssel.

Gyakorlati munkafüzet letöltése

Szerezze be a mintafájlt a gyakorláshoz.

Multi Select ListBox.xlsm

Lépésről-lépésre eljárások az Excel többszörös listaboxának létrehozására

Hogy megkönnyítsük a folyamatot, felosztottuk a következőkre 8 lépéseket a jobb megértés érdekében. Tehát, további késlekedés nélkül ugorjunk bele az alábbi lépésekbe, hogy lássuk, hogyan hozhatunk létre egy többszörös választást. ListBox Excelben.

1. lépés: Excel táblázat létrehozása az adatállományból

Kezdetben elő kell készítenünk egy mintaadatkészletet, és táblázattá kell alakítanunk. Ehhez kövesse az alábbi lépéseket.

  • Először hozzon létre egy adatkészletet a következő információkkal 10 városnevek és a Teljes népesség a USA till 1, július a Sejttartomány B5:C14 .

  • Most kattintson az adatkészlet bármely cellájára, és válassza a Asztal a Beillesztés tab.

  • Ezután látni fogja a Táblázat létrehozása ablak, amely automatikusan kiválasztja a cellatartományt a táblázat létrehozásához.
  • Ebben az ablakban jelölje be a A táblázatomnak fejlécei vannak és nyomja meg a OK .

  • Ennek eredményeképpen az adatkészletet táblázattá alakítja.

  • Ezzel együtt, a táblázatot megtalálod a Asztal neve doboz alatt a Asztal kialakítása lap

  • A táblázat nevét tetszés szerint megváltoztathatja.

Bővebben: Hogyan hozzon létre függő legördülő listát az Excelben

2. lépés: Adatkészlet-lista elnevezése a névkezelőből

Most a táblázat egyes cellatartomány-kategóriáit fogjuk megnevezni. Ehhez menjünk végig a lépéseken.

  • Először is, jelölje ki bármelyik cellát a B oszlop a táblázatban.
  • Ezután menjen a Képletek lapot, és válassza a Név meghatározása .

  • Ezt követően megjelenik a Új név párbeszédpanel.
  • Ebben a párbeszédpanelben adjon meg egy tetszőleges nevet a kiválasztott oszlopfejlécnek megfelelően a Név doboz.

  • Ezután kattintson a A következőkre vonatkozik doboz ugyanabban az ablakban.
  • Ezután helyezze a kurzort a fejléc fölé, és egy fekete nyíl fog megjelenni.
  • Ezután nyomja meg a bal egérgombbal a bal egérgombbal történő kattintást a Cellatartomány B5:B14 .

  • Ennek eredményeképpen a nevek listája a táblázat nevével együtt megjelenik a A következőkre vonatkozik és nyomja meg a OK .

  • Kövesse ugyanezt az eljárást a Cellatartomány C5:C14 is.
  • Végül a neveket a Név doboz a munkafüzet bal felső sarkában.

3. lépés: Drop Down lista létrehozása adatérvényesítéssel

Ebben a szakaszban egy legördülő listát hozunk létre a megnevezett tartományokból adatérvényesítéssel. Ez a lényeges része a ListBox . Ezt a munkafüzet egy másik munkalapján fogjuk létrehozni. De ugyanabban a munkalapban is megtehetjük. Lássuk az alábbiakban a folyamatot.

  • Kezdetben válasszon ki néhány cellát a táblázatból, ahol alkalmazni szeretné a Adatérvényesítés .
  • Ezután menjen a Adatok lapot, és válassza a Adatérvényesítés a Adateszközök szakasz.

  • Ezután a Beállítások lapon válassza a Lista a Engedélyezze a doboz.

  • Továbbá, mark ellenőrizte a Figyelmen kívül hagyni üres és Cella-beli legördülő menüpont dobozok.

  • Ezután kattintson a Forrás mezőt ebben az ablakban, és nyomja meg a F3 a billentyűzeten.
  • Ennek eredményeképpen a Beillesztés neve párbeszédpanel a névlistával.
  • Itt válassza a CityNames a listából, és nyomja meg a OK .

  • Ezután a forrás mezőben megjelenik az első lista neve.

  • Végül nyomja meg a OK és ugyanezt a folyamatot alkalmazza a második névlistára.
  • Végül látni fogja, hogy Adatérvényesítés aktiválódik a kijelölt cellákon.

4. lépés: VBA-kód beillesztése az érvényesített munkalapba

Most jön a döntő rész, a beillesztés VBA kódot, hogy létrehozzunk egy ListBox . Az alábbiakban ismertetjük a folyamatot.

  • Először kattintson a jobb gombbal az érvényesített munkalapra, és válassza a Kód megtekintése a Kontextus menü .

  • Ezután illessze be ezt a kódot az oldalra. 
 Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim rngDV As Range Dim oldVal As String Dim newVal As String Dim strList As String On Error Resume Next Application.EnableEvents = False Set rngDV = Cells.SpecialCells(xlCellTypeAllValidation) On Error GoTo exitHandler If rngDV Is Nothing Then GoTo exitHandler If Not Intersect(Target, rngDV) Is Nothing Then If Target.Validation.Type = 3Then strList = Target.Validation.Formula1 strList = Right(strList, Len(strList) - 1) strDVList = strList frmDVList.Show End If End If exitHandler: Application.EnableEvents = True End Sub

  • Ezután menjen a Beillesztés lapot, és válassza a Modul .
  • Ekkor a munkafüzet nevét ki kell jelölni a Projekt objektum ablak.

  • Ezután nevezze át a modult modSettings és illessze be ezt a kódot. 
 Opció Explicit Global strDVList As String

Köszönöm Kontextusok a kódok megadásáért.

5. lépés: UserForm létrehozása Listbox & Gombokkal

Ebben a szakaszban létrehozunk egy UserForm a munkafüzethez egy ListBox és néhány Parancsgombok Ehhez kövesse az alábbi eljárást.

  • Először válassza ki a munkafüzetet a Project-VBAProject ablakban a Visual Basic szerkesztő.

  • Ezután menjen a Beillesztés lapot, és válassza a UserForm .

  • Ennek eredményeképpen megkapja a UserForm ilyen interfész.

  • Ezzel együtt megkapja a következő szolgáltatásokat is Szerszámosláda ablak.
  • Innen húzza ListBox a UserForm .

  • Ezután a ListBox Így fog kinézni. A méret a doboz széleinek húzásával módosítható.

  • Ezután húzza a CommanButton kétszer a UserForm is, hogy 2 gombot hozzon létre a működéshez.

  • Végül a végső kimenet így néz ki.

6. lépés: A tulajdonságok beállításainak módosítása

Ebben a szakaszban néhány változtatást fogunk végrehajtani a tulajdonságokon a ListBox .

  • Az elején nyomja meg a F4 a Visual Basic szerkesztővel nyissa meg a Tulajdonságok ablak .
  • Ezután válassza ki a UserForm és módosítsa a Név és Felirat így.

  • Ezután válassza a ListBox és módosítsa a Név az Ön preferenciái szerint.

  • Ezenkívül változtassa meg a ListStyle , MultiSelect és SpecialEffect az alábbi kép szerint.

  • Most válassza ki az első parancsgombot, és végezze el a következő módosításokat a tulajdonságokban.

  • Ezen kívül szerkessze a második parancsgomb tulajdonságait is.

7. lépés: VBA kód alkalmazása a UserFormra

Ebben a szakaszban alkalmazzuk VBA kódok az egyes komponensekhez a UserForm Lássuk, hogyan működik.

  • Először válassza ki a UserForm és menj a A megtekintése fülön válassza ki a Kód: .

  • Ezután illessze be ezt a kódot az üres oldalra. Ez automatikusan lefut, amikor a UserForm kinyílik. 
 Private Sub UserForm_Initialize() Me.lstDV.RowSource = strDVList End Sub

  • Ezután menjen vissza a UserForm felületre kattintva Objektum a A megtekintése tab.

  • Most kövesse a folyamatot, hogy beszúrja ezt a kódot a OK gomb. 
 Private Sub cmdOK_Click() Dim strSelItems As String Dim lCountList As Long Dim strSep As String Dim strAdd As String Dim bDup As Boolean On Error Resume Next strSep = ", " With Me.lstDV For lCountList = 0 To .ListCount - 1 If .Selected(lCountList) Then strAdd = .List(lCountList) Else strAdd = "" End If If strSelItems = "" Then strSelItems = strAdd Else If strAdd "" Then strSelItems = strSelItems_ & strSep & strAdd End If End If Next lCountList End With With ActiveCell If .Value "" Then .Value = ActiveCell.Value _ & strSep & strSelItems Else .Value = strSelItems End If End With Unload Me End Sub End Sub

  • Ezzel együtt írja be a következő kódot a Zárja be a gombot ugyanezzel az eljárással. 
 Private Sub cmdClose_Click() Unload Me End Sub

  • Végül nyomja meg a Ctrl + S a mentéshez és az ablak bezárásához.

Köszönöm Kontextusok hogy segítettél a kódokkal.

8. lépés: Többszörös kiválasztás a ListBox-ból

Végül sikeresen létrehoztunk egy ListBox Ha ellenőrizni szeretné, hogy a kód működik-e vagy sem, egyszerűen csak menjen végig a következő lépéseken.

  • Először válassza ki a B5 sejt ahol alkalmaztuk Adatérvényesítés .
  • Rögtön ezután egy ListBox fel fog ugrani, és azt parancsolja Tétel kiválasztása a listából .
  • Ebben az ablakban több nevet is kiválaszthat a listából.

  • Ezután nyomja meg a OK .
  • Végül, sikeresen többszörösen kiválasztottad a ListBox és minden név egy vessző ( , ).

Emlékezetes dolgok

  • Megnevezett tartományok nem hoz létre egy Adatérvényesítés szabály, ha cellahivatkozásként vagy elválasztójelekkel adják meg őket.
  • A Globális változó mindkettőre alkalmazzák UserForm és VBA munkalap Bármely aktív cellanév kezdetben átadja a kódot. strDVList egy ideiglenes tartományba, majd egy ideiglenes tartományként használják RowSource a ListBox amikor a felhasználó megnyitja a UserForm .
  • A könnyebb kiválasztás érdekében több tartományt is kombinálhat egyetlen névben.

Következtetés

Ennyi volt mára. Remélem, hogy ezek a hosszú, de egyszerű lépések, hogy hogyan kell multi select ListBox létrehozása az excelben egy kicsit megkönnyítettük a témát az Ön számára. Írja meg nekünk a visszajelzéseit a megjegyzés rovatban. Follow ExcelWIKI további ilyen cikkekért.

Előző poszt Hogyan számolhatom meg a cellákat szöveggel az Excelben (8 gyors trükkök)
Következő bejegyzés Hogyan lehet több cellát kivonni az Excelben (6 hatékony módszer)

Hugh West nagy tapasztalattal rendelkező Excel-oktató és elemző, több mint 10 éves tapasztalattal az iparágban. Számvitel és pénzügy szakos alapdiplomát, valamint üzleti adminisztrációból mesterképzést szerzett. Hugh szenvedélye a tanítás, és egyedülálló tanítási megközelítést dolgozott ki, amely könnyen követhető és érthető. Az Excelben szerzett szakértői tudása világszerte több ezer diáknak és szakembernek segített abban, hogy készségeiket és karrierjüket kiválóan teljesítsék. Hugh blogján keresztül megosztja tudását a világgal, ingyenes Excel-oktatóanyagokat és online képzéseket kínálva, hogy segítse az egyéneket és a vállalkozásokat teljes potenciáljuk kibontakoztatásában.