Kako filtrirati podatke samo s klikom na vsebino celice v Excelu?

Običajno lahko v Excelu funkcijo filtriranja uporabite za filtriranje podatkov po svoji potrebi. Toda v tem članku bom govoril o tem, kako filtrirati podatke samo s klikom na vrednost celice. Za primer vzemimo naslednje podatke: ko dvokliknem celico A2, bodo vsi ustrezni zapisi, ki temeljijo na tej kliknjeni vrednosti, hkrati filtrirani, kot je prikazano spodaj.

Filtrirajte podatke, tako da kliknete vrednost celice s kodo VBA

Filtrirajte podatke, tako da kliknete vrednost celice s kodo VBA

Tukaj vam bom priskrbel kodo VBA za filtriranje podatkov s klikom na celico, naredite naslednje:

1. Najprej navedite podatke za obseg, vnesite ime obsega v polje ime Boxin pritisnite Vnesite tipko, glej posnetek zaslona:

2. Z desno miškino tipko kliknite jeziček lista, ki ga želite filtrirati, tako da kliknete celico in nato izberite Ogled kode v priročnem meniju in v odprtem Microsoft Visual Basic za aplikacije okno, kopirajte in prilepite naslednjo kodo v prazen modul:

Koda VBA: Filtrirajte podatke s klikom na vrednost celice:

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

Opombe: V zgornji kodi, moji podatki je ime obsega, ki ste ga ustvarili za svoj obseg podatkov, ga spremenite glede na vaše potrebe.

3. Nato shranite in zaprite okno kode. Ko dvokliknete katero koli celico obsega podatkov, ki jo želite filtrirati, bodo ustrezni zapisi filtrirani, kot je prikazano na sliki spodaj:

Več povezanih člankov:

Kako spremeniti vrednost celice s klikom na celico?

Kako razvrstiti podatke stolpcev s klikom na glavo v Excelu?