Hoe kan ik het resultaat van een geavanceerd filter automatisch bijwerken in Excel?

Wanneer we de functie Geavanceerd Filter gebruiken, zullen we merken dat het gefilterde resultaat niet automatisch verandert wanneer de criteria worden aangepast. Dit vereist dat we de functie Geavanceerd Filter opnieuw toepassen om het nieuwe resultaat te krijgen. Maar, hebt u een goede en snelle truc om het resultaat van het geavanceerde filter automatisch bij te werken zoals in de volgende schermafbeelding wordt getoond in Excel?

Automatisch bijwerken van geavanceerd filterresultaat met VBA-code

Automatisch bijwerken van geavanceerd filterresultaat met VBA-code

De volgende VBA-code kan u helpen om het geavanceerde filterresultaat automatisch bij te werken wanneer u de criteria naar behoefte wijzigt. Doe het volgende:

1. Klik met de rechtermuisknop op het werkbladtabblad waarop u de gegevens automatisch wilt filteren, en kies dan Weergave Code uit het contextmenu. In het geopende venster Microsoft Visual Basic for Applications kopieert en plakt u de volgende code in de lege Module:

VBA-code: Automatisch bijwerken van geavanceerd filterresultaat:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("A5:D21").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Range _
("A1:C3"), Unique:=False
End Sub

Opmerking: In de bovenstaande code: A5:D21 is het gegevensbereik dat u wilt filteren, A1:C3 is het criteriabereik waarop het filter is gebaseerd.

2. Sla daarna het codevenster op en sluit het. Nu, wanneer u de criteria in het criteriabereik wijzigt, wordt het gefilterde resultaat onmiddellijk automatisch bijgewerkt.

Ontdek de Magie van Excel met Kutools AI

• Slimme Uitvoering: Voer celbewerkingen uit, analyseer gegevens en maak diagrammen – allemaal aangestuurd door eenvoudige commando's.
• Aangepaste Formules: Genereer op maat gemaakte formules om uw workflows te versnellen.
• VBA-codering: Schrijf en implementeer VBA-code moeiteloos.
• Formule-uitleg: Begrijp complexe formules gemakkelijk.
• Tekstvertaling: Overbrug taalbarrières binnen uw spreadsheets.

Verhoog uw Excel-mogelijkheden met AI-aangedreven tools. Download Nu en ervaar een ongekende efficiëntie!