Míg a munka során Microsoft Excel , az adatok szűrése lehetővé teszi számunkra, hogy csak azokat az információkat lássuk, amelyeket szeretnénk. Amikor egy nagy adathalmaz vagy táblázatok bizonyos elemeire akarunk koncentrálni, ez a technika jól jön. Amikor a munka befejeződött, vissza kell vennünk ezeket az adatokat a táblázatunkban. bár Excel már rendelkezik erre egy beépített eszközzel. De a VBA a leghatékonyabb, időtakarékosabb és legbiztonságosabb módja bármilyen feladat elvégzésének az Excelben. Ebben a cikkben néhány példát mutatunk a szűrő eltávolítására az Excel VBA-ban.

Gyakorlati munkafüzet letöltése

Letöltheti a munkafüzetet, és gyakorolhat velük.

5 egyszerű módszer a szűrő eltávolítására az Excel VBA-ban

Az Excel rendelkezik beépített eszközökkel és funkciókkal a szűrők eltávolítására az adatokból. De a Excel VBA gyorsan eltávolíthatjuk ezeket a szűrőket, ha futtatjuk a VBA kód. A szűrők eltávolításához az adatokból a következő adatkészletet fogjuk használni. Az adatkészlet tartalmaz néhány termék azonosítót az oszlopban. B , terméknevek az oszlopban C , és a szállítási országot az oszlopban D Mivel csak a termék részleteit szeretnénk látni. Sampon és Kondicionáló , tehát megszűrtük őket. Most tegyük fel, hogy törölni kell ezeket a szűrt adatokat. Néhány Excel VBA makrók Ehhez mutassuk be azokat a példákat, amelyekkel ezeket a szűrőket törölhetjük az adatokból a következővel Excel VBA .

1. Alkalmazza a VBA-t az összes szűrő eltávolításához az Excel táblázatból

A címen Excel VBA , a felhasználók könnyedén használhatják a kódot, amely az excel menüként működik a szalagról. A VBA kódot az összes szűrő eltávolításához az Excel táblázatból, kövessük a lépéseket.

LÉPÉSEK:

• Először is, menjen a Fejlesztő lapot a szalagról.
• Másodszor, a Kód: kategóriában kattintson a Visual Basic a Visual Basic szerkesztő . Vagy nyomja meg a Alt + F11 a Visual Basic szerkesztő .

• Ehelyett egyszerűen kattintson a jobb gombbal a munkalapra, és válassza a Kód megtekintése Ez szintén elviszi Önt a Visual Basic szerkesztő .

• Ez megjelenik a Visual Basic szerkesztő ahol megírjuk a kódjainkat, hogy táblázatot hozzunk létre a tartományból.
• Harmadszor, kattintson a Modul a Beillesztés legördülő menüsor.

• Ez létrehoz egy Modul a munkafüzetben.
• És másolja be és illessze be a VBA az alábbiakban látható kódot.

VBA-kód:

 Sub Remove_Filters1() Dim lstObj As ListObject Set lstObj = Sheet1.ListObjects(1) lstObj.AutoFilter.ShowAllData End Sub 

• Ezt követően futtassa a kódot a RubSub gomb megnyomásával vagy a billentyűparancs F5 .

• Végül pedig a lépések követésével az összes szűrőt eltávolítja a munkalapon lévő excel táblázatból.

VBA kód magyarázat

 Sub Remove_Filters1() 

Sub egy olyan kódrészlet, amely a kódban lévő munkát végzi, de nem ad vissza értéket. Aleljárásként is ismert. Tehát nevezzük el az eljárásunkat Remove_Filters1() .

 Dim lstObj As ListObject 

Változó nyilatkozata.

 Set lstObj = Sheet1.ListObjects(1) 

A VBA Set egyszerűen lehetővé teszi számunkra, hogy a kód futtatása során ne kelljen újra és újra beírnunk a kiválasztandó tartományt. Tehát a hivatkozást a lap első táblázatára állítjuk be.

 lstObj.AutoFilter.ShowAllData 

Ez a kódsor eltávolítja az összes szűrőt a teljes adatból.

 End Sub 

Ezzel befejeződik az eljárás.

Bővebben: Hogyan lehet eltávolítani a szűrőt az Excelben (5 Easy & amp; Gyors módok)

2. Az összes Excel táblázatszűrő törlése egy lapon a VBA használatával

Nézzünk egy másik példát az Excel VBA felhasználására, hogy eltávolítsuk az összes Excel táblázat szűrőjét egy lapon. Ehhez kövesse az alábbi lépéseket.

LÉPÉSEK:

• Először menjen a Develope r lapot a szalagról.
• Másodszor, kattintson a Visual Basic a Visual Basic szerkesztő .
• Egy másik módja a Visual Basic szerkesztő egyszerűen csak meg kell nyomni Alt + F11 .
• Vagy kattintson a jobb gombbal a lapra, majd válassza a Kód megtekintése .
• Ezután menjen a Beillesztés és válassza a Modul a legördülő menüből.
• Ez megnyitja a Visual Basic ablakot.
• Ezután másolja ki és illessze be a VBA kód az alábbiakban.

VBA-kód:

 Sub Remove_Filters2() Dim lstObj As ListObject For Each lstObj In Sheet2.ListObjects lstObj.AutoFilter.ShowAllData Next lstObj End Sub 

• Továbbá, nyomja meg a F5 billentyű vagy kattintson a Run Sub gombot a kód futtatásához.

• És, ez a kód törli az összes excel táblázat szűrőjét a lapról, és a kimenetet a következőképpen adja meg 1. módszer .

VBA kód magyarázat

 For Each lstObj In Sheet2.ListObjects lstObj.AutoFilter.ShowAllData Next lstObj 

