Strādājot ar Microsoft Excel , datu filtrēšana ļauj mums redzēt tikai to informāciju, ko vēlamies. ikreiz, kad vēlamies koncentrēties uz konkrētiem elementiem lielā datu kopā vai tabulās, šis paņēmiens ir ļoti noderīgs. Kad darbs ir pabeigts, mums šie dati ir jāatgriež mūsu izklājlapā. lai gan. Excel jau ir iebūvēts šim nolūkam paredzēts rīks. Bet VBA ir visefektīvākais, laiku taupošākais un drošākais veids, kā veikt jebkuru uzdevumu programmā Excel. Šajā rakstā mēs sniegsim dažus piemērus, lai noņemtu filtru programmā Excel VBA.

Lejupielādēt Practice Workbook

Varat lejupielādēt darba burtnīcu un vingrināties ar tiem.

5 vienkāršas metodes, kā noņemt filtru programmā Excel VBA

Programmā Excel ir iebūvēti rīki un funkcijas, lai no datiem noņemtu filtrus. Bet ar Excel VBA mēs varam ātri noņemt šos filtrus, vienkārši palaižot VBA Lai noņemtu filtrus no datiem, mēs izmantosim šādu datu kopu. Datu kopa satur dažus produktu ID slejā. B , produktu nosaukumi slejā C , un piegādes valsts ailē D . Tā kā mēs vēlamies redzēt tikai sīkāku informāciju par produktu. Šampūns un Kondicionieris Tagad pieņemsim, ka mums ir nepieciešams izdzēst šos filtrētos datus. Mēs izmantosim kādu Excel VBA makroekrāni Parādīsim piemērus, kā šos filtrus no datiem notīrīt, izmantojot Excel VBA .

1. Pielietojiet VBA, lai no Excel tabulas noņemtu visus filtrus

Ar Excel VBA , lietotāji var viegli izmantot kodu, kas darbojas kā Excel izvēlnes no lentes. Lai izmantotu VBA kodu, lai no Excel tabulas noņemtu visus filtrus, izpildīsim tālāk norādītos soļus.

PASĀKUMI:

• Vispirms dodieties uz Izstrādātājs cilni no lentes.
• Otrkārt, no Kods kategorijas, noklikšķiniet uz Visual Basic lai atvērtu Visual Basic redaktors . Vai arī nospiediet Alt + F11 lai atvērtu Visual Basic redaktors .

• Tā vietā varat vienkārši ar peles labo pogu nospiest uz darblapas un doties uz Skatīt kodu . Tas jūs arī aizvedīs uz Visual Basic redaktors .

• Tas parādīsies Visual Basic redaktors kur mēs rakstām savus kodus, lai izveidotu tabulu no diapazona.
• Treškārt, noklikšķiniet uz Modulis no Ievietot nolaižamā izvēlnes josla.

• Tādējādi tiks izveidots Modulis savā darbgrāmatā.
• Un kopējiet un ielīmējiet VBA turpmāk parādītais kods.

VBA kods:

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

• Pēc tam palaidiet kodu, noklikšķinot uz RubSub vai nospiežot tastatūras saīsni F5 .

• Visbeidzot, izpildot šos soļus, no Excel tabulas darblapā noņemsiet visus filtrus.

VBA koda skaidrojums

 Apakšsadaļa Remove_Filters1() 

Sub ir koda daļa, kas tiek izmantota, lai apstrādātu kodu, bet neatgriež nekādu vērtību. Tā ir pazīstama arī kā apakšprocedūra. Tātad mēs nosaucam mūsu procedūru par Remove_Filters1() .

 Dim lstObj kā ListObject 

Mainīgā lieluma deklarācija.

 Set lstObj = Sheet1.ListObjects(1) 

VBA Set vienkārši ļauj mums izvairīties no tā, ka, izpildot kodu, mums atkal un atkal jāievada nepieciešamais diapazons. Tātad mēs iestatām atsauci uz pirmo tabulas lapu.

 lstObj.AutoFilter.ShowAllData 

Šī koda rinda noņems visus filtrus visiem datiem.

 End Sub 

Procedūra tiks pabeigta.

Lasīt vairāk: Kā noņemt filtru programmā Excel (5 Easy & amp; Ātri veidi)

2. Notīriet visus Excel tabulas filtrus lapā, izmantojot VBA

Aplūkosim vēl vienu piemēru, kā izmantot Excel VBA, lai noņemtu visus Excel tabulas filtrus lapā. Lai to izdarītu, izpildiet tālāk norādītās darbības.

PASĀKUMI:

• Vispirms dodieties uz Izstrādāt r cilni no lentes.
• Otrkārt, noklikšķiniet uz Visual Basic lai atvērtu Visual Basic redaktors .
• Vēl viens veids, kā atvērt Visual Basic redaktors ir vienkārši nospiest Alt + F11 .
• Vai arī noklikšķiniet uz lapas ar peles labo pogu, pēc tam atlasiet Skatīt kodu .
• Pēc tam dodieties uz Ievietot un izvēlieties Modulis no nolaižamajā izvēlnē.
• Tādējādi tiks atvērts Visual Basic logs.
• Pēc tam kopējiet un ielīmējiet VBA kods zemāk.

VBA kods:

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

• Tālāk nospiediet F5 taustiņš vai noklikšķiniet uz Run Sub pogu, lai palaistu kodu.

• Šis kods notīrīs visus Excel tabulas filtrus no jūsu lapas un sniegs šādu izvades rezultātu. 1. metode .

VBA koda skaidrojums

 For Each lstObj In Sheet2.ListObjects lstObj.AutoFilter.ShowAllData Nākamais lstObj 

Šīs koda rindas veido cilpu visās lapas tabulās un noņem visus filtrus no visas darblapas.

Lasīt vairāk: Kā filtrēt Excel Pivot tabulu (8 efektīvi veidi)

3. Filtra noņemšana no kolonnas ar VBA programmā Excel

Aplūkosim vēl vienu veidu, kā izdzēst filtru no kolonnas, izmantojot Excel VBA. Apskatīsim šī procesa procedūru.

PASĀKUMI:

• Lai sāktu, noklikšķiniet uz Izstrādātājs lentes cilne.
• Otrkārt, palaidiet Visual Basic redaktors noklikšķinot uz Visual Basic .
• Varat arī piekļūt Visual Basic redaktors nospiežot Alt + F11 .
• Vai, ar peles labo pogu noklikšķiniet uz uz lapas un izvēlieties Skatīt kodu no izvēlnes.
• Pēc tam izvēlieties Modulis no nolaižamajā lodziņā zem Ievietot .
• Parādīsies Visual Basic logs.
• Ierakstiet kodu tur.

VBA kods:

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

• Visbeidzot, nospiediet F5 taustiņš lai palaistu kodu.

• Izmantojot šo kodu, tiks noņemts filtrs no Excel tabulas kolonnas.

VBA koda skaidrojums

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

Šajā koda rindā ir norādīts tikai lauka numurs, bet nav norādīti citi parametri.

Lasīt vairāk: Excel VBA, lai filtrētu vienā slejā pēc vairākiem kritērijiem (6 piemēri)

Līdzīgi lasījumi

• Excel VBA: Kā filtrēt ar vairākiem kritērijiem masīvā (7 veidi)
• VBA kods datu filtrēšanai pēc datuma programmā Excel (4 piemēri)
• Kā lietot filtru aizsargātā Excel lapā (ar vienkāršiem soļiem)
• Dažādu kolonnu filtrēšana pēc vairākiem kritērijiem programmā Excel VBA
• VBA kods datu filtrēšanai programmā Excel (8 piemēri)

4. Dzēst visus filtrus aktīvajā darblapā

Tagad aplūkojiet vēl vienu Excel VBA metodi, lai notīrītu visus filtrus no aktīvas darblapas. Veiksim tālāk aprakstītos soļus.

PASĀKUMI:

• Lai sāktu, atveriet lenti un atlasiet Izstrādātājs iespēja.
• Pēc tam, lai piekļūtu Visual Basic redaktors , noklikšķiniet uz Visual Basic .
• Spiežot Alt + F11 tiks parādīts arī Visual Basic redaktors .
• Alternatīvi, ar peles labo pogu noklikšķiniet uz lapu un izvēlieties Skatīt kodu no parādītās izvēlnes.
• Tagad no Ievietot nolaižamo opciju, izvēlieties Modulis .
• Pēc tam kopējiet un ielīmējiet VBA kodu, kas seko.

VBA kods:

 Publiskā apakšsadaļa RemoveFilter() If ActiveSheet.FilterMode = True Then ActiveSheet.ShowAllData End If End Sub 

• Palaidiet kodu, nospiežot F5 atslēga.

• Visbeidzot, jūs varēsiet noņemt filtrus no saviem datiem, izmantojot šo VBA kodu, piemēram. 1. metode .

Lasīt vairāk: Kā filtrēt pēc saraksta citā Excel lapā (2 metodes)

5. Excel VBA, lai no darbgrāmatas noņemtu visus filtrus

Izpētīsim vēl vienu r Excel VBA veids, kā no darbgrāmatas noņemt visus filtrus. Apskatīsim soļus uz leju.

PASĀKUMI:

• Lai sāktu, atveriet lenti un izvēlieties Izstrādātājs no nolaižamajā izvēlnē.
• Pēc tam atlasiet Visual Basic lai atvērtu Visual Basic redaktors .
• Portāls Visual Basic redaktors var arī piekļūt, nospiežot Alt + F11 .
• Varat arī ar peles labo pogu noklikšķiniet uz lapu un izvēlieties Skatīt kodu no uznirstošās izvēlnes.
• Pēc tam atlasiet Modulis no Ievietot nolaižamajā izvēlnē.
• Pēc tam kopējiet un ielīmējiet šādu VBA kodu.

VBA kods:

 Sub Remove_Filters_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 

• Visbeidzot palaidiet kodu, nospiežot F5 uz tastatūras, un darba lapā redzēsiet rezultātu.

• Šis VBA kods dzēsīs visus filtrus no visas darbgrāmatas, kā parādīts pirmā metode .

VBA koda skaidrojums

 For Each shtnam In darblapās For Each lstObj In shtnam.ListObjects lstObj.AutoFilter.ShowAllData Next lstObj Next shtnam 

Pirmā cilpa ir paredzēta visu darbgrāmatas tabulu apskatei. Otrā cilpa ir paredzēta visu darblapas tabulu apskatei. Pēc tam cilpas iekšpusē esošā rinda tikai notīra filtru no tabulas. Pēc tam aizveriet cilpu ar pēdējām divām rindām.

Lasīt vairāk: Excel filtra saīsne (3 ātras izmantošanas veidi ar piemēriem)

Secinājums

Iepriekš minētās metodes palīdzēs jums Filtra noņemšana programmā Excel VBA . Ceru, ka tas jums palīdzēs! Ja jums ir kādi jautājumi, ieteikumi vai atsauksmes, lūdzu, dariet mums zināmu komentāru sadaļā. Vai arī varat ielūkoties citos mūsu rakstos sadaļā ExcelWIKI.com blogs!