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 SubMegjegyzé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:
- Hogyan törölhető a függő legördülő lista cella az Excel megváltoztatása után?
- Hogyan hozhatunk létre függő lépcsőzetes legördülő listákat az Excelben?
- Hogyan lehet automatikusan feltölteni a többi cellát, amikor kiválasztja az értékeket az Excel legördülő listában?
- Hogyan hozhatunk létre legördülő listás naptárt az Excelben?
- HMenteni vagy megtartani az ActiveX-listák kiválasztását az Excel-ben?
A legjobb irodai hatékonyságnövelő eszközök
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...
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!
