Jak filtrovat data pouhým kliknutím na obsah buňky v aplikaci Excel?

Za normálních okolností můžete v aplikaci Excel použít funkci Filtr k filtrování dat podle potřeby. Ale v tomto článku budu mluvit o tom, jak filtrovat data pouhým kliknutím na hodnotu buňky. Vezměte si následující data jako příklad, když dvakrát kliknu na buňku A2, všechny odpovídající záznamy založené na této klikané hodnotě budou filtrovány najednou, jak je ukázáno níže.

Filtrujte data pouhým kliknutím na hodnotu buňky s kódem VBA

Filtrujte data pouhým kliknutím na hodnotu buňky s kódem VBA

Tady poskytnu kód VBA, abyste mohli filtrovat data kliknutím na buňku, postupujte takto:

1. Nejprve zadejte svá data názvem rozsahu, do pole zadejte název rozsahu Název Box, a stiskněte tlačítko vstoupit klíč, viz screenshot:

2. Klikněte pravým tlačítkem na záložku listu, kterou chcete filtrovat, kliknutím na buňku a poté vyberte Zobrazit kód z kontextového menu a v otevřeném Microsoft Visual Basic pro aplikace okno, zkopírujte a vložte následující kód do prázdného modulu:

Kód VBA: Filtrování dat kliknutím na hodnotu buňky:

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

Pozor: Ve výše uvedeném kódu, mydata je název rozsahu, který jste pro svůj rozsah dat vytvořili, změňte jej prosím podle svých potřeb.

3. Pak uložte a zavřete okno s kódem, nyní, když dvakrát kliknete na libovolnou buňku datového rozsahu, který chcete odfiltrovat, její odpovídající záznamy budou filtrovány jako následující snímek obrazovky:

Další související články:

Jak změnit hodnotu buňky kliknutím na buňku?

Jak třídit data sloupců kliknutím na záhlaví v aplikaci Excel?