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
Poznámka: 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?
Nejlepší nástroje pro produktivitu v kanceláři
Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času. Kliknutím sem získáte funkci, kterou nejvíce potřebujete...
Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci
- Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
- Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
- Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!
