Jak skrýt řádky prostřednictvím VBA, pokud má buňka určitý obsah
Chcete pomocí makra automaticky skrýt všechny řádky s určitým obsahem? Představte si, že chcete skrýt všechny řádky, pokud se text „skrýt“ objeví v jakékoli buňce na odpovídajícím řádku. To může být užitečná aplikace pro čištění dat. Podívejte se na počáteční situaci v následující tabulce:
V této tabulce chceme skrýt všechny řádky, které obsahují buňky obsahující nulu. Použijte následující makro:
Skrýt konkrétní řádky ()
Dim Cell jako rozsah
Pro každou buňku v ActiveSheet.UsedRange
If Cell.Value = 0 And Rows (Cell.Row) .Hidden = False _
Potom Rows (cell.Row) .Hidden = True
Další buňka
End Sub
Pokud spustíte makro pomocí, budou některé řádky zcela skryté, jak ukazuje následující obrázek
V každém z těchto řádků se v nějakém sloupci objeví text „skrýt“. Chcete -li místo tohoto obsahu zaškrtnout jiné kritérium, upravte odpovídající srovnání v makru.
Chcete -li znovu zobrazit všechny buňky, stiskněte kombinaci kláves CTRL A a poté vyberte funkci START - FORMÁT - FADE OUT & FADE IN - SHOW LINES (Excel 2007 a Excel 2010) nebo FORMAT LINE - FADE IN (Excel až do verze 2003). K zeslabení můžete také použít následující makro:
Zobrazit dílčí vše
Cells.Rows.Hidden = False
End Sub
Chcete -li zadat jedno z maker, stiskněte v aplikaci Excel kombinaci kláves ALT F11. Tím se vyvolá editor VBA. Pomocí příkazu VLOŽIT - MODUL vložte prázdný list modulu. Chcete -li spustit jedno z maker, stiskněte kombinaci kláves ALT F8 v Excelu.