Tyhjennä kaikki suodattimet VBA: ssa

jotta voit tyhjentää kaikki suodattimet VBA: ssa, sinun on tehtävä seuraavat vaiheet:

1. lisää tiedot arkille

1. Napsauta tietoja ja luo taulukko Ctrl + T: n avulla

Poista kaikki aktiivisen taulukon suodattimet

napsauta taulukon sisällä ja avaa VBA-editori (Alt + F11).

Syötä ja suorita seuraava koodi.

Sub RemoveFiltersFromTable() ActiveSheet.ShowAllDataEnd Sub

jos aktiivinen solu on taulukon ulkopuolella, se palauttaa virheen.

Tyhjennä kaikki suodattimet laskentataulukossa

esimerkissämme on kaksi taulukkoa: Table1 ja Table2. Jokainen heistä on käyttänyt suodattimia.

jos haluat tarkistaa taulukon nimen, valitse Suunnittelu >> ominaisuudet > > taulukon nimi.

voit käyttää edellistä VBA-koodia, klikkaa kutakin taulukkoa ja suorita koodi. Mutta tällä kertaa luodaan koodi, joka tyhjentää kaikki suodattimet kaikista taulukoista laskentataulukossa.

jotta voit tyhjentää suodattimen jokaisen taulukon sisällä laskentataulukossa, sinun täytyy ensin silmukoida ne kaikki. Käytä seuraavaa koodia.

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

se palauttaa kaksi viesti-ikkunaa, joissa on taulukon nimet.

viestin sijaan luodaan koodi, joka tyhjentää suodattimet jokaisesta taulukosta. Jotta voit tehdä tämän, vain muuttaa MsgBox myTable omtable.Automaattisuodatin.Näytä kaikki tiedot.

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

uusi rivi tarkistaa jokaisen taulukon ja näyttää kaikki tiedot, toisin sanoen se poistaa kaikki suodattimet.

Tyhjennä kaikki työkirjan suodatin

jotta voit tehdä sen kaikille työkirjan sisällä oleville taulukoille, sinun on lisättävä ylimääräinen silmukka, joka käy läpi kaikki taulukot jokaisessa arkissa ja tyhjennä suodattimet.

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