Dirbant su "Microsoft Excel , duomenų filtravimas leidžia matyti tik tą informaciją, kurios norime. Kai norime sutelkti dėmesį į tam tikrus didelio duomenų rinkinio ar lentelių elementus, šis metodas praverčia. Kai darbas baigtas, tuos duomenis turime grąžinti į savo skaičiuoklę. nors "Excel" jau yra integruota tam skirta priemonė. Tačiau VBA yra efektyviausias, laiką taupantis ir saugiausias būdas atlikti bet kokią užduotį "Excel" programoje. Šiame straipsnyje pateiksime keletą pavyzdžių, kaip pašalinti filtrą "Excel VBA" programoje.

Atsisiųsti praktikos sąsiuvinį

Galite atsisiųsti pratybų sąsiuvinį ir pasipraktikuoti su jais.

5 paprasti metodai, kaip pašalinti filtrą "Excel VBA" programoje

"Excel" turi integruotų įrankių ir funkcijų, skirtų filtrams iš duomenų pašalinti. Tačiau su "Excel" VBA galime greitai pašalinti šiuos filtrus tiesiog paleidę VBA kodą. Norėdami pašalinti filtrus iš duomenų, naudosime šį duomenų rinkinį. Duomenų rinkinyje stulpelyje yra kai kurių produktų ID B , produktų pavadinimai stulpelyje C , o pristatymo šalis - stulpelyje D . Kadangi norime matyti tik išsamią informaciją apie gaminį Šampūnas ir Kondicionierius , todėl juos išfiltravome. Dabar, tarkime, kad mums reikia išvalyti šiuos išfiltruotus duomenis. Naudosime tam tikrą "Excel" VBA makrokomandos Parodykime pavyzdžių, kaip iš duomenų išvalyti šiuos filtrus, naudodami "Excel" VBA .

1. Taikykite VBA, kad pašalintumėte visus filtrus iš "Excel" lentelės

Su "Excel" VBA , naudotojai gali lengvai naudoti kodą, kuris veikia kaip "Excel" juostos meniu. Norėdami naudoti VBA kodą, kad iš "Excel" lentelės pašalintumėte visus filtrus, atlikime toliau nurodytus veiksmus.

ŽINGSNIAI:

• Pirmiausia eikite į Kūrėjas skirtuką iš juostos.
• Antra, iš Kodas kategoriją, spustelėkite "Visual Basic atidaryti "Visual Basic" redaktorius . Arba paspauskite Alt + F11 atidaryti "Visual Basic" redaktorius .

• Užuot tai darę, galite tiesiog dešiniuoju pelės klavišu spustelėti darbalapį ir eiti į Peržiūrėti kodą . Taip pat pateksite į "Visual Basic" redaktorius .

• Tai bus rodoma "Visual Basic" redaktorius kur rašome kodus, skirtus sukurti lentelę iš diapazono.
• Trečia, spustelėkite Modulis iš Įdėkite išskleidžiamojo meniu juostoje.

• Taip bus sukurtas Modulis savo sąsiuvinyje.
• Nukopijuokite ir įklijuokite VBA toliau pateiktas kodas.

VBA kodas:

 Sub Remove_Filters1() Dim lstObj As ListObject Set lstObj = Sheet1.ListObjects(1) lstObj.AutoFilter.ShowAllData End Sub 

• Po to paleiskite kodą spustelėdami RubSub mygtuką arba paspausdami klaviatūros sparčiuosius klavišus F5 .

• Galiausiai atlikę šiuos veiksmus pašalinsite visus filtrus iš "Excel" lentelės darbalapyje.

VBA kodo paaiškinimas

 Dalis Remove_Filters1() 

Sub tai kodo dalis, kuri naudojama kodo darbams atlikti, bet negrąžina jokios vertės. Ji taip pat vadinama paprocedūra. Taigi savo procedūrą pavadiname Remove_Filters1() .

 Dim lstObj kaip ListObject 

Kintamojo deklaravimas.

 Set lstObj = Sheet1.ListObjects(1) 

