Hoe controleert u of er een filter is toegepast op een werkblad in Excel?
Als een werkblad een grote hoeveelheid gegevens bevat, kunt u dan controleren of er filtering is toegepast op een specifieke kolom of op het hele werkblad — zonder elke kolom handmatig één voor één te hoeven nakijken? In deze handleiding tonen we u twee VBA-codes om deze taak eenvoudig en efficiënt uit te voeren.
Controleer of er een filter is toegepast op een bepaalde kolom
Controleer of er een filter is toegepast op een werkblad
Controleer of er een filter is toegepast op een bepaalde kolom
Deze VBA-code helpt u controleren of een specifieke kolom is gefilterd.
1. Open het werkblad waarvan u wilt controleren of er een filter is toegepast op een specifieke kolom.
2. Druk op de toetsencombinatie Alt+F11 om het venster Microsoft Visual Basic for Applications te openen.
3. Klik in het venster Microsoft Visual Basic for Applications op Invoegen > Module en plak vervolgens de volgende VBA-code in het Module (Code)-venster.
VBA-code: Controleer of een opgegeven kolom is gefilterd
Sub IsFilter()
'Updated by Extendoffice 20221025
Dim xWSht As Worksheet
Dim xFNum As Integer
Dim xBol As Boolean
Dim xAF As AutoFilter
Dim xColumn As Integer
xColumn = 3 'Here the number 3 stands for the third column (column C) in the current worksheet
Set xWSht = Application.ActiveSheet
Set xAF = xWSht.AutoFilter
xBol = False
For xFNum = 1 To xAF.Filters.Count
If xAF.Filters(xFNum).On And xAF.Range(1, xFNum).Column = xColumn Then
xBol = True
End If
Next xFNum
If xBol Then
MsgBox "The specified column is filled"
Else
MsgBox "The specified column is not filled"
End If
End SubOpmerking: In de VBA-code staat het getal 3 in de regel „xColumn = 3” voor de derde kolom in het huidige werkblad. Als u wilt controleren of er een filter is toegepast op kolom E, wijzig dan het getal 3 in 5.
4. Druk op de toets F5 om de code uit te voeren.
Als de opgegeven kolom is gefilterd, verschijnt het volgende dialoogvenster.
Anders verschijnt het volgende dialoogvenster.
Ontgrendel de magie van Excel met KUTOOLS AI
- Slimme uitvoering: Voer celbewerkingen uit, analyseer gegevens en maak grafieken — allemaal met eenvoudige opdrachten.
- aangepaste formules: Genereer op maat gemaakte formules om uw workflows te stroomlijnen.
- VBA-programmeren: Schrijf en implementeer VBA-code moeiteloos.
- Formule-uitleg: Begrijp complexe formules moeiteloos.
- Tekstvertaling: Doorbreek taalbarrières in uw spreadsheets.
Controleer of er een filter is toegepast op een werkblad
Als u wilt controleren of er een filter is toegepast op een werkblad, probeer dan de VBA-code in dit gedeelte.
1. Open het werkblad waarvan u wilt controleren of er een filter op is toegepast.
2. Druk op Alt+F11 om het Microsoft Visual Basic for Applications-venster te openen.
3. Klik in het venster Microsoft Visual Basic for Applications op Invoegen > Module en plak vervolgens de volgende VBA-code in het Module (Code)-venster.
VBA-code: Controleer of er een filter is toegepast op een werkblad
Sub IsFilterInWorkSheet()
'Updated by Extendoffice 20221024
Dim xWSht As Worksheet
Dim xFNum As Integer
Dim xBol As Boolean
Dim xAF As AutoFilter
Dim xColumn As Integer
Set xWSht = Application.ActiveSheet
Set xAF = xWSht.AutoFilter
xBol = False
On Error Resume Next
For xFNum = 1 To xAF.Filters.Count
If xAF.Filters(xFNum).On Then
xBol = True
Exit For
End If
Next xFNum
If xBol Then
MsgBox "Filter is applied in the curren worksheet"
Else
MsgBox "Filter does not apply in the current worksheet"
End If
End Sub4. Druk vervolgens op de toets F5 om deze code uit te voeren. Als het werkblad filtering bevat, verschijnt het volgende dialoogvenster.
Anders verschijnt het volgende dialoogvenster.
Beste Office-productiviteitshulpmiddelen
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie zoals nooit tevoren.Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en Tijd besparen.Klik hier om de functie te krijgen die u het meest nodig heeft...
Office Tab brengt een tabbladinterface naar Office en maakt uw werk veel eenvoudiger
- Schakel tabbladbewerking en -lezen in voor Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten aan in nieuwe tabbladen binnen hetzelfde venster, in plaats van in afzonderlijke vensters.
- Verhoogt uw productiviteit met 50 % en bespaart u dagelijks honderden muisklikken!
Alle Kutools-add-ins in één installatieprogramma.
Kutools for Office bundelt add-ins voor Excel, Word, Outlook en PowerPoint, plus Office Tab Pro—ideaal voor teams die met meerdere Office-apps werken.
- Alles-in-één suite— add-ins voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro
- Één installatieprogramma, één licentie— binnen enkele minuten klaar (MSI-geschikt)
- Werkt beter samen— gestroomlijnde productiviteit in alle Office-apps
- 30 dagen volledig functionele proefversie— geen registratie, geen creditcard
- Beste prijs-kwaliteitverhouding— bespaar ten opzichte van het afzonderlijk kopen van add-ins