Excel - Skryť riadky s nulovou hodnotou vo viacerých listoch
Problém
Pomôžte mi pri vytváraní makra v hárku programu Excel, ktorý:
Môžem skryť celé riadky, ak hodnota bunky alebo (rozsah hodnôt) má nulovú hodnotu vo viacerých listoch ??? Mám na mysli napríklad buď keď otvorím súbor, alebo keď kliknem na ovládací prvok pre spustenie makra.
Môj prípad je:
Mám jeden Excel súbor, ktorý má 32 listov pre každého personálu, a každý list má tabuľku 3 stĺpcov
(A, B, C) a 26 riadkov (1-26). Stĺpec A pre text Stĺpec B pre text tiež stĺpec C pre hodnoty
moja požiadavka je skryť / Odkryť celý riadok / s v závislosti od hodnoty v stĺpci C a pre každý hárok 32 buď stlačením príkazu alebo zmenou hodnôt alebo čohokoľvek iného.
Riešenie
cieľ:
Pre filtrovanie / skrytie riadkov na všetkých hárkoch pre danú hodnotu.
predpoklady:
1. Umiestnenie stĺpca je rovnaké na každom hárku
3. Filter musí byť aplikovaný na všetky listy
3. Listy nie sú skryté
4. Všetky listy majú aspoň jednu bunku naplnenú
KROKY
1. Prečítajte si predpoklady
2. Vytvorte záložnú kópiu
3. Stlačte ALT + F11 a vložte nový modul
4. Vložte kód a spustite ho
CODE:
Sub HideRows () Dim list ako objekt Dim filterFor ako Variant Dim iFilterCol Ako Integer iFilterCol = 3 'platí filter na 3 col filterFor = InputBox ("Zadajte hodnotu, ktorá sa má odfiltrovať", "Filter out") Pre každý list v hárku listov Vyberte, či ActiveSheet.AutoFilterMode potom Cells.Select Výber.AutoFilter Koniec Ak Cells.Select Ak ActiveSheet.AutoFilterMode = False Potom Selection.AutoFilter Koniec Ak Selection.AutoFilter Pole: = iFilterCol, Kritériá1: = "" & filterFor, Operátor: = xlAndFilterForter: Next End Sub
Poznámka
Vďaka rizvisa1 za tento tip na fóre.