Note: The other languages of the website are Google-translated. Back to English

 Sut i gymhwyso'r un hidlydd i sawl dalen yn Excel?

Efallai y bydd yn hawdd inni gymhwyso'r swyddogaeth Hidlo i hidlo data mewn taflen waith, ond, weithiau, efallai y bydd angen i chi hidlo ar draws sawl taflen waith sydd â fformatio data cyffredin gyda'r un meini prawf hidlo. Bydd eu hidlo fesul un yn gwastraffu llawer o amser, yma, gallaf gyflwyno ffordd hawdd i'w datrys ar unwaith.

Cymhwyso'r un hidlydd i sawl taflen waith gyda chod VBA


swigen dde glas saeth Cymhwyso'r un hidlydd i sawl taflen waith gyda chod VBA

Er enghraifft, mae gen i bedair taflen waith gan fod angen hidlo'r screenshot canlynol gyda'r un meini prawf â'r Cynnyrch = KTE ar unwaith.

hidlo doc taflenni lluosog 1

Nid oes unrhyw ffordd uniongyrchol i hidlo data mewn sawl dalen yn Excel, ond, gall y cod VBA canlynol eich helpu i orffen y swydd hon, gwnewch fel a ganlyn:

1. Daliwch i lawr y ALT + F11 allweddi, yna mae'n agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

2. Cliciwch Mewnosod > Modiwlau, a gludwch y cod canlynol yn y Modiwlau Ffenestr.

Cod VBA: Cymhwyso'r un hidlydd i sawl taflen waith:

Sub apply_autofilter_across_worksheets()
'Updateby Extendoffice
    Dim xWs As Worksheet
    On Error Resume Next
    For Each xWs In Worksheets
        xWs.Range("A1").AutoFilter 1, "=KTE"
    Next
End Sub

3. Ac yna pwyswch F5 yn allweddol i redeg y cod hwn, mae holl gynhyrchion KTE wedi'u hidlo ym mhob taflen waith ar unwaith, gweler y screenshot:

hidlo doc taflenni lluosog 2

Nodyn: O fewn y cod uchod, yn hwn xWs.Range ("A1"). AutoFilter 1, "= KTE" sgript, A1 ac = KTE yn nodi'r golofn a'r meini prawf yr ydych am eu hidlo yn seiliedig, y rhif 1 yw'r rhif colofn y gwnaethoch ei hidlo yn seiliedig arno, gallwch eu newid i'ch angen. Er enghraifft, os ydych chi am hidlo'r gorchymyn sy'n fwy na 50, does ond angen i chi addasu'r sgript hon fel hyn: xWs.Range ("B1"). AutoFilter 2, "> 50".


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

Kutools ar gyfer 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

doc-uwch-hidlo1

Kutools ar gyfer 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!


Yr Offer Cynhyrchedd Swyddfa Gorau

Mae Kutools for Excel yn Datrys y rhan fwyaf o'ch Problemau, ac yn Cynyddu Eich Cynhyrchedd 80%

  • Ailddefnyddio: Mewnosod yn gyflym fformwlâu cymhleth, siartiau ac unrhyw beth rydych chi wedi'i ddefnyddio o'r blaen; Amgryptio Celloedd gyda chyfrinair; Creu Rhestr Bostio ac anfon e-byst ...
  • Bar Fformiwla Gwych (golygu llinellau lluosog o destun a fformiwla yn hawdd); Cynllun Darllen (darllen a golygu nifer fawr o gelloedd yn hawdd); Gludo i'r Ystod Hidlo...
  • Uno Celloedd / Rhesi / Colofnau heb golli Data; Cynnwys Celloedd Hollt; Cyfuno Rhesi / Colofnau Dyblyg... Atal Celloedd Dyblyg; Cymharwch y Meysydd...
  • Dewiswch Dyblyg neu Unigryw Rhesi; Dewiswch Blank Rows (mae pob cell yn wag); Darganfyddiad Gwych a Darganfyddiad Niwlog mewn Llawer o Lyfrau Gwaith; Dewis ar Hap ...
  • Copi Union Celloedd Lluosog heb newid cyfeirnod fformiwla; Auto Creu Cyfeiriadau i Daflenni Lluosog; Mewnosod Bwledi, Blychau Gwirio a mwy ...
  • Testun Detholiad, Ychwanegu Testun, Tynnu yn ôl Swydd, Tynnwch y Gofod; Creu ac Argraffu Subtotals Paging; Trosi rhwng Cynnwys a Sylwadau Celloedd...
  • Hidlo Super (arbed a chymhwyso cynlluniau hidlo i ddalenni eraill); Trefnu Uwch yn ôl mis / wythnos / dydd, amlder a mwy; Hidlo Arbennig gan feiddgar, italig ...
  • Cyfuno Llyfrau Gwaith a Thaflenni Gwaith; Uno Tablau yn seiliedig ar golofnau allweddol; Rhannwch Ddata yn Daflenni Lluosog; Trosi Swp xls, xlsx a PDF...
  • Mwy na 300 o nodweddion pwerus. Yn cefnogi Swyddfa / Excel 2007-2019 a 365. Yn cefnogi pob iaith. Defnydd hawdd yn eich menter neu sefydliad. Nodweddion llawn treial am ddim 30 diwrnod. Gwarant arian yn ôl 60 diwrnod.
