Namig: drugi jeziki so prevedeni v Google. Lahko obiščete English različico te povezave.
Vpiši se
x
or
x
x
Registracija
x

or

Kako filtrirati podatke samo tako, da kliknete vsebino celice v Excelu?

Običajno lahko v Excelu uporabite funkcijo Filter za filtriranje podatkov glede na vaše potrebe. Toda v tem članku bom govoril o tem, kako filtrirati podatke samo tako, da kliknete vrednost celice. Če primerjamo, sledite naslednjim podatkom, ko dvokliknite celico A2, vsi ustrezni zapisi, ki temeljijo na tej kliknjeni vrednosti, bodo filtrirani takoj kot pod prikazom slike.

doc filter s klikom na 1

Filtrirajte podatke samo tako, da kliknete vrednost celice s kodo VBA


puščica modra desno mehurček Filtrirajte podatke samo tako, da kliknete vrednost celice s kodo VBA


Tukaj vam bom dal kodo VBA za filtriranje podatkov, tako da kliknete celico, in to storite na naslednji način:

1. Najprej navedite svoje ime razponu imena, prosimo, vnesite ime območja v ime Boxin pritisnite Vnesite ključ, si oglejte posnetek zaslona:

doc filter s klikom na 2

2. Z desno miškino tipko kliknite zavihek stanja, ki ga želite filtrirati s klikom na celico, in nato izberite Ogled kode iz kontekstnega menija in v odprtem Microsoft Visual Basic za aplikacije okno, kopirajte in prilepite naslednjo kodo v prazno Modul:

VBA koda: filtrirate podatke s klikom na vrednost celice:

Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Updateby Extendoffice 20161123
    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

doc filter s klikom na 3

Opombe: V zgornji kodi, mydata je ime območja, ki ste ga ustvarili za obseg podatkov, ga spremenite v svoje potrebe.

3. Nato shranite in zaprite kodno okno, ko dvokliknete poljubno celico območja podatkov, ki ga želite filtrirati, se bodo ustrezni zapisi filtrirali na naslednji sliki:

doc filter s klikom na 4


Več povezanih člankov:

Kako spremeniti vrednost celice s klikom na celico?

Kako razvrstiti podatke stolpca s klikom na glavo v Excelu?


Priporočena orodja za produktivnost za Excel

zavihek kte 201905

Kutools za Excel vam pomaga, da vedno končate delo pred časom in izstopite iz množice

  • Več kot zmogljive napredne funkcije 300, zasnovane za 1500 delovne scenarije, ki povečujejo produktivnost z 70%, vam dajejo več časa za skrb za družino in uživanje v življenju.
  • Ne potrebujete več pomnilniških formul in VBA kod, od zdaj naprej pa dajate svojim možganom počitek.
  • Postanite strokovnjak za Excel v minutah 3, zapletene in ponavljajoče se operacije lahko opravite v nekaj sekundah,
  • Vsak dan zmanjšajte število operacij tipkovnice in miške, zdaj se poslovite od poklicnih bolezni.
  • 110,000 visoko učinkovite ljudi in 300 + svetovno priznanih podjetij izbiro.
  • Brezplačna preizkusna različica 60 dneva. 60-dnevno jamstvo vračila denarja. 2 let brezplačne nadgradnje in podpore.

Prinaša kartično brskanje in urejanje za Microsoft Office, veliko močnejši od zavihkov brskalnika

  • Office Tab je namenjen za Word, Excel, PowerPoint in druge Office aplikacije: Založnik, Dostop, Visio in Projekt.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Z 50% poveča vašo produktivnost in vsak dan zmanjša na stotine klikov z miško!
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Matt Foulkes-Needham · 1 months ago
    Hi, I have a summary sheet, that calculates how many lines on the main sheet that are within a certain date range. I want to be able to double click on a certain date range and it then filter out the data on the main sheet to the date range I double clicked on. What code would I need for this please
  • To post as a guest, your comment is unpublished.
    Daniel · 4 months ago
    Buenas tardes

    Excelente aportación ... lástima que no funcione con un archivo protegido ... qué podría cambiarle para que si funcione?

    Saludos
  • To post as a guest, your comment is unpublished.
    Heitor · 11 months ago
    Muito bom!
    Entretanto, só funciona em um intervalo.
    Eu queria aplicá-lo em uma Tabela, é possível? Ficaria muito agradecido se sim!!