Az összes szűrő törlése a VBA-ban

az összes szűrő törléséhez a VBA-ban a következő lépéseket kell tennie:

1. helyezze be az adatokat egy lapba

1. kattintson az adatokra, és a Ctrl + T billentyűkombinációval hozzon létre egy táblázatot

törölje az aktív tábla összes szűrőjét

kattintson a táblázat belsejébe, majd nyissa meg a VBA szerkesztőt (Alt + F11).

írja be és futtassa a következő kódot.

Sub RemoveFiltersFromTable() ActiveSheet.ShowAllDataEnd Sub

ha egy aktív cella a táblán kívül van, akkor hibát ad vissza.

törölje az összes szűrőt a táblázatban

példánkban két táblázat van: Table1 és Table2. Mindegyikük alkalmazott szűrőket.

a táblázat nevének ellenőrzéséhez lépjen a következőre: tervezés >>tulajdonságok >> táblázat neve.

használhatja az előző VBA kódot, kattintson az egyes táblákra, és futtassa a kódot. De ezúttal hozzunk létre egy kódot, amely törli az összes szűrőt a munkalap összes táblázatából.

annak érdekében, hogy törölje a szűrőt a táblázat minden táblázatában, először át kell hurkolnia mindet. Használja a következő kódot.

Sub LoopThroughTablesInsideWorksheet()Dim myTable As ListObject For Each myTable In ActiveSheet.ListObjects MsgBox myTable Next myTableEnd Sub

két üzenetablakot ad vissza a táblázat nevével.

üzenet helyett hozzunk létre olyan kódot, amely törli az egyes táblázatok szűrőit. Ehhez csak változtassa meg az MsgBox myTable-t myTable-re.Automatikus szűrő.ShowAllData.

Sub LoopThroughTablesInsideWorksheet()Dim myTable As ListObject For Each myTable In ActiveSheet.ListObjects myTable.AutoFilter.ShowAllData Next myTableEnd Sub

az új sor ellenőrzi az egyes táblázatokat, és megmutatja az összes adatot, más szóval eltávolítja az összes szűrőt.

törölje az összes szűrőt a munkafüzetben

annak érdekében, hogy ezt a munkafüzetben lévő összes táblához elvégezze, hozzá kell adnia egy további hurkot, amely átmegy az egyes lapok összes tábláján, és törölje a szűrőket.

Sub LoopThroughTablesInsideWorkbook()Dim myTable As ListObjectDim mySheet As WorksheetFor Each mySheet In Worksheets For Each myTable In mySheet.ListObjects myTable.AutoFilter.ShowAllData Next myTableNext mySheetEnd Sub