VBA Set tiesiog leidžia mums išvengti, kad paleidžiant kodą nereikėtų vėl ir vėl įvesti diapazono, kurį reikia pasirinkti. Taigi, nustatome nuorodą į pirmąją lapo lentelę.

 lstObj.AutoFilter.ShowAllData 

Ši kodo eilutė pašalins visus visų duomenų filtrus.

 Pabaiga Sub 

Taip procedūra bus baigta.

Skaityti daugiau: Kaip pašalinti "Excel" filtrą (5 paprasti ir greiti būdai)

2. Išvalyti visus "Excel" lentelės filtrus lape naudojant VBA

Panagrinėkime kitą pavyzdį, kaip panaudoti "Excel VBA", kad pašalintumėte visus "Excel" lentelės filtrus lape. Tam atlikite toliau nurodytus veiksmus.

ŽINGSNIAI:

• Pirmiausia eikite į Plėtoti r skirtuką iš juostos.
• Antra, spustelėkite "Visual Basic atidaryti "Visual Basic" redaktorius .
• Kitas būdas atidaryti "Visual Basic" redaktorius tiesiog paspauskite Alt + F11 .
• Arba dešiniuoju pelės klavišu spustelėkite lapą ir pasirinkite Peržiūrėti kodą .
• Tada eikite į Įdėkite ir pasirinkite Modulis iš išskleidžiamojo meniu.
• Bus atidarytas "Visual Basic" langas.
• Po to nukopijuokite ir įklijuokite VBA kodas žemiau.

VBA kodas:

 Sub Remove_Filters2() Dim lstObj As ListObject For Each lstObj In Sheet2.ListObjects lstObj.AutoFilter.ShowAllData Next lstObj End Sub 

• Be to, paspauskite F5 klavišas arba spustelėkite Paleisti "Run Sub paleisti kodą.

• Šis kodas išvalys visus "Excel" lentelės filtrus iš jūsų lapo ir pateiks tokią išvestį. 1 metodas .

VBA kodo paaiškinimas

 For Each lstObj In Sheet2.ListObjects lstObj.AutoFilter.ShowAllData Next lstObj 

Šiose kodo eilutėse cikliškai peržiūrėkite visas lape esančias lenteles ir pašalinkite visus viso darbalapio filtrus.

Skaityti daugiau: Kaip filtruoti "Excel Pivot" lentelę (8 veiksmingi būdai)

3. Filtro pašalinimas iš stulpelio naudojant "Excel" VBA

Pažvelkime į kitą būdą, kaip ištrinti filtrą iš stulpelio naudojant "Excel VBA". Pažiūrėkime, kaip tai padaryti.

ŽINGSNIAI:

• Norėdami pradėti, spustelėkite Kūrėjas juostos skirtukas.
• Antra, paleiskite "Visual Basic" redaktorius spustelėdami "Visual Basic .
• Taip pat galite pasiekti "Visual Basic" redaktorius paspausdami Alt + F11 .
• Arba, dešiniuoju pelės klavišu spustelėkite lape ir pasirinkite Peržiūrėti kodą iš meniu.
• Tada pasirinkite Modulis iš išskleidžiamojo langelio Įdėkite .
• Bus rodomas "Visual Basic" langas.
• Ten įrašykite kodą.

VBA kodas:

 Sub Remove_Filter3() Sheet1.Range("B3:D16").AutoFilter Field:=4 End Sub 

• Galiausiai paspauskite F5 klavišas paleisti kodą.

• Naudojant šį kodą iš "Excel" lentelės stulpelio bus pašalintas filtras.

VBA kodo paaiškinimas

 Sheet1.Range("B3:D16").AutoFilter Field:=4 

Šioje kodo eilutėje nurodomas tik lauko numeris ir nenurodomi jokie kiti parametrai.

Skaityti daugiau: "Excel" VBA filtravimas tame pačiame stulpelyje pagal kelis kriterijus (6 pavyzdžiai)

Panašūs skaitiniai

