Kako odstraniti filter v programu Excel VBA (5 preprostih metod)

Hugh West

18-10-2023 Makroji in Excel VBA
  • Deliti To
Hugh West

Med delom z Microsoft Excel , filtriranje podatkov nam omogoča, da vidimo le informacije, ki jih želimo. kadar se želimo osredotočiti na določene elemente v velikem naboru podatkov ali tabelah, nam ta tehnika pride prav. Ko je delo končano, moramo te podatke vrniti v preglednico. čeprav Excel ima že vgrajeno orodje za to. Toda VBA je najučinkovitejši, časovno najugodnejši in najvarnejši način za izvajanje vseh opravil v Excelu. V tem članku bomo nekaj primerov za odstranitev filtra v Excelu VBA.

Prenesi delovni zvezek za prakso

Prenesete lahko delovni zvezek in vadite z njimi.

VBA za odstranitev filtra Filter.xlsm

5 preprostih metod za odstranitev filtra v programu Excel VBA

Excel ima vgrajena orodja in funkcije za odstranjevanje filtrov iz podatkov. Excel VBA lahko te filtre hitro odstranimo, če zaženemo VBA Za odstranitev filtrov iz podatkov bomo uporabili naslednji nabor podatkov. Nabor podatkov vsebuje nekaj identifikatorjev izdelkov v stolpcu B , imena izdelkov v stolpcu C in državo dostave v stolpcu D . Ker želimo videti le podrobnosti o izdelku Šampon in . Balzam Zdaj pa predpostavimo, da moramo te filtrirane podatke izbrisati. Uporabili bomo nekaj Excelovi makri VBA za to. Prikažimo primere za brisanje teh filtrov iz podatkov z uporabo Excel VBA .

1. Uporabite VBA za odstranitev vseh filtrov iz Excelove tabele

S spletno stranjo Excel VBA , lahko uporabniki preprosto uporabijo kodo, ki deluje kot meniji Excel s traku. Če želite uporabiti VBA kodo za odstranitev vseh filtrov iz tabele Excel, sledimo naslednjim korakom.

KORAKI:

  • Najprej pojdite v Razvijalec z zavihka v traku.
  • Drugič, iz Koda kliknite na kategorijo Visual Basic da odprete Urejevalnik Visual Basic . Ali pa pritisnite Alt + F11 da odprete Urejevalnik Visual Basic .

  • Namesto tega lahko z desno tipko miške kliknete na delovni list in izberete Prikaži kodo To vas bo pripeljalo tudi do Urejevalnik Visual Basic .

  • To bo prikazano v Urejevalnik Visual Basic kjer zapišemo kode za ustvarjanje tabele iz območja.
  • Tretjič, kliknite na Modul iz Vstavite v spustnem meniju.

  • To bo ustvarilo Modul v delovnem zvezku.
  • Kopirajte in prilepite VBA spodaj prikazana koda.

Koda VBA: 

 Sub Remove_Filters1() Dim lstObj As ListObject Set lstObj = Sheet1.ListObjects(1) lstObj.AutoFilter.ShowAllData End Sub
  • Nato zaženite kodo s klikom na RubSub ali pritisnite bližnjico na tipkovnici F5 .

  • In končno, če boste sledili korakom, boste odstranili vse filtre iz tabele Excel v delovnem listu.

Razlaga kode VBA 

 Pod Odstrani_Filtre1()

Pod je del kode, ki se uporablja za obdelavo dela v kodi, vendar ne vrne nobene vrednosti. Znan je tudi kot podprocedura. Tako poimenujemo našo proceduro Odstrani_Filtre1() . 

 Dim lstObj kot ListObject

Deklaracija spremenljivke. 

 Set lstObj = List1.ListObjects(1)

Z nastavitvijo VBA Set se preprosto izognemo temu, da bi med izvajanjem kode vedno znova vnašali območje, ki ga moramo izbrati. Tako nastavimo referenco na prvo tabelo v listu. 

 lstObj.AutoFilter.ShowAllData

