Töötades koos Microsoft Excel , andmete filtreerimine võimaldab meil näha ainult seda teavet, mida me tahame. Kui me tahame keskenduda teatud elementidele suures andmestikus või tabelites, tuleb see tehnika kasuks. Kui töö on tehtud, vajame neid andmeid tagasi oma tabelisse. Kuigi Excel on selleks juba sisseehitatud tööriist. Kuid VBA on kõige tõhusam, aja kokkuhoidlikum ja turvalisem viis mis tahes ülesande täitmiseks Excelis. Selles artiklis näeme mõned näited filtri eemaldamiseks Excel VBAs.

Lae alla praktiline töövihik

Saate alla laadida töövihiku ja nendega harjutada.

5 lihtsat meetodit filtri eemaldamiseks Excel VBAs

Excelil on sisseehitatud vahendid ja funktsioonid, et eemaldada andmetest filtrid. Kuid koos Excel VBA saame need filtrid kiiresti eemaldada, käivitades lihtsalt programmi VBA kood. Andmetest filtrite eemaldamiseks kasutame järgmist andmekogumit. Andmekogum sisaldab veerus mõned toote ID-d. B , tootenimed veerus C ja tarnev riik veerus D Kuna me tahame näha ainult toote üksikasju. Šampoon ja Konditsioneer , nii et me filtreerisime neid. Nüüd oletame, et meil on vaja need filtreeritud andmed kustutada. Kasutame mõnda Exceli VBA makros selleks. Näitame näiteid nende filtrite kustutamiseks andmetest, kasutades selleks Excel VBA .

1. Rakendage VBA-d kõigi filtrite eemaldamiseks Exceli tabelist

Koos Excel VBA , saavad kasutajad hõlpsasti kasutada koodi, mis toimib exceli menüüdest paelast. Et kasutada VBA kood, et eemaldada kõik filtrid Exceli tabelist, järgime allapoole toodud samme.

SAMMUD:

• Esiteks, minge Arendaja vahekaart lindilt.
• Teiseks, alates Kood kategooria, klõpsake Visual Basic avada Visual Basic toimetaja . või vajutage Alt + F11 avada Visual Basic toimetaja .

• Selle asemel võite lihtsalt teha oma töölehel paremklõpsu ja minna valikusse Vaata koodi See viib teid ka Visual Basic toimetaja .

• See ilmub Visual Basic toimetaja kus me kirjutame oma koodid tabeli loomiseks vahemikust.
• Kolmandaks, klõpsake nuppu Moodul alates Sisesta rippmenüü riba.

• See loob Moodul teie töövihikus.
• Ja kopeeri ja kleebi VBA allpool esitatud kood.

VBA kood:

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

• Pärast seda käivitage kood, klõpsates nupule RubSub nuppu või vajutades klaviatuurikombinatsiooni F5 .

• Ja lõpuks, järgides samme, eemaldatakse kõik filtrid Exceli tabelist teie töölehel.

VBA koodi selgitus

 Sub Remove_Filters1() 

Sub on koodi osa, mida kasutatakse koodis tehtava töö käsitlemiseks, kuid mis ei tagasta mingit väärtust. Seda nimetatakse ka alaprotseduuriks. Seega nimetame meie protseduuri Remove_Filters1() .

 Dim lstObj As ListObject 

Muutuja deklareerimine.

 Set lstObj = Sheet1.ListObjects(1) 

VBA Set võimaldab meil lihtsalt vältida seda, et peame koodi käivitamisel üha uuesti ja uuesti sisestama vahemiku, mida peame valima. Seega, me seame viite esimesele tabelile lehel.

 lstObj.AutoFilter.ShowAllData 

See koodirida eemaldab kõik filtrid kogu andmestikust.

 End Sub 

See lõpetab protseduuri.

Loe edasi: Kuidas eemaldada filtrit Excelis (5 lihtsat & Kiire viisid)

2. Tühjendage kõik Exceli tabeli filtrid lehel VBA abil

Vaatame veel ühte näidet Exceli VBA kasutamise kohta, et eemaldada kõik Exceli tabeli filtrid lehel. Selleks järgige alljärgnevaid samme.

SAMMUD:

• Kõigepealt minge Develope r vahekaart lindilt.
• Teiseks, klõpsake Visual Basic avada Visual Basic toimetaja .
• Teine võimalus avada Visual Basic toimetaja on lihtsalt vajutada Alt + F11 .
• Või tehke lehel paremklõps, seejärel valige Vaata koodi .
• Järgmisena minge aadressile Sisesta ja valige Moodul rippmenüüst.
• Ja see avab visual basic akna.
• Pärast seda kopeeri ja kleebi VBA kood allpool.

VBA kood:

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

• Edasi vajutage F5 klahv või klõpsake Run Sub nuppu koodi käivitamiseks.

