Skip i'r prif gynnwys

Sut i autofilter rhesi yn seiliedig ar werth celloedd yn Excel?

Fel rheol, gall y swyddogaeth Hidlo yn Excel ein helpu i hidlo unrhyw ddata yn ôl yr angen, ond, weithiau, hoffwn i auto hidlo celloedd yn seiliedig ar fewnbwn celloedd â llaw sy'n golygu pan fyddaf yn nodi maen prawf mewn cell, gall y data fod hidlo'n awtomatig ar unwaith. A oes unrhyw syniadau da i ddelio â'r swydd hon yn Excel?

Rhesi hidlo awto yn seiliedig ar werth celloedd y gwnaethoch chi ei nodi gyda chod VBA

Hidlo data yn ôl meini prawf lluosog neu gyflwr penodol arall, megis yn ôl hyd testun, yn ôl achos sensitif

Rhesi hidlo awto yn seiliedig ar werth celloedd y gwnaethoch chi ei nodi gyda chod VBA

Gan dybio, mae gen i'r ystod ganlynol o ddata, nawr, pan fyddaf yn nodi'r meini prawf yng nghell E1 ac E2, rwyf am i'r data gael ei hidlo'n awtomatig fel y dangosir isod y llun:

hidlydd auto doc 1

1. Ewch i'r daflen waith rydych chi am ei hidlo'n awtomatig ar y dyddiad yn seiliedig ar werth y gell y gwnaethoch chi ei nodi.

2. De-gliciwch y tab dalen, a dewis Gweld y Cod o'r ddewislen cyd-destun, yn y popped allan Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, copïwch a gludwch y cod canlynol i'r gwag Modiwlau ffenestr, gweler y screenshot:

Cod VBA: data hidlo auto yn ôl gwerth celloedd a gofnodwyd:

Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice 20160606
   If Target.Address = Range("E2").Address Then
       Range("A1:C20").CurrentRegion.AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Range("E1:E2")
   End If
End Sub

hidlydd auto doc 2

Nodyn: Yn y cod uchod, A1: C20 yw eich ystod ddata rydych chi am ei hidlo, E2 yw'r gwerth targed rydych chi am ei hidlo yn seiliedig ar, a E1: E2 yw eich meini prawf y bydd cell yn cael ei hidlo yn seiliedig ar. Gallwch eu newid i'ch angen.

3. Nawr, pan fyddwch chi'n nodi'r meini prawf yn y gell E1 ac E2 ac yn y wasg Rhowch yn allweddol, bydd eich data yn cael ei hidlo gan werthoedd y gell yn awtomatig.

Hidlo data yn ôl meini prawf lluosog neu gyflwr penodol arall, megis yn ôl hyd testun, yn ôl achos sensitif

Hidlo data yn ôl meini prawf lluosog neu gyflwr penodol arall, megis yn ôl hyd testun, yn ôl achos sensitif, ac ati.

Kutools for Excel'S Hidlo Super nodwedd yn ddefnyddioldeb pwerus, gallwch gymhwyso'r nodwedd hon i orffen y gweithrediadau canlynol:

  • Hidlo data gyda meini prawf lluosog; Hidlo data yn ôl hyd testun;
  • Hidlo data yn ôl llythrennau bach / llythrennau bach; Hidlo dyddiad yn ôl blwyddyn / mis / Diwrnod / wythnos / chwarter

Kutools for Excel: gyda mwy na 300 o ychwanegiadau Excel defnyddiol, am ddim i geisio heb unrhyw gyfyngiad mewn 30 diwrnod. Dadlwythwch a threial am ddim Nawr!

Demo: Rhesi hidlo awto yn seiliedig ar werth celloedd y gwnaethoch chi ei nodi gyda chod VBA

Offer Cynhyrchiant Swyddfa Gorau

