Sut i glirio hidlwyr o'r holl daflenni gwaith mewn llyfr gwaith gweithredol yn Excel?
Gan dybio eich bod wedi creu hidlwyr lluosog ar draws gwahanol daflenni gwaith mewn llyfr gwaith Excel, a nawr rydych chi am glirio'r holl hidlwyr hyn ar unwaith. Fel rheol, mae angen i chi symud i'r daflen waith fesul un i wirio'r hidlydd ac yna ei glirio â llaw. A oes unrhyw ddull cyfleus i glirio hidlwyr o'r holl daflenni gwaith mewn llyfr gwaith gweithredol? Rhowch gynnig ar y dull yn yr erthygl hon.
Hidlwyr clir o'r holl daflenni gwaith mewn llyfr gwaith gweithredol gyda chod VBA
Hidlwyr clir o'r holl daflenni gwaith mewn llyfr gwaith gweithredol gyda chod VBA
Os gwelwch yn dda rhedeg y sgript VBA isod i glirio hidlwyr o'r holl daflenni gwaith yn y llyfr gwaith gweithredol.
1. Yn y llyfr gwaith mae angen i chi glirio hidlwyr ohono, pwyswch y Alt + F11 allweddi i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.
2. Yn y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, cliciwch Mewnosod > Modiwlau. Yna copïwch a gludwch y sgript VBA isod i mewn i ffenestr y Modiwl. Gweler isod screenshot:
Cod VBA: Hidlwyr clir o'r holl daflenni gwaith yn y llyfr gwaith gweithredol
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. Gwasgwch y F5 allwedd i redeg y cod. Yna caiff yr holl hidlwyr ar draws yr holl daflenni gwaith yn y llyfr gwaith cyfredol eu clirio ar unwaith.
Erthyglau perthnasol:
- Sut i glirio storfa hidlo (hen eitemau) o Pivot Table yn Excel?
- Sut i glirio hidlwyr wrth agor, arbed neu gau llyfr gwaith yn Excel?
- Sut i hidlo data yn seiliedig ar flwch gwirio yn Excel?
- Sut i lenwi cyfres o rifau mewn colofn rhestr wedi'i hidlo yn Excel?
Offer Cynhyrchiant Swyddfa Gorau
Supercharge Eich Sgiliau Excel gyda Kutools ar gyfer Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed. Kutools ar gyfer 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...
Mae 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!