Excel - Skrýt řádky s nulovou hodnotou ve více listech

Problém

Pomozte mi při tvorbě makra v Excelu, který:

Mohu skrýt celé řádky, pokud má hodnota buňky nebo (rozsah hodnot) nulovou hodnotu ve více listech ??? Mám na mysli například buď když jsem soubor otevřel, nebo když kliknu na ovládací prvek pro spuštění makra.

Můj případ je:

Mám jeden soubor Excel, který má 32 listů pro každý personál, a každý list má tabulku 3 sloupců

 (A, B, C) a 26 řádků (1-26). Sloupec A pro text Sloupec B pro text také sloupec C pro hodnoty

můj požadavek je skrýt / Odkrýt celý řádek / s v závislosti na hodnotě ve sloupci C a pro každý list 32 buď stisknutím příkazu nebo změnou hodnot nebo cokoliv.

Řešení

Objektivní:

Filtrovat / skrýt řádky na všech listech pro danou hodnotu.

Předpoklady:

1. Umístění sloupce je stejné na každém listu

3. Filtr musí být aplikován na všechny listy

3. Listy nejsou skryté

4. Všechny listy mají alespoň jednu buňku naplněnou

KROKY

1. Přečtěte si předpoklady

2. Vytvořte záložní kopii

3. Stiskněte ALT + F11 a vložte nový modul

4. Vložte kód a spusťte jej

KÓD:

 Sub HideRows () Dim list jako objekt Dim filterFor jako Varianta Dim iFilterCol As Integer iFilterCol = 3 'použít filtr na 3 col filterFor = InputBox ("Zadejte hodnotu, která má být odfiltrována", "Filtrovat") Pro každý list v listu listů .Select Pokud ActiveSheet.AutoFilterMode pak Cells.Select Selection.AutoFilter End Pokud Cells.Select Pokud ActiveSheet.AutoFilterMode = False pak Selection.AutoFilter Konec Pokud Selection.AutoFilter pole: = iFilterCol, Kritéria1: = "" & filterFor, Operátor: = xlAnd. Další Konec Sub