Բաց թողնել հիմնական բովանդակությունը

Ինչպե՞ս զտել տվյալները պարզապես կտտացնելով բջջային բովանդակությունը Excel- ում:

Սովորաբար, Excel- ում դուք կարող եք կիրառել Filter գործառույթը ՝ ըստ ձեր տվյալների տվյալների զտման համար: Բայց այս հոդվածում ես կխոսեմ այն ​​մասին, թե ինչպես զտել տվյալները ՝ պարզապես կտտացնելով բջջային արժեքը: Որպես օրինակ վերցրեք հետևյալ տվյալները, երբ ես կրկնակի կտտացնում եմ բջիջը A2- ին, այս կտտացրած արժեքի վրա հիմնված բոլոր համապատասխան գրառումները միանգամից զտվում են, ինչպես ցույց է տրված նկարում:

փաստաթղթի զտիչ ՝ կտտացնելով 1

Terտեք տվյալները ՝ պարզապես սեղմելով VBA կոդով բջջային արժեքը


նետ կապույտ աջ պղպջակ Terտեք տվյալները ՝ պարզապես սեղմելով VBA կոդով բջջային արժեքը

Այստեղ ես կտրամադրեմ VBA կոդ, որպեսզի դուք զտեք տվյալները ՝ կտտացնելով բջիջը, խնդրում եմ արեք հետևյալը.

1, Նախ, տվեք ձեր տվյալներին տիրույթի անուն, խնդրում ենք մուտքագրել տիրույթի անուն Անունը Boxեւ սեղմեք Մտնել ստեղնը, տես նկարի նկարը.

փաստաթղթի զտիչ ՝ կտտացնելով 2

2, Աջ կտտացրեք թերթիկի ներդիրին, որը ցանկանում եք զտել ՝ կտտացնելով բջիջը և այնուհետև ընտրել Դիտել կոդը համատեքստային ընտրացանկից և բացվածում Microsoft Visual Basic հավելվածների համար պատուհանը, պատճենեք և տեղադրեք հետևյալ կոդը դատարկ Մոդուլի մեջ.

VBA կոդ. Filտեք տվյալները ՝ կտտացնելով բջջային արժեքը.

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

փաստաթղթի զտիչ ՝ կտտացնելով 3

ՆշումՎերոհիշյալ ծածկագրում միդատա ձեր տվյալների տիրույթի համար ստեղծած տիրույթի անունն է, խնդրում ենք փոխեք այն ըստ ձեր կարիքի:

3, Ապա պահեք և փակեք ծածկագրի պատուհանը, այժմ, երբ կրկնակի կտտացնում եք տվյալների տիրույթի ցանկացած բջիջ, որը ցանկանում եք զտել, դրա համապատասխան գրառումները զտվելու են, ինչպես ցույց է տրված հետևյալ նկարը.

փաստաթղթի զտիչ ՝ կտտացնելով 4


Ավելի շատ հարակից հոդվածներ.

Ինչպե՞ս փոխել բջջի արժեքը ՝ կտտացնելով բջիջին:

Ինչպե՞ս դասավորել սյունակի տվյալները ՝ կտտացնելով վերնագիրը Excel- ում:

Գրասենյակի արտադրողականության լավագույն գործիքները

Հանրաճանաչ հատկություններ: Գտեք, ընդգծեք կամ նույնականացրեք կրկնօրինակները   |  Deleteնջել դատարկ շարքերը   |  Միավորել սյունակները կամ բջիջները՝ առանց տվյալների կորստի   |   Կլոր առանց բանաձևի ...
Super Փնտրել: Բազմաթիվ չափանիշների VLookup    Բազմակի արժեք VLookup  |   VLookup բազմաթիվ թերթերում   |   Fuzzy Փնտրել ....
Ընդլայնված բացվող ցուցակ: Արագ ստեղծեք բացվող ցուցակը   |  Կախված բացվող ցուցակ   |  Բազմակի ընտրություն Drop Down ցուցակ ....
Սյունակի կառավարիչ: Ավելացրեք որոշակի քանակությամբ սյունակներ  |  Տեղափոխել սյունակները  |  Փոխարկել թաքնված սյունակների տեսանելիության կարգավիճակը  |  Համեմատեք միջակայքերը և սյունակները ...
Առանձնահատկություններ: Ցանցի կենտրոնացում   |  Դիզայնի տեսք   |   Մեծ Formula Bar    Աշխատանքային գրքույկի և թերթիկների կառավարիչ   |  Ռեսուրսների գրադարան (Ավտոմատ տեքստ)   |  Ամսաթիվ ընտրող   |  Միավորել աշխատանքային թերթերը   |  Գաղտնագրել/գաղտնազերծել բջիջները    Ուղարկեք նամակներ ըստ ցանկի   |  Սուպեր զտիչ   |   Հատուկ զտիչ (զտել թավ/շեղ/շեղված...) ...
Լավագույն 15 գործիքների հավաքածու12 Տեքստ Գործիքներ (Ավելացրեք տեքստ, Հեռացնել նիշերը, ...)   |   50 + Աղյուսակ Տեսակներ (Գանտի աղյուսակը, ...)   |   40+ Գործնական Բանաձեւեր (Հաշվարկել տարիքը ՝ ելնելով ծննդյան տարեդարձից, ...)   |   19 միացում Գործիքներ (Տեղադրեք QR կոդ, Տեղադրեք նկար ուղուց, ...)   |   12 Փոխարկում Գործիքներ (Բառեր համարներ, Արտարժույթի փոխակերպումը, ...)   |   7 Միաձուլում և պառակտում Գործիքներ (Ընդլայնված կոմբինատ տողեր, Պառակտված բջիջներ, ...)   |   ... եւ ավելին

Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար:  Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...

kte էջանիշը 201905


Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք

  • Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
  • Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
  • Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:
Comments (3)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
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
This comment was minimized by the moderator on the site
Buenas tardes

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

Saludos
This comment was minimized by the moderator on the site
Muito bom!
Entretanto, só funciona em um intervalo.
Eu queria aplicá-lo em uma Tabela, é possível? Ficaria muito agradecido se sim!!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations