Při práci s Microsoft Excel , filtrování dat nám umožňuje zobrazit pouze ty informace, které chceme. Kdykoli se chceme soustředit na určité prvky v rozsáhlém souboru dat nebo v tabulkách, přijde nám tato technika vhod. Když je práce hotová, potřebujeme tyto údaje vrátit zpět do naší tabulky. i když. Excel má již vestavěný nástroj pro tento účel. Ale VBA je nejefektivnější, časově nejúspornější a nejbezpečnější způsob provádění jakýchkoli úloh v aplikaci Excel. V tomto článku uvedeme několik příkladů odstranění filtru v aplikaci Excel VBA.

Stáhnout cvičebnici

Můžete si stáhnout pracovní sešit a procvičovat s nimi.

5 jednoduchých metod pro odstranění filtru v aplikaci Excel VBA

Excel má vestavěné nástroje a funkce pro odstranění filtrů z dat. Ale s Excel VBA můžeme tyto filtry rychle odstranit pouhým spuštěním příkazu VBA Pro odstranění filtrů z dat použijeme následující datový soubor. Datový soubor obsahuje ve sloupci ID některých produktů. B , názvy produktů ve sloupci C a zemi dodání ve sloupci D . Protože chceme vidět pouze podrobnosti o produktu. Šampon a Kondicionér , takže jsme je vyfiltrovali. Nyní předpokládejme, že potřebujeme tato vyfiltrovaná data vymazat. Použijeme k tomu nějaký Makra Excel VBA Ukažme si příklady, jak tyto filtry z dat vymazat pomocí Excel VBA .

1. Použití VBA k odstranění všech filtrů z tabulky aplikace Excel

S Excel VBA , mohou uživatelé snadno používat kód, který se chová jako nabídky Excelu z pásu karet. Chcete-li použít kód VBA kód pro odstranění všech filtrů z tabulky Excelu, postupujme podle následujících kroků.

KROKY:

• Nejprve přejděte na Vývojář z pásu karet.
• Za druhé, z Kód klikněte na Visual Basic otevřít Editor jazyka Visual Basic . Nebo stiskněte Alt + F11 otevřít Editor jazyka Visual Basic .

• Místo toho můžete na pracovní list kliknout pravým tlačítkem myši a přejít na položku Zobrazit kód . Tím se také dostanete na Editor jazyka Visual Basic .

• Zobrazí se v Editor jazyka Visual Basic kde napíšeme kódy pro vytvoření tabulky z rozsahu.
• Za třetí klikněte na Modul z Vložte v rozevírací nabídce.

• Tím se vytvoří Modul v sešitě.
• A zkopírujte a vložte VBA níže uvedený kód.

Kód VBA:

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

• Poté spusťte kód kliknutím na tlačítko RubSub nebo stisknutím klávesové zkratky F5 .

• A nakonec po provedení těchto kroků odstraníte všechny filtry z tabulky Excel na pracovním listu.

Vysvětlení kódu VBA

 Sub Remove_Filters1() 

Sub je část kódu, která slouží ke zpracování práce v kódu, ale nebude vracet žádnou hodnotu. Je také známá jako podprocedura. Naši proceduru tedy pojmenujeme Remove_Filters1() .

 Dim lstObj As ListObject 

Deklarace proměnné.

 Set lstObj = List1.ListObjects(1) 

VBA Set nám jednoduše umožňuje vyhnout se tomu, abychom při spouštění kódu museli znovu a znovu zadávat rozsah, který potřebujeme vybrat. Nastavíme tedy odkaz na první tabulku na listu.

 lstObj.AutoFilter.ShowAllData 

Tento řádek kódu odstraní všechny filtry pro celá data.

 End Sub 

Tím se postup ukončí.

Přečtěte si více: Jak odstranit filtr v aplikaci Excel (5 snadných & amp; Rychlé způsoby)

2. Vymazání všech filtrů tabulky aplikace Excel na listu pomocí VBA

Podívejme se na další příklad využití nástroje Excel VBA k odstranění všech filtrů tabulky Excel na listu. Za tímto účelem postupujte podle níže uvedených kroků.

KROKY:

• Nejprve přejděte do Rozvíjejte r na pásu karet.
• Za druhé klikněte na Visual Basic otevřít Editor jazyka Visual Basic .
• Další způsob, jak otevřít Editor jazyka Visual Basic je jednoduše stisknout Alt + F11 .
• Nebo klikněte pravým tlačítkem myši na list a vyberte možnost Zobrazit kód .
• Dále přejděte na Vložte a vyberte Modul z rozevírací nabídky.
• Tím se otevře okno Visual Basic.
• Poté zkopírujte a vložte Kód VBA níže.

Kód VBA:

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

• Dále stiskněte tlačítko Klávesa F5 nebo klikněte na Run Sub spustit kód.

• Tento kód vymaže všechny filtry tabulky Excel z vašeho listu a poskytne výstup jako Metoda 1 .

Vysvětlení kódu VBA

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

Tyto řádky kódu projdou všechny tabulky na listu a odstraní všechny filtry pro celý list.

Přečtěte si více: Jak filtrovat tabulku Excel Pivot (8 efektivních způsobů)

3. Odstranění filtru ze sloupce pomocí VBA v aplikaci Excel

Podívejme se na další způsob vymazání filtru ze sloupce pomocí Excelu VBA. Podívejme se na postup, jak na to.

KROKY:

• Chcete-li začít, klikněte na Vývojář na pásu karet.
• Za druhé, spusťte Editor jazyka Visual Basic kliknutím na Visual Basic .
• Případně můžete přistupovat k Editor jazyka Visual Basic stisknutím Alt + F11 .
• Nebo, klikněte pravým tlačítkem myši na na listu a vyberte možnost Zobrazit kód z nabídky.
• Dále vyberte Modul z rozevíracího seznamu v části Vložte .
• Zobrazí se okno Visual Basic.
• Napište tam kód.

Kód VBA:

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

• Nakonec stiskněte tlačítko Klávesa F5 ke spuštění kódu.

• Pomocí tohoto kódu odstraníte filtr ze sloupce v tabulce Excel.

Vysvětlení kódu VBA

 List1.Rozsah("B3:D16").Automatický filtr Pole:=4 

Tento řádek kódu zadává pouze číslo pole a žádné další parametry.

Přečtěte si více: Filtrování ve stejném sloupci pomocí více kritérií v aplikaci Excel VBA (6 příkladů)

Podobná čtení

• Excel VBA: Jak filtrovat pomocí více kritérií v poli (7 způsobů)
• Kód VBA pro filtrování dat podle data v aplikaci Excel (4 příklady)
• Jak používat filtr v chráněném listu aplikace Excel (ve snadných krocích)
• Filtrování různých sloupců podle více kritérií v aplikaci Excel VBA
• Kód VBA pro filtrování dat v aplikaci Excel (8 příkladů)

4. Vymazání všech filtrů v aktivním pracovním listu

Nyní se podívejte na další Excel VBA metoda pro vymazání všech filtrů z aktivního pracovního listu. Postupujme podle následujících kroků.

KROKY:

• Chcete-li začít, otevřete pás karet a vyberte možnost Vývojář možnost.
• Pak, pro přístup k Editor jazyka Visual Basic , klikněte na Visual Basic .
• Stisknutí Alt + F11 vyvolá také Editor jazyka Visual Basic .
• Případně, klikněte pravým tlačítkem myši na listu a vyberte možnost Zobrazit kód ze zobrazené nabídky.
• Nyní z Vložte v rozevíracím seznamu vyberte možnost Modul .
• Pak zkopírujte a vložte VBA kód, který následuje.

Kód VBA:

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

• Spusťte kód stisknutím tlačítka F5 klíč.

• A nakonec budete moci odstranit filtry z dat pomocí této funkce. VBA kód jako Metoda-1 .

Další informace: Jak filtrovat podle seznamu v jiném listu aplikace Excel (2 metody)

5. Odstranění všech filtrů ze sešitu pomocí nástroje Excel VBA

Prozkoumejme další r Excel VBA způsob, jak odstranit všechny filtry ze sešitu. Podívejme se tedy na jednotlivé kroky.

KROKY:

• Chcete-li začít, otevřete pás karet a vyberte Vývojář z rozevírací nabídky.
• Pak vyberte Visual Basic otevřít Editor jazyka Visual Basic .
• Na stránkách Editor jazyka Visual Basic lze také vyvolat stisknutím tlačítka Alt + F11 .
• Případně můžete klikněte pravým tlačítkem myši na listu a vyberte Zobrazit kód z rozbalovací nabídky.
• Poté vyberte Modul z Vložte rozevírací nabídka.
• Pak zkopírujte a vložte následující kód VBA.

Kód 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 

• Nakonec spusťte kód stisknutím tlačítka F5 na klávesnici a výsledek se zobrazí v pracovním listu.

• Tento VBA kód vymaže všechny filtry z celého sešitu, jak je znázorněno na obrázku první metoda .

Vysvětlení kódu VBA

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

První smyčka slouží k procházení všech tabulek v sešitě. Druhá smyčka slouží k procházení všech tabulek na listu. Řádek uvnitř smyčky pak pouze vymaže filtr z tabulky. Poté smyčku uzavřete posledními dvěma řádky.

Přečtěte si více: Zkratka pro filtr aplikace Excel (3 rychlá použití s příklady)

Závěr

Výše uvedené metody vám pomohou Odstranění filtru v aplikaci Excel VBA Doufám, že vám to pomůže! Pokud máte nějaké dotazy, návrhy nebo zpětnou vazbu, dejte nám vědět v sekci komentářů. Nebo se můžete podívat na naše další články v sekci ExcelWIKI.com blog!