Ștergeți toate filtrele din VBA

pentru a șterge toate filtrele din VBA, trebuie să faceți următorii pași:

1. Introduceți datele într-o foaie

1. Faceți clic pe date și utilizați Ctrl + T pentru a crea un tabel

ștergeți toate filtrele din tabelul activ

Faceți clic în interiorul unui tabel și deschideți editorul VBA (Alt + F11).

introduceți și executați următorul cod.

Sub RemoveFiltersFromTable() ActiveSheet.ShowAllDataEnd Sub

dacă o celulă activă se află în afara tabelului, va returna o eroare.

ștergeți toate filtrele din foaia de calcul

în exemplul nostru, există două tabele: Table1 și Table2. Fiecare dintre ele a aplicat filtre.

pentru a verifica numele unui tabel, accesați Design>> Properties> > Table Name.

puteți utiliza codul VBA anterior, faceți clic pe fiecare dintre tabele și rulați codul. Dar de data aceasta să creăm un cod care va șterge toate filtrele din toate tabelele din foaia de lucru.

pentru a șterge filtrul din interiorul fiecărui tabel pe o foaie de calcul, mai întâi trebuie să le parcurgeți pe toate. Utilizați următorul cod.

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

va returna două ferestre de mesaje cu numele tabelului.

în loc de un mesaj, să creăm cod care va șterge filtrele din fiecare tabel. Pentru a face acest lucru, trebuie doar să schimbați MsgBox mytable în myTable.Filtru automat.Arată toate datele.

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

noua linie va verifica Fiecare tabel și va afișa toate datele, cu alte cuvinte, va elimina toate filtrele.

ștergeți tot filtrul din registrul de lucru

pentru a face acest lucru pentru toate tabelele din registrul de lucru, trebuie să adăugați o buclă suplimentară care va trece prin toate tabelele din fiecare foaie și va șterge filtrele.

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