Hogyan szűrhetők adatok az Excel legördülő listából?
Az Excel programban a legtöbben szűrhetik az adatokat a Szűrés funkció használatával. De próbált-e már adatokat szűrni a legördülő listából? Például, amikor kiválasztok egy elemet a legördülő listából, azt akarom, hogy a megfelelő sorok kiszűrődjenek a következő képernyőkép szerint. Ebben a cikkben arról fogok beszélni, hogy miként lehet szűrni az adatokat egy vagy két munkalapon található legördülő lista használatával.
Szűrje az adatokat a legördülő lista kiválasztásából egy munkalapon segítő képletekkel
Szűrje az adatokat a legördülő listából két VBA kóddal ellátott munkalapon
Szűrje az adatokat a legördülő lista kiválasztásából egy munkalapon segítő képletekkel
Az adatok szűréséhez a legördülő listából hozhat létre néhány segítő képlet oszlopot, kérjük, tegye a következő lépéseket egyesével:
1. Először illessze be a legördülő listát. Kattintson egy cellára, ahová be akarja illeszteni a legördülő listát, majd kattintson a gombra dátum > adatok ellenőrzése > adatok ellenőrzése, lásd a képernyőképet:
2. A kiugrott adatok ellenőrzése párbeszédpanel alatt beállítások lapon válassza ki a lehetőséget Lista tól Hagyjuk legördülő menüből, majd kattintson a gombra 
gombra kattintva kiválaszthatja azt az adatlistát, amely alapján létre kívánja hozni a legördülő listát, lásd a képernyőképet:
3. Kattintson a gombra OK gombra, a legördülő lista egyszerre kerül beillesztésre, és válasszon ki egy elemet a legördülő listából, majd írja be ezt a képletet: = SOROK ($ A $ 2: A2) (A2 az oszlop első cellája, amely a legördülő lista értékét tartalmazza) a D2 cellába, majd húzza lefelé a kitöltő fogantyút a cellákig ennek a képletnek az alkalmazásához, lásd a képernyőképet:
4. Adja meg ezt a képletet: = IF (A2 = $ H $ 2, D2, "") az E2 cellába, majd húzza lefelé a kitöltő fogantyút, hogy kitöltse ezt a képletet, lásd a képernyőképet:
Megjegyzések: A fenti képletben ：A2 az oszlop első cellája, amely tartalmazza a legördülő lista értékétH2 az a cella, ahova a legördülő lista került, D2 az első segítő oszlopképlet.
5. Ezután írja be ezt a képletet: = IFERROR (KIS ($ E $ 2: $ E $ 17, D2), "") az F2 cellába, majd húzza le a kitöltő fogantyút a cellákra a képlet kitöltéséhez, lásd a képernyőképet:
Megjegyzések: A fenti képletben: E2: E17 a második segítő képletcella, D2 az első segédképlet oszlop első cellája.
6. A segítő képlet oszlopainak beillesztése után a szűrt eredményt egy másik helyre kell kiadnia, kérjük, alkalmazza ezt a képletet: =IFERROR(INDEX($A$2:$C$17,$F2,COLUMNS($J$2:J2)),"") a J2 cellába, majd húzza a kitöltő fogantyút J2-ről L2-re, és a legördülő lista alapján az adatok első rekordját kivonták, lásd a képernyőképet:
Megjegyzések: A fenti képletben: A2: C17 a szűrni kívánt eredeti adat, F2 a harmadik segítő képlet oszlop, J2 az a cella, ahova a szűrési eredményt ki szeretné adni.
7. Ezután húzza lefelé a kitöltő fogantyút a cellákig az összes megfelelő szűrt rekord megjelenítéséhez, lásd a képernyőképet:
8. Mostantól kezdve, ha egy elemet választ ki a legördülő listából, a kiválasztás alapján minden sor egyszerre leszűrve, lásd a képernyőképet:
Szűrje az adatokat a legördülő listából két VBA kóddal ellátott munkalapon
Ha a Sheet1 legördülő listacellája és a Sheet2 szűrt adatai, amikor egy elemet választ a legördülő listából, egy másik lap kiszűrésre kerül. Hogyan fejezheti be ezt a munkát az Excelben?
A következő VBA-kód jót tehet Önnek, kérjük, tegye a következőket:
1. Kattintson a jobb gombbal a lapfülre, amely a legördülő lista cellát tartalmazza, majd válassza a lehetőséget Kód megtekintése a helyi menüből, a megnyílt Microsoft Visual Basic alkalmazásokhoz ablakba másolja és illessze be a következő kódot az üres modulba:
VBA kód: Adatok szűrése a legördülő listából két lapon:
Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice
On Error Resume Next
If Not Intersect(Range("A2"), Target) Is Nothing Then
Application.EnableEvents = False
If Range("A2").Value = "" Then
Worksheets("Sheet2").ShowAllData
Else
Worksheets("Sheet2").Range("A2").AutoFilter 1, Range("A2").Value
End If
Application.EnableEvents = True
End If
End Sub
Megjegyzések: A fenti kódban: A2 a legördülő listát tartalmazó cella, és Sheet2 a munkalap tartalmazza a szűrni kívánt adatokat. A szám 1 a forgatókönyvben: Automatikus szűrő 1 az az oszlopszám, amely alapján szűrni akar. Igény szerint megváltoztathatja őket.
2. Mostantól, amikor kiválaszt egy elemet a Sheet1 legördülő listájából, és a megfelelő adatokat kiszűrjük a Sheet2-ben, lásd a képernyőképet:
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!