tab kte 201905

Mae Tab Office yn Dod â rhyngwyneb Tabbed i'r Swyddfa, a 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!
gwaelod officetab
sylwadau (37)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
sut ydych chi'n cymhwyso'r fformiwla hidlo hon: i ystod o daflenni? Mae gen i lyfr gwaith sydd â data ar y 5 taflen gyntaf, ac mae gan y llyfr gwaith 200 o daflenni. Dim ond i daflen 6-200 y mae angen yr hidlydd arnaf. Sub apply_autofilter_across_worksheets() 'Updateby Extendoffice 20160623 Dim xWs Wrth i Daflen Waith Ar Gwall Ailddechrau Nesaf Am Bob xWs Mewn Taflenni Gwaith xWs.Range("A1").AutoFilter 1, "=KTE" Isaf Diwedd
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Sub apply_autofilter_across_worksheets() Dim J Fel cyfanrif Ar Gwall Ailddechrau Nesaf Ar gyfer J = 6 i Daflenni Gwaith(worksheets.count) Thisworkbook.Sheets(J).Range("A1").Autofilter 1, "=KTE" Nesaf Diwedd Is
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Annwyl, rydw i eisiau hidlo mwy nag un gwerth, defnyddiais y xWs.Range ("B1").AutoFilter 2, "=223AM", xlOr, "=113IR", xlOr, "=003IR" ac fe weithiodd ond pan wnes i cynyddu'r gwerthoedd sydd eu heisiau i >2 mae gwall yn digwydd. y gorchymyn hwn rwy'n defnyddio xWs.Range ("B1").AutoFilter 2, "=223AM", xlOr, "=113IR", xlOr, "=003IR", xlOr, "=019IR", xlOr, "=311IR", xlOr , "=518ZA", xlOr, "=223AM", xlOr, "=592IR" diolch,
Lleihawyd y sylw hwn gan y safonwr ar y wefan
tra'n hidlo gair unigol mewn taflenni lluosog nid yw'n dangos data wedi'i hidlo....mae'r holl ddata yn hided.pleace datrys hyn.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Heia,


Mae fy nata yng Ngholofn E a phan fyddaf yn cymhwyso'r hidlydd hwn gydag Ystod ("E1") mae'n dal i hidlo colofn A


Sut alla i ddatrys problemau?
diolch
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae'n rhaid i chi ysgrifennu'r rhif Colofn yn AutoFilter, yn yr achos hwn: xWs.Range ("E1").AutoFilter 5,
Lleihawyd y sylw hwn gan y safonwr ar y wefan
DIOLCH!!!!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
DILEU Y COLOFN A LOL
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Sut mae gweithredu os yw'r hidlydd ar golofn wahanol ar bob dalen?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Sut allwch chi ddefnyddio canlyniad yr awto-hidlo i osod yr hidlydd ar gyfer pob dalen arall yn lle defnyddio =(enw penodol)
Lleihawyd y sylw hwn gan y safonwr ar y wefan
A allaf ddefnyddio hwn i hidlo tablau colyn mewn dalennau lluosog os yw'r holl dablau colyn o'r un ffynhonnell ddata ac wedi'u gosod gan ddefnyddio'r un meini prawf?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
A oes unrhyw opsiwn i hidlo yn ôl lliwiau?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, Mahesh,
Os ydych chi eisiau hidlo data yn ôl lliw, efallai y bydd y ddwy erthygl ganlynol yn gallu eich helpu chi! Edrychwch arnyn nhw, gobeithio y gall eich helpu chi!

https://www.extendoffice.com/documents/excel/912-excel-filter-by-cell-color.html
https://www.extendoffice.com/documents/excel/3383-excel-filter-by-multiple-colors.html
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Heia,


Sut mae hyn yn gweithio os cyflwynir colofn Cynnyrch mewn mannau gwahanol mewn dalennau eraill?


Yn nhaflen 1, mae'n A1 yn dalen 2 mae yn B1 ac yn dalen 3 mae'n A1 eto ?

