Hoe gegevens te filteren door gewoon op de celinhoud te klikken in Excel?

Normaal gesproken kunt u in Excel de Filterfunctie gebruiken om gegevens te filteren volgens uw behoefte. Maar in dit artikel zal ik het hebben over hoe u gegevens kunt filteren door simpelweg op een celwaarde te klikken. Neem de volgende gegevens als voorbeeld: wanneer ik dubbelklik op cel A2, worden alle bijbehorende records op basis van deze aangeklikte waarde meteen gefilterd, zoals te zien is in de onderstaande schermafbeelding.

Gegevens filteren door op een celwaarde te klikken met VBA-code

Gegevens filteren door op een celwaarde te klikken met VBA-code

Hier bied ik u een VBA-code aan om gegevens te filteren door op een cel te klikken; volg hiervoor de volgende stappen:

1. Geef eerst uw gegevens een bereiknaam; voer een bereiknaam in het Naamvak in en druk op Enter, zie onderstaande schermafbeelding:

2. Klik met de rechtermuisknop op het werkbladtabblad waarop u wilt filteren door op een cel te klikken, en kies vervolgens Weergave Code uit het contextmenu. Kopieer en plak in het geopende Microsoft Visual Basic for Applications-venster de volgende code in de lege Module:

VBA-code: Gegevens filteren door op celwaarde te klikken:

Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Updateby Extendoffice
    Dim rgTable As Range
    Dim rgData As Range
    Dim xColumn As Integer
    On Error Resume Next
    Application.ScreenUpdating = False
    Set rgTable = Range("mydata")
    With rgTable
        Set rgData = .Offset(1, 0).Resize(.Rows.Count - 1, .Columns.Count)
        If Not Application.Intersect(ActiveCell, rgData.Cells) Is Nothing Then
            xColumn = ActiveCell.Column - .Column + 1
            If ActiveSheet.AutoFilterMode = False Then
                .AutoFilter
            End If
            If ActiveSheet.AutoFilter.Filters(xColumn).On = True Then
                .AutoFilter Field:=xColumn
            Else
                .AutoFilter Field:=xColumn, Criteria1:=ActiveCell.Value
            End If
        End If
    End With
    Set rgData = Nothing
    Set rgTable = Nothing
    Application.ScreenUpdating = True
End Sub

Opmerking: In bovenstaande code is mydata de bereiknaam die u heeft gemaakt voor uw gegevensbereik; wijzig deze naar wens.

3. Sla daarna het codevenster op en sluit het. Nu, wanneer u dubbelklikt op een willekeurige cel van het gegevensbereik dat u wilt filteren, worden de bijbehorende records gefilterd zoals te zien is in de volgende schermafbeelding:

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!

Meer gerelateerde artikelen:

Hoe een celwaarde te wijzigen door op de cel te klikken?

Hoe kolomgegevens te sorteren door op de koptekst te klikken in Excel?