Conas scagairí a ghlanadh ó gach bileog oibre sa leabhar oibre gníomhach in Excel?
Má cheaptar gur chruthaigh tú iliomad scagairí thar bhileoga oibre éagsúla i leabhar oibre Excel, agus anois ba mhaith leat na scagairí seo go léir a ghlanadh ag an am céanna. De ghnáth, ní mór duit aistriú go dtí an bhileog oibre ceann ar cheann chun an scagaire a sheiceáil agus ansin é a ghlanadh de láimh. An bhfuil aon mhodh áisiúil ann chun scagairí a ghlanadh ó gach bileog oibre i leabhar oibre gníomhach? Bain triail as an modh san alt seo le do thoil.
Scagairí soiléire ó gach bileog oibre sa leabhar oibre gníomhach le cód VBA
Scagairí soiléire ó gach bileog oibre sa leabhar oibre gníomhach le cód VBA
Rith an script VBA thíos le do thoil chun scagairí a ghlanadh ó gach bileog oibre sa leabhar oibre gníomhach.
1. Sa leabhar oibre a gcaithfidh tú scagairí a ghlanadh uaidh, brúigh an Eile + F11 eochracha a oscailt Microsoft Visual Basic d’Fheidhmchláir fhuinneog.
2. Sa Microsoft Visual Basic d’Fheidhmchláir fuinneog, cliceáil Ionsáigh > Modúil. Ansin cóipeáil agus greamaigh an script VBA thíos i bhfuinneog an Mhodúil. Féach thíos an pictiúr:
Cód VBA: Scagairí soiléire ó gach bileog oibre sa leabhar oibre gníomhach
Sub Clear_fiter()()
'Updated by Extendoffice 20210625
Dim xAF As AutoFilter
Dim xFs As Filters
Dim xLos As ListObjects
Dim xLo As ListObject
Dim xRg As Range
Dim xWs As Worksheet
Dim xIntC, xF1, xF2, xCount As Integer
Application.ScreenUpdating = False
On Error Resume Next
For Each xWs In Application.Worksheets
xWs.ShowAllData
Set xLos = xWs.ListObjects
xCount = xLos.Count
For xF1 = 1 To xCount
Set xLo = xLos.Item(xF1)
Set xRg = xLo.Range
xIntC = xRg.Columns.Count
For xF2 = 1 To xIntC
xLo.Range.AutoFilter Field:=xF2
Next
Next
Next
Application.ScreenUpdating = True
End Sub
3. Brúigh an F5 eochair chun an cód a rith. Ansin glantar gach scagaire ar fud na mbileog oibre uile sa leabhar oibre reatha láithreach.
Earraí gaolmhara:
- Conas taisce scagaire (sean-mhíreanna) a ghlanadh ó Pivot Table in Excel?
- Conas scagairí a ghlanadh agus tú ag oscailt, ag sábháil nó ag dúnadh leabhar oibre in Excel?
- Conas sonraí a scagadh bunaithe ar bhosca seiceála in Excel?
- Conas sraith uimhreacha a líonadh i gcolún liosta scagtha in Excel?
Uirlisí Táirgiúlachta Oifige is Fearr
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 ...
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á!