- Kapcsolja ki az automatikus szűrőt a VBA aktív munkalapján
- Kapcsolja be az Automatikus szűrőt a VBA aktív munkalapján
- Kapcsolja ki az automatikus szűrőt a VBA összes munkalapján.
- Kapcsolja ki az automatikus szűrőt a VBA összes munkalapján.
- Törölje az összes szűrőt a VBA aktív munkalapján
- Az összes szűrő törlése a VBA összes munkalapján
- Törölje az összes szűrőt egy táblázatban a VBA -ban
Ez az oktatóanyag bemutatja az AutoFilters kikapcsolását /törlését a VBA -ban.
Az AutoFilters be- és kikapcsolható a VBA kód használatával.
Kapcsolja ki az automatikus szűrőt a VBA aktív munkalapján
A következő kódpélda kikapcsolja az automatikus szűrőt az aktív lapon, először ellenőrizve, hogy még nincs -e ki.
| 12345 | Nyilvános alölő szűrő ()Ha ActiveSheet.AutoFilterMode MajdActiveSheet.AutoFilterMode = HamisVége HaEnd Sub |
Kapcsolja be az Automatikus szűrőt a VBA aktív munkalapján
A következő kódpélda bekapcsolja az automatikus szűrőt az aktív lapon, először ellenőrizve, hogy még nincs -e bekapcsolva.
| 12345 | Nyilvános alindítási szűrő ()Ha nem ActiveSheet.AutoFilterMode thenActiveSheet.Range ("A1"). Automatikus szűrőVége HaEnd Sub |
Kapcsolja ki az automatikus szűrőt a VBA összes munkalapján.
A következő kódpélda végigfut a teljes munkafüzet minden lapján, és kikapcsolja az automatikus szűrőt minden munkalapon, először ellenőrizve, hogy az aktuális munkafüzet szűrője már nincs bekapcsolva.
| 12345678 | Nyilvános alállomásAllFilters ()Dim ws munkalapkéntMinden egyes hétre az ActiveWorkbook.WorksheetsHa ws.AutoFilterMode = Igaz akkorws.AutoFilterMode = HamisVége HaKövetkező wsEnd Sub |
Kapcsolja ki az automatikus szűrőt a VBA összes munkalapján.
Hasonlóképpen, a következő kódpélda végigfut a teljes munkafüzeten, és minden lapon bekapcsolja az automatikus szűrőt, először ellenőrizve, hogy az aktuális munkafüzet szűrője még nincs bekapcsolva.
| 12345678 | Nyilvános alindításAllFilters ()Dim ws munkalapkéntMinden egyes hétre az ActiveWorkbook.WorksheetsHa nem ws.AutoFilterMode thenws.Range ("A1"). Automatikus szűrőVége HaKövetkező wsEnd Sub |
Törölje az összes szűrőt a VBA aktív munkalapján
A következő kódpélda bekapcsolva hagyja az automatikus szűrőt az Aktív lapon, de törli az adatokra alkalmazott szűrőket.
| 12345 | Nyilvános alszűrő ()Ha ActiveSheet.FilterMode = Igaz akkorActiveSheet.ShowAllDataVége HaEnd Sub |
Az összes szűrő törlése a VBA összes munkalapján
Hasonlóképpen, a következő kódpélda végigfut a teljes munkafüzeten, és minden lapon bekapcsolva hagyja az automatikus szűrőt, ha már be van kapcsolva, de törli az adatokra alkalmazott szűrőket.
| 12345678 | Nyilvános al ClearAllFilters ()Dim ws munkalapkéntMinden egyes hétre az ActiveWorkbook.WorksheetsHa ws.FilterMode = Igaz akkorws.ShowAllDataVége HaKövetkező wsEnd Sub |
Törölje az összes szűrőt egy táblázatban a VBA -ban
Ha a munkalapunk tartalmaz egy táblázatobjektumot, akkor a kódot úgy állíthatjuk be, hogy csak törölje az adott szűrőre alkalmazott szűrőket, miközben bekapcsolva hagyjuk az automatikus szűrőt.
| 123456789 | Sub ClearFilterFromTable ()Dim ws munkalapkéntDim sTable mint karakterláncTáblázat halványítása ListObject -kéntsTable = "1. táblázat"Állítsa be ws = ActiveSheetLoTable = ws.ListObjects (sTable) beállításaloTable.AutoFilter.ShowAllDataEnd Sub |
Ha a táblaobjektum egy pivot táblához kapcsolódik, akkor a pivot tábla ennek megfelelően frissül.