• "Excel VBA": kaip filtruoti pagal kelis kriterijus masyve (7 būdai)
• VBA kodas "Excel" duomenims filtruoti pagal datą (4 pavyzdžiai)
• Kaip naudoti filtrą apsaugotame "Excel" lape (paprastais žingsniais)
• Skirtingų stulpelių filtravimas pagal kelis kriterijus "Excel VBA" programoje
• VBA kodas "Excel" duomenims filtruoti (8 pavyzdžiai)

4. Išvalyti visus aktyvios darbalapio filtrus

Dabar pažvelkite į kitą "Excel" VBA metodą, kad iš aktyvaus darbalapio išvalytumėte visus filtrus. Atlikime tolesnius veiksmus.

ŽINGSNIAI:

• Norėdami pradėti, atidarykite juostą ir pasirinkite Kūrėjas galimybė.
• Tada, norėdami pasiekti "Visual Basic" redaktorius , spustelėkite "Visual Basic .
• Spausdinimas Alt + F11 taip pat iškels "Visual Basic" redaktorius .
• Arba, dešiniuoju pelės klavišu spustelėkite lapą ir pasirinkite Peržiūrėti kodą iš pasirodžiusio meniu.
• Dabar iš Įdėkite išskleidžiamojo sąrašo parinktį, pasirinkite Modulis .
• Tada nukopijuokite ir įklijuokite VBA toliau pateikiamas kodas.

VBA kodas:

 Public Sub RemoveFilter() If ActiveSheet.FilterMode = True Then ActiveSheet.ShowAllData End If End Sub 

• Paleiskite kodą paspausdami F5 raktas.

• Galiausiai galėsite pašalinti filtrus iš savo duomenų naudodami šią funkciją VBA kodą, pvz. 1 metodas .

Skaityti daugiau: Kaip filtruoti pagal sąrašą kitame "Excel" lape (2 metodai)

5. "Excel" VBA visiems darbaknygės filtrams pašalinti

Panagrinėkime kitą r "Excel" VBA būdas pašalinti visus filtrus iš darbo knygos. Taigi, pažvelkime į žingsnius žemyn.

ŽINGSNIAI:

• Norėdami pradėti, atidarykite juostą ir pasirinkite Kūrėjas iš išskleidžiamojo meniu.
• Tada pasirinkite "Visual Basic atidaryti "Visual Basic" redaktorius .
• Svetainė "Visual Basic" redaktorius taip pat galima pasiekti paspaudus Alt + F11 .
• Arba galite dešiniuoju pelės klavišu spustelėkite lapą ir pasirinkite Peržiūrėti kodą iš iššokančio meniu.
• Po to pasirinkite Modulis iš Įdėkite išskleidžiamąjį meniu.
• Tada nukopijuokite ir įklijuokite šį VBA kodą.

VBA kodas:

 Sub Remove_Filters_From_Workbook() Dim shtnam As Worksheet Dim lstObj As ListObject For Each shtnam In Worksheets For Each lstObj In shtnam.ListObjects lstObj.AutoFilter.ShowAllData Next lstObj Next shtnam End Sub 

• Galiausiai paleiskite kodą paspausdami F5 klaviatūra ir darbo lape pamatysite rezultatą.

• Šis VBA kodas išvalys visus filtrus iš visos darbo knygos, kaip parodyta pirmasis metodas .

VBA kodo paaiškinimas

 For Each shtnam In Worksheets For Each lstObj In shtnam.ListObjects lstObj.AutoFilter.ShowAllData Next lstObj Next shtnam 

Pirmoji kilpa skirta kilpai per visas darbo knygos lenteles. Antroji kilpa skirta kilpai per visas darbalapio lenteles. Tuomet eilutėje, esančioje kilpos viduje, tiesiog išvalomas filtras iš lentelės. Po to ciklas uždaromas dviem paskutinėmis eilutėmis.

Skaityti daugiau: "Excel" filtro trumpinys (3 greiti naudojimo būdai su pavyzdžiais)

Išvada

Šie metodai padės jums Filtro pašalinimas "Excel VBA" programoje . Tikimės, kad tai jums padės! Jei turite klausimų, pasiūlymų ar atsiliepimų, praneškite mums komentarų skiltyje. Arba galite peržvelgti kitus mūsų straipsnius ExcelWIKI.com tinklaraštis!