Ryd alle filtre i VBA

for at rydde alle filtre i VBA skal du gøre følgende trin:

1. indsætte data i et ark

1. Klik på dataene og brug Ctrl + T til at oprette en tabel

Ryd alle filtre i den aktive tabel

Klik inde i en tabel, og åbn VBA-editoren (Alt + F11).

Indtast og kør følgende kode.

Sub RemoveFiltersFromTable() ActiveSheet.ShowAllDataEnd Sub

hvis en aktiv celle er uden for tabellen, returnerer den en fejl.

Ryd alle filtre i regnearket

i vores eksempel er der to tabeller: Table1 og Table2. Hver af dem har anvendt filtre.

for at kontrollere navnet på en tabel gå til Design >> egenskaber >> Tabelnavn.

Du kan bruge den forrige VBA-kode, klikke på hver af tabellerne og køre koden. Men denne gang lad os oprette en kode, der vil rydde alle filtre fra alle tabeller i regnearket.

for at rydde filteret inde i hver tabel på et regneark, skal du først løbe gennem dem alle. Brug følgende kode.

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

Det returnerer to meddelelsesvinduer med navne på tabellen.

i stedet for en besked, lad os oprette kode, der rydder filtre fra hver tabel. For at gøre dette skal du bare ændre msgboks myTable til myTable.AutoFilter.Vis alle data.

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

den nye linje kontrollerer hver tabel og viser alle data, med andre ord fjerner den alle filtre.

Ryd alt filter i projektmappen

for at gøre det for alle tabeller inde i projektmappen skal du tilføje en ekstra sløjfe, der går gennem alle tabellerne i hvert ark og rydde filtre.

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