Ezek a kódsorok végighaladnak a lap összes táblázatán, és eltávolítják az összes szűrőt az egész munkalapról.

Bővebben: Hogyan kell szűrni az Excel Pivot táblázatot (8 hatékony módja)

3. Szűrő eltávolítása egy oszlopból VBA-val az Excelben

Vessünk egy pillantást egy másik módszerre, amellyel az Excel VBA segítségével törölhetjük a szűrőt egy oszlopból. Lássuk az ehhez szükséges eljárást.

LÉPÉSEK:

• A kezdéshez kattintson a Fejlesztő lapot a szalagban.
• Másodszor, indítsa el a Visual Basic szerkesztő a Visual Basic .
• Alternatívaként elérheti a Visual Basic szerkesztő a Alt + F11 .
• Vagy, jobb gombbal kattintva a lapon, és válassza a Kód megtekintése a menüből.
• Ezután válassza ki a Modul a legördülő dobozból a Beillesztés .
• És megjelenik a Visual Basic ablak.
• Írja oda a kódot.

VBA-kód:

 Sub Remove_Filter3() Sheet1.Range("B3:D16").AutoFilter Field:=4 End Sub 

• Végül nyomja meg a F5 billentyű a kód futtatásához.

• Ezzel a kóddal eltávolíthatja a szűrőt az excel táblázat egyik oszlopából.

VBA kód magyarázat

 Sheet1.Range("B3:D16").AutoFilter Field:=4 

Ez a kódsor csak a mező számát adja meg, más paramétert nem.

Bővebben: Excel VBA ugyanazon oszlop szűréséhez több kritérium alapján (6 példa)

Hasonló olvasmányok

• Excel VBA: Hogyan szűrhet több kritériummal a tömbben (7 mód)
• VBA-kód az adatok dátum szerinti szűréséhez az Excelben (4 példa)
• Hogyan használjon szűrőt a védett Excel lapban (egyszerű lépésekkel)
• Különböző oszlopok szűrése több kritérium alapján az Excel VBA-ban
• VBA-kód az adatok szűréséhez Excelben (8 példa)

4. Aktív munkalap összes szűrőjének törlése

Most pedig nézzünk meg egy másik Excel VBA módszerrel törölhetjük az összes szűrőt az aktív munkalapról. Kövessük a lépéseket.

LÉPÉSEK:

• A kezdéshez nyissa meg a szalagot, és válassza ki a Fejlesztő opció.
• Ezután, hogy hozzáférjen a Visual Basic szerkesztő , kattintson a Visual Basic .
• Sajtó Alt + F11 szintén megjelenik a Visual Basic szerkesztő .
• Alternatívaként, jobb gombbal kattintva a lapot, és válassza a Kód megtekintése a megjelenő menüből.
• Most, a Beillesztés legördülő opciót, válasszon Modul .
• Ezután másolja ki és illessze be a VBA az alábbi kódot.

VBA-kód:

 Public Sub RemoveFilter() If ActiveSheet.FilterMode = True Then ActiveSheet.ShowAllData End If End Sub 

• Futtassa a kódot a F5 kulcs.

• És végül, a szűrők eltávolítása az adatokból a következő módon lehetséges VBA kód, mint például Módszer-1 .

További információ: Hogyan szűrhetünk listát egy másik Excel lapban lévő lista alapján (2 módszer)

5. Excel VBA az összes szűrő eltávolításához a munkafüzetből

Fedezzünk fel egy másik r Excel VBA módja annak, hogy eltávolítsuk az összes szűrőt egy munkafüzetből. Nézzük tehát a lépéseket lentebb.

LÉPÉSEK:

• A kezdéshez nyissa meg a szalagot, és válassza a Fejlesztő a legördülő menüből.
• Ezután válassza ki Visual Basic a Visual Basic szerkesztő .
• A Visual Basic szerkesztő a következő gomb megnyomásával is elérhető Alt + F11 .
• Alternatív megoldásként jobb gombbal kattintva a lapot, és válassza a Kód megtekintése a felugró menüből.
• Ezután válassza a Modul a Beillesztés legördülő menü.
• Ezután másolja ki és illessze be a következő VBA-kódot.

VBA-kód:

 Sub Remove_Filters_From_Workbook() Dim shtnam As Worksheet Dim lstObj As ListObject For Each shtnam In Worksheets For Each lstObj In shtnam.ListObjects lstObj.AutoFilter.ShowAllData Next lstObj Next shtnam End Sub 

• Végül futtassa a kódot a F5 a billentyűzeten, és az eredményt a munkalapon látja.

• Ez a VBA kód törölni fogja az összes szűrőt az egész munkafüzetből, ahogyan az a első módszer .

VBA kód magyarázat

 For Each shtnam In Worksheets For Each lstObj In shtnam.ListObjects lstObj.AutoFilter.ShowAllData Next lstObj Next shtnam 

Az első hurok a munkafüzet összes tábláján való végighaladásra szolgál. A második hurok a munkalap összes tábláján való végighaladásra szolgál. Ezután a hurokon belüli sor csak a szűrőt törli a táblázatból. Ezután az utolsó két sorral zárjuk le a hurkot.

Bővebben: Az Excel-szűrő parancsikonja (3 gyors felhasználás példákkal)

Következtetés

A fenti módszerek segítenek Önnek abban, hogy Szűrő eltávolítása az Excel VBA-ban Ha bármilyen kérdése, javaslata vagy visszajelzése van, kérjük, ossza meg velünk a megjegyzés rovatban. Vagy vethet egy pillantást a többi cikkünkre a ExcelWIKI.com blog!