• Ja see kood kustutab kõik Exceli tabeli filtrid teie lehelt ja annab väljundi nagu Meetod 1 .

VBA koodi selgitus

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

Need koodiread läbivad kõik lehe tabelid ja eemaldavad kõik filtrid kogu töölehe kohta.

Loe edasi: Kuidas filtreerida Exceli Pivot tabelit (8 tõhusat viisi)

3. Filtri eemaldamine veerust VBAga Excelis

Heidame pilgu veel ühele viisile, kuidas Excel VBA abil veergu filtrit kustutada. Vaatame selle protseduuri.

SAMMUD:

• Alustamiseks klõpsake nuppu Arendaja vahekaart lindil.
• Teiseks, käivitage Visual Basic toimetaja klõpsates Visual Basic .
• Teise võimalusena saate juurdepääsu Visual Basic toimetaja vajutades Alt + F11 .
• Või, paremklikk lehel ja valige Vaata koodi menüüst.
• Seejärel valige Moodul all olevas rippmenüüst Sisesta .
• Ja ilmub visual basic aken.
• Kirjutage kood sinna.

VBA kood:

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

• Lõpuks vajutage F5 klahv koodi käivitamiseks.

• Selle koodi kasutamine eemaldab filtri Exceli tabeli veerust.

VBA koodi selgitus

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

See koodirida määrab ainult välja numbri ja mitte mingeid muid parameetreid.

Loe edasi: Excel VBA filtreerimiseks samas veerus mitme kriteeriumi järgi (6 näidet)

Sarnased lugemised

• Excel VBA: Kuidas filtreerida mitme kriteeriumi abil massiivi (7 võimalust)
• VBA-kood andmete filtreerimiseks kuupäeva järgi Excelis (4 näidet)
• Kuidas kasutada filtrit kaitstud Exceli lehel (lihtsate sammudega)
• Erinevate veergude filtreerimine mitme kriteeriumi järgi Excel VBAs
• VBA-kood andmete filtreerimiseks Excelis (8 näidet)

4. Tühjendage kõik aktiivse töölehe filtrid

Nüüd vaadake veel ühte Excel VBA meetodiga, et kustutada kõik filtrid aktiivsest töölehest. Järgime samme allapoole.

SAMMUD:

• Alustamiseks avage lint ja valige käsk Arendaja võimalus.
• Seejärel, et pääseda ligi Visual Basic toimetaja , kliki Visual Basic .
• Pressing Alt + F11 toob ka üles Visual Basic toimetaja .
• Teise võimalusena, paremklikk leht ja valige Vaata koodi ilmuvast menüüst.
• Nüüd, alates Sisesta rippmenüüst, valige Moodul .
• Seejärel kopeeri ja kleebi VBA järgnev kood.

VBA kood:

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

• Käivitage kood, vajutades F5 võti.

• Ja lõpuks saate oma andmetest filtreid eemaldada, kasutades seda VBA kood nagu Meetod-1 .

Loe edasi: Kuidas filtreerida Exceli teise lehe nimekirja järgi (2 meetodit)

5. Exceli VBA kõigi filtrite eemaldamiseks töövihikust

Uurime veel ühte r Excel VBA viis, kuidas eemaldada kõik filtrid töövihikust. Vaatame siis sammud alla.

SAMMUD:

• Alustamiseks avage lint ja valige Arendaja rippmenüüst.
• Seejärel valige Visual Basic avada Visual Basic toimetaja .
• The Visual Basic toimetaja saab samuti avada, vajutades nuppu Alt + F11 .
• Teise võimalusena võite paremklikk leht ja valige Vaata koodi hüpikmenüüst.
• Pärast seda valige Moodul alates Sisesta rippmenüü.
• Seejärel kopeeri ja kleebi järgmine VBA-kood.

VBA kood:

 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 

• Lõpuks käivitage kood, vajutades F5 klaviatuuril ja näete tulemust oma töölehel.

• See VBA kood kustutab kõik filtrid kogu teie töövihikust, nagu on näidatud dokumendis esimene meetod .

VBA koodi selgitus

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

Esimene silmus on kõikide töövihiku tabelite läbimiseks. Teine silmus on kõikide töölehe tabelite läbimiseks. Seejärel kustutab silmuse sees olev rida lihtsalt filtri tabelist. Pärast seda sulge silmus kahe viimase reaga.

Loe edasi: Exceli filtri otsetee (3 kiiret kasutust koos näidetega)

Kokkuvõte

Ülaltoodud meetodid aitavad teil Filtri eemaldamine Excel VBAs Loodan, et see aitab teid! Kui teil on küsimusi, ettepanekuid või tagasisidet, siis andke meile sellest teada kommentaaride sektsioonis. Või võite heita pilgu meie teistesse artiklitesse aadressil ExcelWIKI.com blogi!