Diolch,
Monika
Lleihawyd y sylw hwn gan y safonwr ar y wefan
A oes ffordd i newid y rhan "=KTE" ar gyfer pob dalen gyda hidlydd cynnwys sy'n seiliedig ar enw'r ddalen?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch am y cod!! a oes ffordd i newid y "=KTE" i ddefnyddio gwerth o Restr neu gwymplen?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, a yw'r hidlydd gwych ar draws y llyfr gwaith cyfan yn ailymgeisio'n awtomatig pryd bynnag y bydd y ffeil yn cael ei diweddaru?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
A allwn ddefnyddio enw cell fel Cynnyrch yn lle A1 yn : xWs.Range("A1").AutoFilter 1, "=KTE"
Mae gen i golofn wahanol ac mae rhai enwau yn dod mewn gwahanol golofnau.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Rwyf wedi defnyddio hidlydd ym mhob dalen. Ac rwyf am newid s.no o 1 2 3 yn gyfresol ym mhob dalen ar ôl hidlydd.


Rhowch wybod i mi os oes gennych chi god vba ar ei gyfer
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Sut i ddefnyddio Swyddogaeth "Filter Between", ar gyfer yr un dalennau lluosog?

(Enghraifft: Ystod amser)
Lleihawyd y sylw hwn gan y safonwr ar y wefan
sut i ddileu rhesi wedi'u hidlo?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Annwyl,

Sut i hidlo gyda chyflyrau lluosog?
Er enghraifft, rwyf am hidlo mewn trefn uwchben 50 ond dim ond cynhyrchion KTE.

Diolch i chi ymlaen llaw.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, Pedrjaa,
I hidlo ar draws dalennau lluosog yn seiliedig ar ddau amod, cymhwyswch y cod canlynol:
Is-gymhwyso_awtohidlen_ar draws_taflenni gwaith()

'Updateby Extendoffice

Dim xWs Fel Taflen Waith

Ar Ail-ddechrau Gwall Nesaf

Ar gyfer Pob xWs Mewn Taflenni Gwaith

Gyda xWs.Range("A1")

.AutoFilter Field:=1, Meini Prawf1:="KTE" 'Colofn A yn hafal i "KTE"

.AutoFilter Field:=2, Meini Prawf1:="> 500" ' Colofn B yn fwy na 500

Diwedd Gyda

Digwyddiadau

Is-End

Ceisiwch, gobeithio y gall eich helpu!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
hyd yn oed os byddaf yn disodli A1 â G1, mae'n gosod yr hidlydd ar golofn A1
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, Tan,
Rydych chi'n disodli A1 gyda G1, ar yr un pryd, dylech chi newid rhif colofn 1 i rif colofn 7, fel y cod isod:
xWs.Range("G1").AutoFilter 7, "=KTE"
Ceisiwch, diolch!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo,
a oes modd hidlo ar sail Enw Colofn, yn hytrach na rhif (gan fod fy nata mewn gwahanol golofnau yn y gwahanol daflenni gwaith)?
Diolch Manuela
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Rwyf am hidlo gyda'r un cyflwr "KTE", ond os nad yw'n ymddangos mewn dalen i ddim yn dangos unrhyw ddata.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo,
Rwyf am feini prawf hidlo yn seiliedig ar werth cell yn lle "KTE" a yw'n bosibl???
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, Hemraj,I hidlo'r data yn seiliedig ar werth cell penodol yn lle'r testun sefydlog, cymhwyswch y cod isod: Is-gymhwyso_awtohidlen_ar draws_taflenni gwaith()
'Updateby Extendoffice
Dim xWs Fel Taflen Waith
Ar Ail-ddechrau Gwall Nesaf
Ar gyfer Pob xWs Mewn Taflenni Gwaith
xWs.Range("A1").AutoFilter 1, Sheet1.Range("E2")
Digwyddiadau
Is-EndNodyn: Os gwelwch yn dda newid y Sheet1 ac E2 o fewn hyn Taflen 1. Ystod ("E2") sgript i'ch dalen a'ch gwerth cell eich hun. Ceisiwch, gobeithio y gall eich helpu!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Skyyang,
Diolch am eich cefnogaeth werthfawr a Gwych , ceisiais ddefnyddio'r un fformiwlâu ond nid oedd yn gweithio am beth allai fod y rheswm . Dyma'r cod yr wyf yn ei ddefnyddio ar gyfer fy nhaflen excel.
Is-gymhwyso_awtohidlen_ar draws_taflenni gwaith()
'Updateby Extendoffice
Dim xWs Fel Taflen Waith
Ar Ail-ddechrau Gwall Nesaf
Ar gyfer Pob xWs Mewn Taflenni Gwaith
xWs.Range("A1").AutoFilter 1, Sheet2.Range("C4")
Digwyddiadau
Is-End
Nid oes unrhyw sylwadau wedi'u postio yma eto
Llwytho mwy o
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir