Työskennellessään Microsoft Excel , tietojen suodattaminen antaa meille mahdollisuuden nähdä vain haluamamme tiedot. Aina kun haluamme keskittyä tiettyihin elementteihin suuressa tietokokonaisuudessa tai taulukoissa, tämä tekniikka on kätevä. Kun työ on tehty, tarvitsemme nämä tiedot takaisin taulukkolaskentaohjelmaamme. Vaikka Excel on jo sisäänrakennettu työkalu tätä varten. Mutta VBA on tehokkain, aikaa säästävin ja turvallisin tapa suorittaa mitä tahansa tehtävää Excelissä. Tässä artikkelissa on joitakin esimerkkejä suodattimen poistamisesta Excel VBA:ssa.

Lataa harjoituskirja

Voit ladata työkirjan ja harjoitella niiden avulla.

5 yksinkertaista menetelmää suodattimen poistamiseksi Excel VBA:ssa

Excelissä on sisäänrakennettuja työkaluja ja toimintoja suodattimien poistamiseksi tiedoista. Mutta kun Excel VBA voimme nopeasti poistaa nämä suodattimet vain suorittamalla komennon VBA koodia. Suodattimien poistamiseksi tiedoista käytämme seuraavaa tietokokonaisuutta. Tietokokonaisuus sisältää joitakin tuotetunnuksia sarakkeessa B , tuotenimet sarakkeessa C ja toimitusmaa sarakkeessa D Koska haluamme nähdä vain tuotteen yksityiskohdat. Shampoo ja Hoitoaine , joten suodatimme ne. Oletetaan nyt, että meidän on tyhjennettävä nämä suodatetut tiedot. Käytämme joitakin suodatettuja tietoja. Excel VBA -makrot Tätä varten. Näytetään esimerkkejä, joilla nämä suodattimet poistetaan tiedoista käyttämällä seuraavia keinoja Excel VBA .

1. Sovelletaan VBA:ta kaikkien suodattimien poistamiseksi Excel-taulukosta.

Osoitteessa Excel VBA , käyttäjät voivat helposti käyttää koodia, joka toimii excel-valikkoina nauhalta. Käyttääksesi koodia VBA koodi, jolla poistetaan kaikki suodattimet Excel-taulukosta, seuraa ohjeita.

ASKELEET:

• Mene ensin osoitteeseen Kehittäjä välilehti nauhasta.
• Toiseksi Koodi luokkaan, klikkaa Visual Basic avataksesi Visual Basic Editor . tai paina Alt + F11 avataksesi Visual Basic Editor .

• Sen sijaan voit napsauttaa hiiren kakkospainikkeella hiiren oikealla painikkeella laskentataulukkoa ja siirtyä kohtaan Näytä koodi Tämä vie sinut myös Visual Basic Editor .

• Tämä näkyy Visual Basic Editor jossa kirjoitamme koodit taulukon luomiseksi alueesta.
• Kolmanneksi, klikkaa Moduuli alkaen Lisää pudotusvalikkopalkki.

• Tämä luo Moduuli työkirjassasi.
• Kopioi ja liitä VBA alla oleva koodi.

VBA-koodi:

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

• Tämän jälkeen suorita koodi napsauttamalla painiketta RubSub painiketta tai painamalla pikanäppäintä F5 .

• Lopuksi vaiheiden noudattaminen poistaa kaikki suodattimet excel-taulukosta laskentataulukossasi.

VBA-koodin selitys

 Sub Remove_Filters1() 

Sub on koodin osa, jota käytetään koodissa olevan työn käsittelyyn, mutta joka ei palauta mitään arvoa. Se tunnetaan myös aliproseduurina. Nimeämme siis proseduurimme seuraavasti Remove_Filters1() .

 Dim lstObj As ListObject 

Muuttujien ilmoittaminen.

 Set lstObj = Sheet1.ListObjects(1) 

VBA Set -ohjelman avulla voimme yksinkertaisesti välttää sen, että meidän on kirjoitettava valitsemamme alue uudelleen ja uudelleen koodia suoritettaessa. Asetamme siis viittauksen arkin ensimmäiseen taulukkoon.

 lstObj.AutoFilter.ShowAllData 

Tämä koodirivi poistaa kaikki suodattimet koko datasta.

 End Sub 

Tämä lopettaa toimenpiteen.

Lue lisää: Suodattimen poistaminen Excelissä (5 helppoa & amp; Nopeat tavat)

2. Kaikkien Excel-taulukkosuodattimien tyhjentäminen arkilta VBA:n avulla

Tarkastellaan toista esimerkkiä Excel VBA:n käytöstä kaikkien Excel-taulukon suodattimien poistamiseksi arkilta. Seuraa tätä varten alla olevia ohjeita.

VAIHEET:

• Mene ensin osoitteeseen Develope r-välilehti nauhasta.
• Toiseksi, klikkaa Visual Basic avataksesi Visual Basic Editor .
• Toinen tapa avata Visual Basic Editor on yksinkertaisesti painaa Alt + F11 .
• Tai napsauta hiiren kakkospainikkeella arkkia ja valitse sitten Näytä koodi .
• Siirry seuraavaksi osoitteeseen Lisää ja valitse Moduuli avattavasta valikosta.
• Tämä avaa Visual Basic -ikkunan.
• Sen jälkeen kopioi ja liitä VBA-koodi alla.

VBA-koodi:

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

• Paina lisäksi F5-näppäin tai klikkaa Suorita Sub painiketta koodin suorittamiseksi.

• Ja tämä koodi poistaa kaikki Excel-taulukon suodattimet arkistostasi ja antaa tulosteen, kuten Menetelmä 1 .

VBA-koodin selitys

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

Nämä koodirivit käyvät läpi kaikki taulukot ja poistavat kaikki suodattimet koko työarkista.

Lue lisää: Excel Pivot-taulukon suodattaminen (8 tehokasta tapaa)

3. Suodattimen poistaminen sarakkeesta VBA:lla Excelissä

Tutustutaanpa toiseen tapaan poistaa suodatin sarakkeesta Excel VBA:lla. Katsotaanpa menettelytapa tähän.

ASKELEET:

• Aloita napsauttamalla Kehittäjä välilehti nauhassa.
• Toiseksi, käynnistä Visual Basic Editor klikkaamalla Visual Basic .
• Vaihtoehtoisesti voit käyttää Visual Basic Editor painamalla Alt + F11 .
• Tai, klikkaa hiiren oikealla arkin päällä ja valitse Näytä koodi valikosta.
• Valitse seuraavaksi Moduuli pudotusvalikosta kohdasta Lisää .
• Visual Basic -ikkuna tulee näkyviin.
• Kirjoita koodi sinne.

VBA-koodi:

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

• Paina lopuksi F5-näppäin koodin suorittamiseksi.

• Tämän koodin käyttäminen poistaa suodattimen Excel-taulukon sarakkeesta.

VBA-koodin selitys

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

Tällä koodirivillä määritetään vain kentän numero eikä muita parametreja.

Lue lisää: Excel VBA suodattaa samassa sarakkeessa useita kriteerejä (6 esimerkkiä)

Samanlaisia lukemia

• Excel VBA: Kuinka suodattaa useita kriteerejä Array-joukossa (7 tapaa)
• VBA-koodi tietojen suodattamiseksi päivämäärän mukaan Excelissä (4 esimerkkiä)
• Suodattimen käyttäminen suojatussa Excel-arkissa (helpoilla ohjeilla)
• Suodata eri sarake useilla kriteereillä Excel VBA: ssa
• VBA-koodi tietojen suodattamiseksi Excelissä (8 esimerkkiä)

4. Kaikkien suodattimien tyhjentäminen aktiivisessa laskentataulukossa

Katsokaa nyt toista Excel VBA menetelmällä voit tyhjentää kaikki suodattimet aktiivisesta laskentataulukosta. Seurataan ohjeita.

ASKELEET:

• Aloita avaamalla nauha ja valitsemalla valikosta Kehittäjä vaihtoehto.
• Sitten, jotta pääset käsiksi Visual Basic Editor , klikkaa Visual Basic .
• Painaminen Alt + F11 tuo esiin myös Visual Basic Editor .
• Vaihtoehtoisesti, klikkaa hiiren oikealla arkki ja valitse Näytä koodi avautuvasta valikosta.
• Nyt, alkaen Lisää pudotusvalikosta, valitse Moduuli .
• Kopioi ja liitä sitten VBA seuraava koodi.

VBA-koodi:

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

• Suorita koodi painamalla F5 avain.

• Ja lopuksi voit poistaa suodattimet tiedoistasi käyttämällä tätä komentoa. VBA koodi kuten Menetelmä-1 .

Lue lisää: Kuinka suodattaa luettelon mukaan toisessa Excel-arkissa (2 menetelmää)

5. Excel VBA kaikkien suodattimien poistamiseksi työkirjasta

Tutustutaanpa vielä yhteen r Excel VBA tapa poistaa kaikki suodattimet työkirjasta. Katsotaanpa siis vaiheet alaspäin.

ASKELEET:

• Aloita avaamalla nauha ja valitsemalla Kehittäjä avattavasta valikosta.
• Valitse sitten Visual Basic avataksesi Visual Basic Editor .
• The Visual Basic Editor pääsee myös painamalla Alt + F11 .
• Vaihtoehtoisesti voit klikkaa hiiren oikealla arkki ja valitse Näytä koodi ponnahdusvalikosta.
• Valitse sen jälkeen Moduuli alkaen Lisää pudotusvalikosta.
• Kopioi ja liitä sitten seuraava VBA-koodi.

VBA-koodi:

 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 lstObj Next shtnam End Sub 

• Lopuksi suorita koodi painamalla F5 näppäimistölläsi, ja näet tuloksen laskentataulukossasi.

• Tämä VBA koodi tyhjentää kaikki suodattimet koko työkirjastasi, kuten on esitetty ensimmäinen menetelmä .

VBA-koodin selitys

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

Ensimmäisessä silmukassa käydään läpi kaikki työkirjan taulukot. Toisessa silmukassa käydään läpi kaikki työarkin taulukot. Tämän jälkeen silmukan sisällä oleva rivi vain tyhjentää suodattimen taulukosta. Sulje silmukka sen jälkeen kahdella viimeisellä rivillä.

Lue lisää: Excel-suodattimen pikakuvake (3 nopeaa käyttöä esimerkkien kanssa)

Päätelmä

Edellä mainitut menetelmät auttavat sinua Poista suodatin Excel VBA:ssa Toivottavasti tämä auttaa sinua! Jos sinulla on kysyttävää, ehdotuksia tai palautetta, kerro meille kommenttiosioon. Tai voit vilkaista muita artikkeleitamme osoitteessa ExcelWIKI.com blogi!