Hvordan filtreres data bare ved at klikke på celleindhold i Excel?

Normalt kan du i Excel anvende filterfunktionen til at filtrere data efter dit behov. Men i denne artikel vil jeg tale om, hvordan man filtrerer data bare ved at klikke på en celleværdi. Tag følgende data som eksempel, når jeg dobbeltklikker på cellen A2, filtreres alle tilsvarende poster baseret på denne klikede værdi på én gang som vist nedenstående skærmbillede.

Filtrer data bare ved at klikke på en celleværdi med VBA-kode

Filtrer data bare ved at klikke på en celleværdi med VBA-kode

Her vil jeg give en VBA-kode, som du kan filtrere data ved at klikke på en celle, gør som følger:

1. Først skal du give dine data et rækkeviddenavn. Indtast et navn for området i Navn Box, og tryk på Indtast nøgle, se skærmbillede:

2. Højreklik på arkfanen, som du vil filtrere ved at klikke på celle, og vælg derefter Vis kode fra genvejsmenuen og i det åbnede Microsoft Visual Basic til applikationer vindue, kopier og indsæt følgende kode i det tomme modul:

VBA-kode: Filtrer data ved at klikke på celleværdi:

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

Bemærk: I ovenstående kode, mine data er det rækkevidde, du har oprettet til dit dataområde, skal du ændre det til dit behov.

3. Gem og luk derefter kodevinduet, når du dobbeltklikker på en hvilken som helst celle i det dataområde, du vil filtrere, filtreres dens tilsvarende poster som følgende vist skærmbillede:

Flere relaterede artikler:

Hvordan ændres celleværdien ved at klikke på cellen?

Hvordan sorteres søjledata ved at klikke på overskrift i Excel?