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

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:


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 (10)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Rydych chi'n ffycin scumbag mae hyn wedi dileu ein holl hidlwyr! Dinistriwyd ein sgript python gyfan o ganlyniad iddi gostio oriau i ni! EWCH I Uffern ScumbaGS!!!!!!!!!!!!!!!!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Heia,
Sori am y camgymeriad. Mae'r cod wedi'i ddiweddaru yn y post i glirio'r hidlyddion yn unig yn hytrach na'u tynnu. Rhowch gynnig ac mae'n ddrwg gennyf am yr anghyfleustra.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Pam na wnaethoch chi ei brofi'n llawn cyn gweithio ar eich ffeil ddiweddaraf a does dim copi wrth gefn gennych chi... gweithio ar eich arferion TG cyn defnyddio iaith galed.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Rydych chi'n cael cymorth am ddim ac yn diraddio eraill am eich camgymeriadau dwp eich hun. Mae pobl fel chi yn haeddu lle arbennig yn uffern
Lleihawyd y sylw hwn gan y safonwr ar y wefan
mae hyn yn cael gwared ar yr holl hidlwyr, roeddwn i eisiau rhywbeth a fyddai'n clirio'r hidlwyr nid yn eu tynnu.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Saima, cefais eich pwynt. Mae'r cod wedi'i ddiweddaru yn y post i glirio'r hidlyddion yn unig yn hytrach na'u tynnu. Rhowch gynnig ac mae'n ddrwg gennyf am yr anghyfleustra. Is Auto_Agored()
'Diweddarwyd gan Extendoffice 20201113
Dim xAF Fel AutoFilter
Dim xFs Fel Hidlau
Dim xLos Fel ListObjects
Dim xLo Fel ListObject
Dim xRg Fel Ystod
Dim xWs Fel Taflen Waith
Dim xIntC, xF1, xF2, xCyfrif fel Cyfanrif
Application.ScreenUpdating = Anghywir
Ar Ail-ddechrau Gwall Nesaf
Ar gyfer Pob xWs Mewn Cymhwysiad.Taflenni Gwaith
xWs.ShowAllData
Gosod xLos = xWs.ListObjects
xCount = xLos.Count
Ar gyfer xF1 = 1 I xCount
Gosod xLo = xLos.Item(xF1)
Gosod xRg = xLo.Range
xIntC = xRg.Columns.Count
Ar gyfer xF2 = 1 I xIntC
xLo.Range.AutoFilter Field:=xF2
Digwyddiadau
Digwyddiadau
Digwyddiadau
Application.ScreenUpdating = Gwir

Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch mae hwn wedi fy helpu yn fawr ;=)
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, bob tro rwy'n agor y ffeil mae'r macro yn rhedeg ac mae'r hidlwyr yn cael eu clirio, sut i osgoi'r "rhedeg auto" hwnnw o'r macro?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Juan Moreno,
Mae'n ddrwg gennyf am fy nghamgymeriad.Replace the first line:
Is Auto_Agored()gydaHidlydd_is glir()gyda datrys y broblem.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Pa linell ddylwn i ei newid i gyfyngu'r macro i'r ddalen weithredol DIM OND, yn hytrach na phob un ohonynt? Gwerthfawrogi'n fawr!
Nid oes unrhyw sylwadau wedi'u postio yma eto
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir