Sådan skjules linjer via VBA, hvis en celle har et bestemt indhold
Vil du gerne skjule alle linjer med et bestemt indhold automatisk ved hjælp af en makro? Forestil dig, at du vil skjule alle linjer, hvis teksten "skjul" vises i en celle i den tilsvarende linje. Dette kan være et nyttigt program til oprydning af data. Tag et kig på den oprindelige situation i følgende tabel:
I denne tabel vil vi skjule alle rækker, der indeholder celler, der indeholder et nul. Brug følgende makro:
Skjul specifikke linjer ()
Dim celle som rækkevidde
For hver celle i ActiveSheet.UsedRange
Hvis Cell.Value = 0 og rækker (Cell.Row) .Hidden = False _
Derefter rækker (cell.Række) .Hidden = True
Næste celle
Afslut Sub
Hvis du starter makroen med, vil nogle linjer være helt skjult, som vist i følgende figur
I hver af disse linjer vises teksten "skjul" i en eller anden kolonne. Hvis du vil kontrollere et andet kriterium i stedet for dette indhold, skal du justere den tilsvarende sammenligning i makroen.
For at vise alle celler igen skal du trykke på tastekombinationen CTRL A og derefter vælge funktionen START - FORMAT - FADE OUT & FADE IN - SHOW LINES (Excel 2007 og Excel 2010) eller FORMAT LINE - FADE IN (Excel op til version 2003). Alternativt kan du bruge følgende makro til at falme ind:
Vis alle sub
Cells.Rows.Hidden = Falsk
Afslut Sub
Hvis du vil indtaste en af makroerne, skal du trykke på tastekombinationen ALT F11 i Excel. Dette åbner VBA -editoren. Brug kommandoen INSERT - MODULE til at indsætte et tomt modulark. For at starte en af makroerne skal du trykke på tastekombinationen ALT F8 i Excel.
