Note: The other languages of the website are Google-translated. Back to English

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

Az Office fül lehetővé teszi a füles szerkesztést és böngészést az Office-ban, és sokkal könnyebbé teszi a munkáját ...
A Kutools for Excel megoldja a legtöbb problémát, és 80% -kal növeli a termelékenységet
  • Bármely újrafelhasználása: Adja hozzá a leggyakrabban használt vagy összetett képleteket, diagramokat és bármi mást a kedvenceihez, és a későbbiekben gyorsan használja fel újra.
  • Több mint 20 szöveges szolgáltatás: Szám kivonása a szöveges karakterláncból; Bontsa ki vagy távolítsa el a szövegek egy részét; Számok és pénznemek konvertálása angol szavakká.
  • Eszközök egyesítése: Több munkafüzet és lap egybe; Egyesítsen több cellát / sort / oszlopot adatok elvesztése nélkül; Az ismétlődő sorok és összeg összevonása.
  • Felosztott eszközök: Az adatok felosztása több lapra az érték alapján; Egy munkafüzet több Excel, PDF vagy CSV fájlhoz; Egy oszlop több oszlopra.
  • Ugrás beillesztése Rejtett / szűrt sorok; Gróf és összeg háttérszínnel; Személyre szabott e-maileket küldhet több címzettnek tömegesen.
  • Szuper szűrő: Hozzon létre speciális szűrősémákat, és alkalmazza azokat bármilyen lapra; Fajta hét, nap, gyakoriság és egyebek szerint; Szűrő félkövérrel, képletekkel, megjegyzésekkel ...
  • Több mint 300 hatékony funkció; Működik az Office 2007-2021 és 365 verziókkal; Támogatja az összes nyelvet; Könnyű üzembe helyezés a vállalkozásban vagy szervezetben.

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 termelékenységi eszközök

A Kutools for Excel megoldja a legtöbb problémát, és 80% -kal növeli a termelékenységet

  • újrafelhasználás: Gyorsan helyezze be összetett képletek, diagramok és bármi, amit korábban használt; Cellák titkosítása jelszóval; Levelezőlista létrehozása és e-maileket küldeni ...
  • Szuper Formula Bár (könnyedén szerkeszthet több szöveget és képletet); Olvasás elrendezés (könnyen olvasható és szerkeszthető nagyszámú cella); Beillesztés a Szűrt tartományba...
  • Cellák / sorok / oszlopok egyesítése az adatok elvesztése nélkül; Osztott cellák tartalma; Kombinálja a duplikált sorokat / oszlopokat... megakadályozza az ismétlődő cellákat; Hasonlítsa össze a tartományokat...
  • Válassza a Másolat vagy az Egyedi lehetőséget Sorok; Válassza az Üres sorok lehetőséget (az összes cella üres); Super Find és Fuzzy Find sok munkafüzetben; Véletlenszerű kiválasztás ...
  • Pontos másolás Több cella a képletreferencia megváltoztatása nélkül; Automatikus referenciák létrehozása több lapra; Helyezze be a golyókat, Jelölőnégyzetek és még sok más ...
  • Kivonat szöveg, Szöveg hozzáadása, Eltávolítás pozíció szerint, Hely eltávolítása; Hozz létre és nyomtasson személyhívó részösszegeket; Konvertálás a cellatartalom és a megjegyzések között...
  • Szuper szűrő (mentse el és alkalmazza a szűrősémákat más lapokra); Haladó rendezés hónap / hét / nap, gyakoriság és egyebek szerint; Speciális szűrő félkövér, dőlt betűvel ...
  • Kombinálja a munkafüzeteket és a munkalapokat; Táblázatok egyesítése kulcsoszlopok alapján; Az adatok felosztása több lapra; Kötegelt konvertálás xls, xlsx és PDF...
  • Több mint 300 hatékony funkció. Támogatja az Office / Excel 2007-2021 és 365 verziókat. Minden nyelvet támogat. Könnyű üzembe helyezés vállalatában vagy szervezetében. Teljes funkciók 30 napos ingyenes próbaverzió. 60 napos pénzvisszafizetési garancia.
kte lap 201905

Az Office fül a füles felületet hozza 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!
officetab alja
A megjegyzések rendezése szerint
Hozzászólások (1)
Még nincs értékelés. Legyen Ön az első, aki értékel!
A weboldal moderátora ezt a megjegyzést minimalizálta
Hi

Mire utal az „én” a kódban, és hogyan fog megváltozni a kód, ha van MultiSelect listamezőm?

Üdvözlettel
Még senki sem írt megjegyzést
Hagyja meg észrevételeit
Feladás vendégként
×
Értékeld ezt a bejegyzést:
0   Karakterek
Javasolt helyek

Kövess minket

Copyright © 2009 - www.extendoffice.com. | Minden jog fenntartva. Powered by ExtendOffice. | Oldaltérkép
A Microsoft és az Office logó a Microsoft Corporation védjegyei vagy bejegyzett védjegyei az Egyesült Államokban és / vagy más országokban.
Sectigo SSL védi