Hvordan skjule linjer via VBA hvis en celle har et bestemt innhold
Vil du automatisk skjule alle linjer med et bestemt innhold ved hjelp av en makro? Tenk deg at du vil skjule alle linjene hvis teksten "skjul" vises i en celle på den tilsvarende linjen. Dette kan være et nyttig program for å rydde opp i data. Ta en titt på utgangssituasjonen i tabellen nedenfor:
I denne tabellen vil vi skjule alle radene som inneholder celler som inneholder en null. Bruk følgende makro:
Skjul spesifikke linjer ()
Dim Cell As Range
For hver celle i ActiveSheet.UsedRange
Hvis Cell.Value = 0 og rader (Cell.Row) .Hidden = False _
Deretter Rader (cell.Row) .Hidden = True
Neste celle
Slutt Sub
Hvis du starter makroen med, vil noen linjer bli helt skjult, som vist i figuren nedenfor
I hver av disse linjene vises teksten "skjul" i en eller annen kolonne. Hvis du vil kontrollere et annet kriterium i stedet for dette innholdet, må du justere den tilsvarende sammenligningen i makroen.
For å vise alle cellene igjen, trykk på tastekombinasjonen CTRL A og velg deretter funksjonen START - FORMAT - FADE OUT & FADE IN - SHOW LINES (Excel 2007 og Excel 2010) eller FORMAT LINE - FADE IN (Excel opp til versjon 2003). Alternativt kan du bruke følgende makro til å falme inn:
Vis Sub All
Cells.Rows.Hidden = Falsk
Slutt Sub
Trykk på tastekombinasjonen ALT F11 i Excel for å angi en av makroene. Dette kaller opp VBA -redaktøren. Bruk kommandoen INSERT - MODULE for å sette inn et tomt modulark. Trykk på tastekombinasjonen ALT F8 i Excel for å starte en av makroene.