Ta vrstica kode bo odstranila vse filtre za vse podatke. 

 Končni podnaslov

S tem se postopek konča.

Preberite več: Kako odstraniti filter v Excelu (5 Easy & amp; Hitri načini)

2. Izbrišite vse filtre Excelove tabele na listu z uporabo VBA

Oglejmo si še en primer uporabe programa Excel VBA za odstranitev vseh filtrov tabele Excel na listu. Pri tem sledite spodnjim korakom.

KORAKI:

  • Najprej pojdite v Razvoj r v traku.
  • Drugič, kliknite na Visual Basic da odprete Urejevalnik Visual Basic .
  • Drug način za odprtje Urejevalnik Visual Basic je preprosto pritisniti Alt + F11 .
  • Ali pa z desno tipko miške kliknite list in izberite Prikaži kodo .
  • Nato pojdite v Vstavite in izberite Modul iz spustnega menija.
  • Odprlo se bo okno Visual Basic.
  • Nato kopirajte in prilepite Koda VBA spodaj.

Koda VBA: 

 Sub Remove_Filters2() Dim lstObj As ListObject For Each lstObj In Sheet2.ListObjects lstObj.AutoFilter.ShowAllData Next lstObj End Sub
  • Poleg tega pritisnite Tipka F5 ali kliknite na Run Sub za zagon kode.

  • In ta koda bo izbrisala vse filtre tabele Excel iz vašega lista in dala izhod, kot je Metoda 1 .

Razlaga kode VBA 

 Za vsak lstObj v List2.ListObjects lstObj.AutoFilter.ShowAllData Naslednji lstObj

Te vrstice kode naredijo zanko za vse tabele na listu in odstranijo vse filtre za celoten delovni list.

Preberite več: Kako filtrirati Excel Pivot tabelo (8 učinkovitih načinov)

3. Odstranjevanje filtra iz stolpca z VBA v Excelu

Oglejmo si še en način brisanja filtra iz stolpca s programom Excel VBA. Oglejmo si postopek za to.

KORAKI:

  • Če želite začeti, kliknite Razvijalec na traku.
  • Drugič, zaženite Urejevalnik Visual Basic s klikom na Visual Basic .
  • Lahko pa dostopate tudi do Urejevalnik Visual Basic s pritiskom na Alt + F11 .
  • Ali, z desnim klikom miške kliknite . na listu in izberite Prikaži kodo iz menija.
  • Nato izberite Modul iz spustnega okna pod Vstavite .
  • Pojavilo se bo okno Visual Basic.
  • Kodo zapišite tja.

Koda VBA: 

 Sub Remove_Filter3() Sheet1.Range("B3:D16").AutoFilter Field:=4 End Sub
  • Na koncu pritisnite Tipka F5 za zagon kode.

  • Z uporabo te kode odstranite filter iz stolpca v tabeli Excel.

Razlaga kode VBA 

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

Ta kodna vrstica določa samo številko polja in nobenih drugih parametrov.

Preberite več: Excel VBA za filtriranje v istem stolpcu po več kriterijih (6 primerov)

Podobna branja

  • Excel VBA: Kako filtrirati z več merili v polju (7 načinov)
  • Koda VBA za filtriranje podatkov po datumu v programu Excel (4 primeri)
  • Kako uporabiti filter v zaščitenem Excelovem listu (z enostavnimi koraki)
  • Filtriranje različnih stolpcev z več merili v Excelu VBA
  • Koda VBA za filtriranje podatkov v programu Excel (8 primerov)

4. Izbriši vse filtre v aktivnem delovnem listu

Oglejte si še eno Excel VBA za brisanje vseh filtrov iz aktivnega delovnega lista. Sledimo naslednjim korakom.

