Autofilter uitschakelen vanuit code - VBA-codevoorbeelden

Deze zelfstudie laat zien hoe u AutoFilters in VBA kunt uitschakelen / wissen.

AutoFilters kunnen worden in- of uitgeschakeld met behulp van VBA-code.

Schakel AutoFilter uit in het actieve werkblad in VBA

In het volgende codevoorbeeld wordt AutoFilter in het actieve blad uitgeschakeld, waarbij eerst wordt gecontroleerd of het nog niet uit is.

12345

Openbare Sub KillFilter()Als ActiveSheet.AutoFilterMode DanActiveSheet.AutoFilterMode = FalseStop alsEinde sub

Schakel AutoFilter in het actieve werkblad in VBA in

In het volgende codevoorbeeld wordt AutoFilter in het actieve blad ingeschakeld, waarbij eerst wordt gecontroleerd of het nog niet is ingeschakeld.

12345

Openbare Sub StartFilter()Indien niet ActiveSheet.AutoFilterMode DanActiveSheet.Bereik ("A1").AutoFilterStop alsEinde sub

Schakel AutoFilter uit in alle werkbladen in VBA.

Het volgende codevoorbeeld loopt door elk blad in de hele werkmap en schakelt AutoFilter in elk werkblad uit, waarbij eerst wordt gecontroleerd of het filter in de huidige werkmap nog niet is ingeschakeld.

12345678

Openbare substopAlleFilters()Dim ws als werkbladFor Each ws In ActiveWorkbook.WorksheetsAls ws.AutoFilterMode = True Danws.AutoFilterMode = FalseStop alsVolgende wsEinde sub

Schakel AutoFilter uit in alle werkbladen in VBA.

Op dezelfde manier loopt het volgende codevoorbeeld door de hele werkmap en schakelt AutoFilter in elk blad in, waarbij eerst wordt gecontroleerd of het filter in de huidige werkmap niet al is ingeschakeld.

12345678

Openbare sub StartAllFilters()Dim ws als werkbladFor Each ws In ActiveWorkbook.WorksheetsIndien niet ws.AutoFilterMode Danws.Bereik("A1").AutoFilterStop alsVolgende wsEinde sub

Wis alle filters in het actieve werkblad in VBA

Het volgende codevoorbeeld laat de AutoFilter ingeschakeld in het actieve blad, maar wist alle filters die op de gegevens worden toegepast.

12345

Openbare Sub ClearFilter()Als ActiveSheet.FilterMode = True DanActiveSheet.ShowAllDataStop alsEinde sub

Wis alle filters in alle werkbladen in VBA

Op dezelfde manier loopt het volgende codevoorbeeld door de hele werkmap en laat het AutoFilter ingeschakeld in elk blad als het al is ingeschakeld, maar wist elk filter dat op de gegevens is toegepast.

12345678

Openbare sub ClearAllFilters()Dim ws als werkbladFor Each ws In ActiveWorkbook.WorksheetsAls ws.FilterMode = True Danws.ShowAllDataStop alsVolgende wsEinde sub

Wis alle filters in een tabel in VBA

Als ons werkblad een tabelobject bevat, kunnen we de code aanpassen om elk filter dat op dat filter is toegepast te wissen, terwijl de AutoFilter ingeschakeld blijft.

123456789

Sub WissenFilterVanTabel()Dim ws als werkbladDim stabiel als stringDim loTable As ListObjectsTable = "Tabel1"Stel ws = ActiveSheet inStel loTable = ws.ListObjects(sTable) inloTable.AutoFilter.ShowAllDataEinde sub

Als het tabelobject aan een draaitabel is gekoppeld, wordt de draaitabel dienovereenkomstig vernieuwd.