Nodweddion Poblogaidd: Darganfod, Amlygu neu Adnabod Dyblygiadau   |  Dileu Rhesi Gwag   |  Cyfuno Colofnau neu Gelloedd heb Colli Data   |   Rownd heb Fformiwla ...
Super-edrych: VLookup Meini Prawf Lluosog  |   VLookup Gwerth Lluosog  |   VLookup Ar Draws Taflenni Lluosog   |   Edrych Niwlog ....
Rhestr gwympo Uwch: Creu Rhestr Gollwng yn Gyflym   |  Rhestr Gollwng Dibynnol   |  Rhestr Gollwng Aml-ddewis ....
Rheolwr Colofn: Ychwanegu Nifer Penodol o Golofnau  |  Symud Colofnau  |  Toglo Statws Gwelededd Colofnau Cudd  |  Cymharwch Ystodau a Cholofnau ...
Nodweddion dan Sylw: Ffocws ar y Grid   |  Golwg Dylunio   |   Bar Fformiwla Mawr   |  Rheolwr Llyfr Gwaith a Thaflen   |  Llyfrgell Adnoddau (Testun Auto)   |  Dewiswr Dyddiad   |  Cyfuno Taflenni Gwaith   |  Amgryptio/Dadgryptio Celloedd   |  Anfon E-byst trwy Restr   |  Hidlo Super   |   Hidlo Arbennig (hidlo mewn print trwm/italig/strikethrough...) ...
15 Set Offer Gorau:  12 Testun offer (Ychwanegu Testun, Dileu Cymeriadau,...)   |   50 + Siart Mathau (Siart Gantt,...)   |   40+ Ymarferol Fformiwlâu (Cyfrifwch oedran yn seiliedig ar ben-blwydd,...)   |   19 mewnosod offer (Mewnosod Cod QR, Mewnosod Llun o'r Llwybr,...)   |   12 Trosi offer (Rhifau i Eiriau, Trosi arian cyfred,...)   |   7 Uno a Hollti offer (Rhesi Cyfuno Uwch, Celloedd Hollt,...)   |   ... a mwy

Supercharge Eich Sgiliau Excel gyda Kutools for Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed o'r blaen. Kutools for Excel Yn cynnig dros 300 o nodweddion uwch i hybu cynhyrchiant ac arbed amser.  Cliciwch Yma i Gael Y Nodwedd Sydd Ei Angen Y Mwyaf...

tab kte 201905

Office Tab Yn dod â rhyngwyneb Tabbed i Office, ac yn Gwneud Eich Gwaith yn Haws o lawer

  • Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
  • Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
  • Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!
Comments (36)
No ratings yet. Be the first to rate!
Ofer Hirshfeld
Ofer Hirshfeld
This comment was minimized by the moderator on the site
hi

thank you - this code was a life saver

but if I wish to filter when the value on E2 contains the search text.
so if i search for Grade1
it should filter
Grade1
ExampleGrade1
Grade1ETC


many thanks in advance
Reply
0
0
Aaron
Aaron
This comment was minimized by the moderator on the site
I scanned through the comments and didn't see a specific answer. I am looking to filter a Table that changes based on a DB query, The table range will change every time the query is refreshed, How can we account for this in the code? The function becomes pointless if I have to direct users edit the VBA code every time they refresh the table.
Reply
0
0
Henk
Henk
This comment was minimized by the moderator on the site
Good day,

I have made sheet1 with the table in the example. In sheet2 all the data are referenced to the table in sheet1.

In sheet2 I can choose the grades exactly as in the example. That works OK.

However when I change a Grade of a student in sheet1 the list is not updated in sheet2. So the filter does not work automatic.

How can this be done?
Reply
0
0
minnie
minnie
This comment was minimized by the moderator on the site
Hello, is there a way to quickly modify the VBA code to filter on values bigger than in selected cell?
Reply
0
0
Stan
Stan
This comment was minimized by the moderator on the site
Hi there,

Thank you for the great content, however I am having some issues and was wondering whether you had any ideas why.

I have adjusted my ranges so my code reads:

Sub AutoFilter()
If Target.Address = Range("E13:F14").Address Then
Worksheets('Data Archive').Range("A1:C20").CurrentRegion.AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Range("F10:F1048576")
End If
End Sub


However, when I run the macro a "Compile Error: Syntex Error" message appears.

Thank you in advance

Stan
Reply
0
0
skyyang
skyyang     Stan
This comment was minimized by the moderator on the site
Hello, Stan,
Do you set the data range and criteria range correctly in the code？Or you can take your data range as a screenshot here.
Thank you!
Reply
Report
0
0
Vincent VBA
Vincent VBA
This comment was minimized by the moderator on the site
Thank you very much for this. It worked for me fine to a certain extent, please let me explain:

I have multiple tables in my workbook. When I applied the above code, it only worked for one table, but not for the other two tables. Let's say the first table is, as in your example, from A1:C20. The second table is from A22:C40. The third from A42:C60. All tables have the info about the "Grade", however they have different columns & Date and therefore cannot be consolidated into one big tables but rather 3 smaller tables.

How would the code need to like like so that if I put the criteria: "Grade1", all 3 tables will be automatically filtered for "Grade1" ?

Thank you very much in advance.

Best regards
Reply
Report
0
0
Peter Johansen
Peter Johansen
This comment was minimized by the moderator on the site
Thank you, for this, it was really helpful. i just have one question, after selected the name in the drop down menu (i have names as criteria), it only shows people with that name, as it should, but how can i do so after i have selected a name, then i want so see all the rows of my table??

hope you can help me out.

kind regards
Reply
0
0
skyyang
skyyang     Peter Johansen
This comment was minimized by the moderator on the site
Hi, Peter,
This code is worked well for fitering the entire rows of the data, could you enter your table range correctlly?

A1:C20 is the range of your data, E1:E2 is the criteria range.
Range("A1:C20").CurrentRegion.AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Range("E1:E2")
View Attachments (1 / 5)
Reply
Report
0
0
tim
tim
This comment was minimized by the moderator on the site
Hey guys,
perfect Explanation, thank you very much.
1 Little question: if I want to filter with 2,3 4 or more criterias how do I do this?
For example I want to say I wanna see the Name Henry, with Grade 1 and this Age...so not just 1 criteria but for example 3..=?


thanks for the respond


Kind regards,


TIM
Reply
0
0
skyyang
skyyang     tim
This comment was minimized by the moderator on the site
Hi, tim,
To auto filter data based on multiple criteria, you should apply the below code: (please change the cell references to your need)

Private Sub Worksheet_Change(ByVal Target As Range)
'Update by Extendoffice
Dim xVStr As String
Dim xFStr As String
xVStr = "E22:G22" 'the criteria that you want to filter based on
xFStr = "E21:G22" 'the range contains the header of the criteria
If Not (Intersect(Range(xVStr), Target) Is Nothing) Then
Range("A1:C17").CurrentRegion.AdvancedFilter Action:=xlFilterInPlace, _
CriteriaRange:=Range(xFStr)
End If
End Sub


Please try, hope it can help you!
Reply
Report
0
0
Bogdan
Bogdan
This comment was minimized by the moderator on the site
Hello,

What if I got the filtered data in a different tab(sheet 2) in the same workbook and the cell that the filter needs to refer to is in the first tab(sheet 1). I used this VBA but is not working like that, only if I have both the criteria cell(E2 in this VBA) in the same tab with the filtered data(A1:C20)
Reply
0
0
mjr_awesome
mjr_awesome
This comment was minimized by the moderator on the site
There might be a mistake in the instructions. Instead of pasting the code into a blank Module, one should paste it into the Sheet window. For example, if the macro is to work on Sheet1, the code should be pasted into Microsoft Excel Objects -> Sheet1(Sheet1). Only then it works for me on Excel 2016.

Thanks for the code!
Reply
0
0
skyyang
skyyang     mjr_awesome
This comment was minimized by the moderator on the site
Hi, mjr,
There is no mistake in this article, the article said, you should put the VBA code into the sheet module by right click the sheet name and then choose View Code to go to the module.
But, your operation is correct as well.
Thank you for your comment.
Reply
Report
0
0
There are no comments posted here yet
Load More
Please leave your comments in English
Guest
Posting as Guest
×
Rate this post:
Reset
0   Characters
Suggested Locations