KORAKI:

  • Če želite začeti, odprite trak in izberite Razvijalec možnost.
  • Če želite dostopati do Urejevalnik Visual Basic , kliknite na Visual Basic .
  • Pritiskanje Alt + F11 prikliče tudi Urejevalnik Visual Basic .
  • Druga možnost, z desnim klikom miške kliknite . list in izberite Prikaži kodo v meniju, ki se prikaže.
  • Zdaj, od Vstavite spustno možnost, izberite Modul .
  • Nato kopirajte in prilepite VBA kodo, ki sledi.

Koda VBA: 

 Public Sub RemoveFilter() If ActiveSheet.FilterMode = True Then ActiveSheet.ShowAllData End If End Sub
  • Zaženite kodo tako, da pritisnete tipko F5 ključ.

  • Nazadnje boste lahko odstranili filtre iz podatkov z uporabo tega VBA kodo, kot je Metoda-1 .

Preberite več: Kako filtrirati po seznamu v drugem listu v Excelu (2 metodi)

5. Excel VBA za odstranitev vseh filtrov iz delovnega zvezka

Raziščimo še eno r Excel VBA način za odstranitev vseh filtrov iz delovnega zvezka. Oglejmo si korake navzdol.

KORAKI:

  • Če želite začeti, odprite trak in izberite Razvijalec iz spustnega menija.
  • Nato izberite Visual Basic da odprete Urejevalnik Visual Basic .
  • Spletna stran Urejevalnik Visual Basic lahko dostopate tudi tako, da pritisnete Alt + F11 .
  • Druga možnost je, da z desnim klikom miške kliknite . list in izberite Prikaži kodo iz priročnega menija.
  • Nato izberite Modul iz Vstavite spustni meni.
  • Nato kopirajte in prilepite naslednjo kodo VBA.

Koda VBA: 

 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
  • Na koncu zaženite kodo tako, da pritisnete F5 na tipkovnici in rezultat se prikaže v delovnem listu.

  • Na spletni strani . VBA koda bo izbrisala vse filtre iz celotnega delovnega zvezka, kot je prikazano v prva metoda .

Razlaga kode VBA 

 Za vsak shtnam v delovnih listih za vsak lstObj v shtnam.ListObjects lstObj.AutoFilter.ShowAllData Naslednji lstObj Naslednji shtnam

Prva zanka je namenjena pregledovanju vseh tabel v delovnem zvezku. Druga zanka je namenjena pregledovanju vseh tabel na delovnem listu. Nato vrstica znotraj zanke samo izbriše filter iz tabele. Nato zaprete zanko z zadnjima dvema vrsticama.

Preberite več: Bližnjica za Excelov filter (3 hitre uporabe s primeri)

Zaključek

Zgornje metode vam bodo pomagale pri Odstranjevanje filtra v Excelu VBA Če imate kakršnakoli vprašanja, predloge ali povratne informacije, nam to sporočite v razdelku za komentarje. Lahko pa si ogledate tudi naše druge članke v ExcelWIKI.com blog!

Prejšnja objava Kako dodati vrstice v Excelu s formulo (5 načinov)
Naslednja objava Kako razdeliti celico v dve vrstici v Excelu (3 načini)

Hugh West je zelo izkušen trener Excela in analitik z več kot 10-letnimi izkušnjami v industriji. Po izobrazbi je diplomirani računovodstvo in finance ter magisterij poslovne administracije. Hugh ima strast do poučevanja in je razvil edinstven pristop k poučevanju, ki ga je enostavno slediti in razumeti. Njegovo strokovno znanje o Excelu je pomagalo na tisoče študentom in strokovnjakom po vsem svetu, da so izboljšali svoje sposobnosti in se izkazali v karieri. Prek svojega bloga Hugh deli svoje znanje s svetom, ponuja brezplačne vadnice za Excel in spletno usposabljanje, ki posameznikom in podjetjem pomaga doseči njihov polni potencial.