Ugrás a tartalomra

Hogyan hozhatunk létre dinamikus lépcsőzetes listákat az Excelben?

Lehet, hogy tudod, hogyan hozhat létre lépcsőzetes érvényesítési legördülő listát az Excelben. Hogyan hozhatunk létre dinamikus lépcsőzetes listamezőket az Excel programban? Ez a cikk egy VBA-módszert mutat be a lebontásához.

Hozzon létre dinamikus lépcsőzetes listadobozokat VBA kóddal


Hozzon létre dinamikus lépcsőzetes listadobozokat VBA kóddal

Amint az alábbi képernyőképen látható, létre kell hoznia egy szülőlistát, amely tartalmazza az Igyon oszlop egyedi értékeit, és az összes megfelelő értéket meg kell jelenítenie a második listamezőben, a szülői listamező kiválasztása alapján. A következő VBA-kód segít elérni. Kérjük, tegye a következőket.

1. Először ki kell egészítenie az összes egyedi értéket az Ital oszlopból. Válasszon egy üres cellát, írja be a tömbképletet =IFERROR(INDEX($A$2:$A$11, MATCH(0,COUNTIF($J$1:J1, $A$2:$A$11), 0)),"") be a Formula Bar, majd nyomja meg a gombot Ctrl + műszak + belép kulcs. Ezután húzza a Töltse meg a fogantyút hogy minden egyedi értéket megkapjon. Lásd a képernyőképet:

Megjegyzések: A képletben $A$2:$A$11 az a tartomány, amelyből egyedi értékeket fog kinyerni. J1 a fenti cella, ahol a képlete található.

típus: Ha a képletet túl nehéz megjegyezni és kezelni, akkor a Válassza az Ismétlődő és egyedi cellák lehetőséget hasznossága Kutools az Excel számára jó választás lesz az összes egyedi érték gyors kinyeréséhez egy oszlopból.

Kérjük, válassza ki, hogy az oszlop egyedi értékeket tartalmaz, amelyekből kivonja. Ezután a kattintással engedélyezze a segédprogramot Kutools > választ > Válassza az Ismétlődő és egyedi cellák lehetőséget. Az Válassza az Ismétlődő és egyedi cellák lehetőséget párbeszédpanelen válassza a ikont Minden egyedi (az 1. duplikátumokat is beleértve) opciót és kattintson a OK gomb. Ezután az összes egyedi érték kijelölésre kerül az oszlopban. Kérjük, másolja és illessze be őket egy új helyre. Lásd a képernyőképet:

Kutools az Excel számára: több mint 200 praktikus Excel-bővítménnyel, ingyenesen, korlátozás nélkül, 60 nap alatt kipróbálható. Töltse le és ingyenes próbaverziót most!

2. Kattintson két kattintással külön két listamezőt Fejlesztő > betétlap > Lista mező (ActiveX-vezérlő). Lásd a képernyőképet:

3. Kattintson a jobb gombbal a szülő listára, és válassza a lehetőséget Ingatlanok a helyi menüből. Ban,-ben Ingatlanok párbeszédpanelen módosítsa a (Név) mezőt Ital vagy más név szerint, írja be a kibontott egyedi értékeket tartalmazó cellatartományt a ListFillRange mezőt, és zárja be a párbeszédpanelt.

4. A második lista mezőinek módosításához ismételje meg a 3. lépést (Név) mezőt a Tételhez a Ingatlanok párbeszédablak.

5. Kattintson jobb gombbal a lap fülre, és válassza a lehetőséget Kód megtekintése a jobb egérgombbal a menüből. Ezután másolja a VBA kód alatt a Kód ablakba. Lásd a képernyőképet:

VBA-kód: Dinamikus lépcsőzetes listamezők létrehozása az Excel programban

Dim xPreStr As String
Private Sub Drink_Click()
'Update by Extendoffice 2018/06/04
    Dim I, xRows As Long
    Dim xRg As Range
    Dim xRegStr As String
    Application.ScreenUpdating = False
    xRegStr = Me.Drink.Text
    Set xRg = Range("A2:A11")
    xRows = xRg.Rows.Count
    If xRegStr <> xPreStr Then
    Me.Item.Clear
   'Me.OtherListBoxName.Clear
    Set xRg = xRg(1)
    For I = 1 To xRows
        If xRg.Offset(I - 1).Value = xRegStr Then
            Me.Item.AddItem xRg.Offset(I - 1, 1).Value
            'Me.OtherListBoxName.AddItem xRg.Offset(I - 1, 2).Value
        End If
    Next
    xPreStr = xRegStr
    End If
    Application.ScreenUpdating = True
End Sub

Megjegyzések: Az Ital és az Elem kódban két listamező neve található, változtassa meg saját nevére.

6. megnyomni a más + Q gombok a Microsoft Visual Basic for Applications ablak.

7. Kattintson a gombra a Design Mode kikapcsolásával Fejlesztő > Tervezési mód.

Mostantól kezdve, amikor bármilyen italt, például Kávét választ a szülő listában, az összes kávéelem megjelenik a másodikban. A Tea vagy bor kiválasztása csak a tea vagy bor elemeket jeleníti meg a második lista mezőben. Lásd a képernyőképet:


Kapcsolódó cikkek:

A legjobb irodai hatékonyságnövelő eszközök

Népszerű szolgáltatások: Ismétlődések keresése, kiemelése vagy azonosítása   |  Üres sorok törlése   |  Oszlopok vagy cellák kombinálása adatvesztés nélkül   |   Kerek Formula nélkül ...
Szuper keresés: Több kritérium VLookup    Többértékű VLookup  |   VLookup több munkalapon   |   Fuzzy Lookup ....
Speciális legördülő lista: Gyors legördülő lista létrehozása   |  Függő legördülő lista   |  Többszörösen válassza ki a legördülő listát ....
Oszlopkezelő: Adjon meg egy adott számú oszlopot  |  Oszlopok mozgatása  |  Kapcsolja be a Rejtett oszlopok láthatósági állapotát  |  Tartományok és oszlopok összehasonlítása ...
Kiemelt funkciók: Rács fókusz   |  Design nézet   |   Nagy Formula bár    Munkafüzet és lapkezelő   |  Erőforrás-könyvtár (Auto szöveg)   |  Dátumválasztó   |  Kombinálja a munkalapokat   |  Cellák titkosítása/dekódolása    E-mailek küldése listánként   |  Szuper szűrő   |   Speciális szűrő (félkövér/dőlt/áthúzott szűrés...) ...
A 15 legjobb eszközkészlet12 szöveg Eszközök (Szöveg hozzáadása, Karakterek eltávolítása,...)   |   50 + Táblázatos Típusai (Gantt-diagram,...)   |   40+ Praktikus képletek (Számolja ki az életkort a születésnap alapján,...)   |   19 beszúrás Eszközök (Helyezze be a QR-kódot, Kép beszúrása az útvonalból,...)   |   12 Átalakítás Eszközök (Számok szavakig, Valuta átváltás,...)   |   7 Egyesítés és felosztás Eszközök (Haladó kombinált sorok, Hasított sejtek,...)   |   ... és több

Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz.  Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...

kte lap 201905


Az Office lap füles felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját

  • Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
  • Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
  • 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!
Comments (1)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hi

What does "Me" refer to in the code and how will the code change if I have a MultiSelect list box?

Regards
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations