Skip to main content

 Conas an scagaire céanna a chur i bhfeidhm ar iliomad bileoga in Excel?

B’fhéidir go mbeadh sé éasca dúinn an fheidhm Scagaire a chur i bhfeidhm chun sonraí a scagadh i mbileog oibre, ach, uaireanta, b’fhéidir go mbeidh ort scagadh thar iliomad bileoga oibre a bhfuil formáidiú sonraí comónta acu leis na critéir chéanna scagaire. Chun iad a scagadh ceann ar cheann cuirfidh sé amú go leor ama, anseo, is féidir liom bealach éasca a thabhairt isteach chun é a réiteach ag an am céanna.

Cuir an scagaire céanna i bhfeidhm ar iliomad bileoga oibre le cód VBA

mboilgeog cheart gorm saighead Cuir an scagaire céanna i bhfeidhm ar iliomad bileoga oibre le cód VBA

Mar shampla, tá ceithre bhileog oibre agam mar is gá an pictiúr seo a leanas a scagadh leis na critéir chéanna agus atá ag an Táirge = KTE ag an am céanna.

scagaire doc bileoga iolracha 1

Níl aon bhealach díreach ann chun sonraí a scagadh i mbileoga iolracha in Excel, ach, is féidir leis an gcód VBA seo a leanas cabhrú leat an post seo a chríochnú, déan mar a leanas:

1. Coinnigh síos an ALT + F11 eochracha, ansin osclaíonn sé an Microsoft Visual Basic d’Fheidhmchláir fhuinneog.

2. Cliceáil Ionsáigh > Modúil, agus greamaigh an cód seo a leanas sa Modúil Fuinneog.

Cód VBA: Cuir an scagaire céanna i bhfeidhm ar iliomad bileoga oibre:

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. Agus ansin brúigh F5 eochair chun an cód seo a rith, rinneadh gach táirge de KTE a scagadh i ngach bileog oibre ag an am céanna, féach an scáileán:

scagaire doc bileoga iolracha 2

nótaí: Laistigh den chód thuas, sa xWs.Range ("A1"). AutoFilter 1, "= KTE" script, A1 agus = KTE léiríonn sé an colún agus na critéir ar mhaith leat a scagadh bunaithe, is é uimhir 1 an uimhir cholúin a rinne tú a scagadh bunaithe air, is féidir leat iad a athrú go do riachtanas. Mar shampla, más mian leat an t-ordú níos mó ná 50 a scagadh, ní gá duit ach an script seo a mhodhnú mar seo: xWs.Range ("B1"). AutoFilter 2, "> 50".

Scag sonraí de réir ilchritéar nó riocht sonrach eile, amhail fad an téacs, cás-íogair, srl.

Kutools le haghaidh Excel'S Scagaire Super Is fóntais chumhachtach í an ghné, is féidir leat an ghné seo a chur i bhfeidhm chun na hoibríochtaí seo a leanas a chríochnú:

  • Scag sonraí le ilchritéir; Scag sonraí de réir faid an téacs;
  • Scag sonraí de réir cás uachtair / íochtair; Dáta scagaire de réir bliana / míosa / Lá / seachtaine / ráithe

doc-sár-scagaire1

Kutools le haghaidh Excel: le níos mó ná 300 breiseán áisiúil Excel, saor in aisce le triail gan aon teorannú i 30 lá. Íoslódáil agus triail saor in aisce Anois!

Uirlisí Táirgiúlachta Oifige is Fearr

🤖 Kutools AI Aide: anailís sonraí a réabhlóidiú bunaithe ar: Forghníomhú Chliste   |  Gin Cód  |  Cruthaigh Foirmlí Saincheaptha  |  Anailís a dhéanamh ar Sonraí agus Cairteacha a Ghin  |  Feidhmeanna Kutools a agairt...
Gnéithe Coitianta: Faigh, Aibhsigh nó Aithnigh Dúblaigh   |  Scrios Sraitheanna Bána   |  Comhcheangail Colúin nó Cealla gan Sonraí a Chailleadh   |   Babhta gan Foirmle ...
Cuardaigh Super: Ilchritéir VLookup  |   VLookup Illuachanna  |   VLookup Trasna Ilbhileoga   |   Amharc doiléir ....
Liosta anuas Casta: Go tapa Cruthaigh Liosta Anuas   |  Liosta anuas Cleithiúnach   |  Liosta Buail Isteach Ilroghnacha ....
Bainisteoir Colún: Cuir Líon Sonrach Colún leis  |  Colúin Bog  |  Scoránaigh Stádas Infheictheachta na gColún Ceilte  |  Déan comparáid idir Raonta & Colúin ...
Gnéithe Réadmhaoin: Fócas Eangaí   |  Amharc Dearaidh   |   Barra Mór na Foirmle   |  Leabhar Oibre & Bainisteoir Bileog   |  Leabharlann Acmhainní (Uaththéacs)   |  Piocálaí Dáta   |  Comhcheangail Bileoga Oibre   |  Criptigh/Díchriptigh Cealla   |  Seol Ríomhphost trí Liosta   |  Scagaire Super   |   Scagaire Speisialta (scagaire trom/iodálach/stailc tríd...) ...
Barr 15 Uirlisí:  12 Téacs uirlisí (Cuir Téacs, Bain Carachtair,...)   |   50 + Cairt cineálacha (Cairt Gantt,...)   |   40+ Praiticiúil Foirmlí (Ríomh aois bunaithe ar lá breithe,...)   |   19 Insertion uirlisí (Cuir isteach Cód QR, Ionsáigh Pictiúr ón gCosán,...)   |   12 Tiontú uirlisí (Uimhreacha le Focail, Comhshó Airgeadra,...)   |   7 Cumaisc & Scoilt uirlisí (Sraitheanna Comhcheangail Casta, Cealla Scoilt,...)   |   ... agus eile

Supercharge Do Scileanna Excel le Kutools le haghaidh Excel, agus Éifeachtúlacht Taithí Cosúil Ná Roimhe. Kutools le haghaidh Excel Tairiscintí Níos mó ná 300 Ardghnéithe chun Táirgiúlacht a Treisiú agus Sábháil Am.  Cliceáil anseo chun an ghné is mó a theastaíonn uait a fháil ...

Tuairisc

Tugann Tab Oifige comhéadan Tabbed chuig Office, agus Déan Do Obair i bhfad Níos Éasca

  • Cumasaigh eagarthóireacht agus léamh tabbed i Word, Excel, PowerPoint, Foilsitheoir, Rochtain, Visio agus Tionscadal.
  • Oscail agus cruthaigh cáipéisí iolracha i gcluaisíní nua den fhuinneog chéanna, seachas i bhfuinneoga nua.
  • Méadaíonn do tháirgiúlacht 50%, agus laghdaíonn sé na céadta cad a tharlaíonn nuair luch duit gach lá!
Comments (48)
Rated 5 out of 5 · 1 ratings
Giulia Simbula
Giulia Simbula
This comment was minimized by the moderator on the site
Hello, your code works really well. What about if I want to filter more than one cell value. For example: KTE and KTO? thank you for your help
Reply
0
0
Giulia Simbula
Giulia Simbula
This comment was minimized by the moderator on the site
Hello, your code works really well. What about if I want to filter more than one cell value. For example: KTE and KTO
Reply
0
0
Sheik
Sheik
This comment was minimized by the moderator on the site
Hi,
i have a work book 20+ sheets, and have to filter each sheet in different column but the same number "0 (Zero)" as in the column "P" in the attached image. along with i have to print preview the sheets which i have mentioned. How to di it sir. Each sheet has link with another or several sheets has linked to specific sheet.
View Attachments (1 / 5)
Reply
Report
0
0
richardhodgkisson@sky.com
This comment was minimized by the moderator on the site
Works a treat, thank you.
Reply
Report
0
0
Rated 5 out of 5
richardhodgkisson@sky.com
This comment was minimized by the moderator on the site
Is it possible to use the code to filter where it does not contain a zero.

I have a workbook with sheets up to 20 sometimes, where one column is always the same in each sheet, want to filter out all zeros.

Hope this makes sense.
Reply
Report
0
0
skyyang
skyyang    
This comment was minimized by the moderator on the site
Hello, Richard,
To filter the data exclude the zeros, please apply the below vba code:
Note: in the code, in this xWs.Range("C1").AutoFilter 3, "<>0" script, C1 and <>0 indicates the column and criteria which you want to filter based on, the number 3 is the column number you filtered based on, you can change them to your need.
Sub apply_autofilter_across_worksheets()
'Updateby Extendoffice
    Dim xWs As Worksheet
    On Error Resume Next
    For Each xWs In Worksheets
        xWs.Range("c1").AutoFilter 3, "<>0"
    Next
End Sub


Please have a try, hope it can help you!
Reply
Report
1
0
richardhodgkisson@sky.com
This comment was minimized by the moderator on the site
I want to use this code to filter on a column across multiple worksheets, the column will always have numbers in it, but I want the auto filter to remove zero values, leaving just minus and plus numbers.

Is this possible?
Reply
Report
0
0
Fabio costa
Fabio costa
This comment was minimized by the moderator on the site
I have a spreadsheet with 2 tabs, I want that when I filter one tab, the other respects the filtered items and is also filtered with the same values, how to do that?
Reply
0
0
skyyang
skyyang     Fabio costa
This comment was minimized by the moderator on the site
Hello, Fabio,
To solve your problem, you can use the VBA code in this article, and please remeber to change the cell reference and criteria in the code.
Please try again, hope it can help you!
Reply
Report
0
0
paige
paige
This comment was minimized by the moderator on the site
I am copying and pasting exactly but keep getting "Compile Error: Invalid outside procedure". I have only changed the criteria to match what I need specifically.. below:

Sub apply_autofilter_across_worksheets()
'Updateby Extendoffice
Dim xWs As Worksheet
On Error Resume Next
For Each xWs In Worksheets
xWs.Range("D3").AutoFilter 1, "=Paige"
Next
End Sub
Reply
0
0
skyyang
skyyang     paige
This comment was minimized by the moderator on the site
Hello, Paige,
I have tested your code, and it works well in my workbook.
Could you upload your excel file here, so that we can check where the problem is.
Thank you!
Reply
Report
0
0
BRendan
BRendan
This comment was minimized by the moderator on the site
Amazing work! this macro is great.
Reply
0
0
Akoma Dupsy Blessing
Akoma Dupsy Blessing
This comment was minimized by the moderator on the site
Thank you skyyang Please how do i remove the hidden rows after filtering?
Reply
0
0
skyyang
skyyang     Akoma Dupsy Blessing
This comment was minimized by the moderator on the site
Hello, Akoma,
To remove all hidden rows after filtering, please apply the below code: (Note: This code will remove all hidden rows in the worksheet, and it will not undo, so you need backup your data.)
Sub DeleteHiddenRows()
Dim sht As Worksheet
Dim LastRow
Set sht = ActiveSheet
LastRow = sht.UsedRange.Rows(sht.UsedRange.Rows.Count).Row
For i = LastRow To 1 Step -1
If Rows(i).Hidden = True Then Rows(i).EntireRow.Delete
Next
End Sub

Please try, hope it can help you!
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