Sammuta automaattinen suodatin koodista - Esimerkkejä VBA -koodista

Tämä opetusohjelma osoittaa, kuinka automaattiset suodattimet poistetaan käytöstä /poistetaan käytöstä VBA: ssa.

Automaattisuodattimet voidaan ottaa käyttöön tai poistaa käytöstä VBA -koodilla.

Poista automaattinen suodatin käytöstä VBA: n aktiivisessa laskentataulukossa

Seuraava koodiesimerkki sammuttaa automaattisen suodattimen aktiivisesta taulukosta ja tarkistaa ensin, ettei se ole jo pois päältä.

12345

Julkinen ali -tapposuodatin ()Jos ActiveSheet.AutoFilterMode SittenActiveSheet.AutoFilterMode = VääräLoppu JosEnd Sub

Ota automaattinen suodatin käyttöön VBA: n aktiivisessa laskentataulukossa

Seuraava koodiesimerkki ottaa automaattisen suodattimen käyttöön aktiivisessa taulukossa ja tarkistaa ensin, ettei se ole jo käytössä.

12345

Julkinen alisuodatin ()Jos ei ActiveSheet.AutoFilterMode SittenActiveSheet.Range ("A1"). Automaattinen suodatinLoppu JosEnd Sub

Poista automaattinen suodatin käytöstä kaikista VBA: n laskentataulukoista.

Seuraava koodiesimerkki kulkee läpi koko työkirjan jokaisen taulukon ja poistaa automaattisen suodattimen käytöstä jokaisesta laskentataulukosta tarkistaen ensin, että nykyisen työkirjan suodatin ei ole jo päällä.

12345678

Julkinen alipysäkkiKaikki suodattimet ()Dim ws laskentataulukkonaJokaista ws ActiveWorkbook.WorksheetsJos ws.AutoFilterMode = Tosi sittenws.AutoFilterMode = VääräLoppu JosSeuraava wsEnd Sub

Poista automaattinen suodatin käytöstä kaikista VBA: n laskentataulukoista.

Samoin seuraava koodiesimerkki kulkee läpi koko työkirjan ja ottaa automaattisen suodattimen käyttöön jokaisella arkilla tarkistaen ensin, että nykyisen työkirjan suodatin ei ole jo päällä.

12345678

Julkinen alikäynnistysKaikki suodattimet ()Dim ws laskentataulukkonaJokaista ws ActiveWorkbook.WorksheetsJos ei ws.AutoFilterMode Thenws.Range ("A1"). Automaattinen suodatinLoppu JosSeuraava wsEnd Sub

Tyhjennä kaikki suodattimet VBA: n aktiivisessa laskentataulukossa

Seuraava koodiesimerkki jättää automaattisen suodattimen päälle Active Sheetissä, mutta tyhjentää kaikki suodattimet, joita käytetään tietoihin.

12345

Julkinen osa ClearFilter ()Jos ActiveSheet.FilterMode = Tosi sittenActiveSheet.ShowAllDataLoppu JosEnd Sub

Tyhjennä kaikki suodattimet kaikista VBA: n laskentataulukoista

Samoin seuraava koodiesimerkki kiertää koko työkirjan läpi ja jättää automaattisen suodattimen päälle jokaiselle arkille, jos se on jo käytössä, mutta tyhjentää kaikki tietoihin lisätyt suodattimet.

12345678

Julkinen osa ClearAllFilters ()Dim ws laskentataulukkonaJokaista ws ActiveWorkbook.WorksheetsJos ws.FilterMode = Tosi sittenws.ShowAllDataLoppu JosSeuraava wsEnd Sub

Tyhjennä kaikki suodattimet taulukosta VBA: ssa

Jos laskentataulukossamme on taulukko -objekti, voimme säätää koodin tyhjentämään vain kaikki suodattimet, joita käytetään kyseisessä suodattimessa, jättäen automaattisen suodattimen päälle.

123456789

Sub ClearFilterFromTable ()Dim ws laskentataulukkonaHimmennä taulukko merkkijononaHimmennä taulukko ListObject -kohteenasTable = "Taulukko1"Aseta ws = ActiveSheetAseta loTable = ws.ListObjects (sTable)loTable.AutoFilter.ShowAllDataEnd Sub

Jos taulukko -objekti linkitetään pivot -taulukkoon, pivot -taulukko päivittyy vastaavasti.