Hoe filters uit alle werkbladen in een actieve werkmap in Excel te wissen?
Stel dat u meerdere filters voor verschillende werkbladen in een Excel-werkmap hebt gemaakt en nu wilt u al deze filters in 茅茅n keer wissen. Normaal gesproken moet u een voor een naar het werkblad gaan om het filter te controleren en het vervolgens handmatig wissen. Is er een handige methode om filters uit alle werkbladen in een actieve werkmap te wissen? Probeer de methode in dit artikel.
Wis filters van alle werkbladen in een actieve werkmap met VBA-code
Wis filters van alle werkbladen in een actieve werkmap met VBA-code
Voer het onderstaande VBA-script uit om filters uit alle werkbladen in een actieve werkmap te wissen.
1. In de werkmap waaruit u filters moet verwijderen, drukt u op de anders + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.
2. In de Microsoft Visual Basic voor toepassingen venster klikt Invoegen > Module. Kopieer en plak vervolgens het onderstaande VBA-script in het modulevenster. Zie onderstaande screenshot:
VBA-code: verwijder filters van alle werkbladen in een actieve werkmap
Sub Clear_fiter()()
'Updated by Extendoffice 20210625
Dim xAF As AutoFilter
Dim xFs As Filters
Dim xLos As ListObjects
Dim xLo As ListObject
Dim xRg As Range
Dim xWs As Worksheet
Dim xIntC, xF1, xF2, xCount As Integer
Application.ScreenUpdating = False
On Error Resume Next
For Each xWs In Application.Worksheets
xWs.ShowAllData
Set xLos = xWs.ListObjects
xCount = xLos.Count
For xF1 = 1 To xCount
Set xLo = xLos.Item(xF1)
Set xRg = xLo.Range
xIntC = xRg.Columns.Count
For xF2 = 1 To xIntC
xLo.Range.AutoFilter Field:=xF2
Next
Next
Next
Application.ScreenUpdating = True
End Sub
3. druk de F5 sleutel om de code uit te voeren. Vervolgens worden alle filters voor alle werkbladen in de huidige werkmap onmiddellijk gewist.
Gerelateerde artikelen:
- Hoe filtercache (oude items) uit de draaitabel in Excel te wissen?
- Hoe filters te wissen bij het openen, opslaan of sluiten van een werkmap in Excel?
- Hoe gegevens filteren op basis van selectievakjes in Excel?
- Hoe een reeks getallen in een gefilterde lijstkolom in Excel te vullen?
Beste Office-productiviteitstools
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar effici毛ntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen. Klik hier om de functie te krijgen die u het meest nodig heeft...
Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker
- Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
- Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke dag!