Hoe rijen te verbergen op basis van celkleur in Excel?

In het Excel-werkblad heb ik een lijst met cellen die veel verschillende kleuren hebben, nu moet ik alle lichtblauw gekleurde rijen verbergen zoals in het volgende screenshot, hoe zou je deze taak snel en gemakkelijk in Excel kunnen aanpakken?

Verberg rijen op basis van celkleur met VBA-code

Verberg rijen op basis van celkleur met Kutools voor Excel

Verberg rijen op basis van celkleur met VBA-code

Om rijen te verbergen op basis van een specifieke achtergrondkleur, kan de volgende VBA-code u helpen, doe dit als volgt:

1. Houd de ALT + F11 toetsen, dan opent het de Microsoft Visual Basic voor toepassingen venster.

2. Klikken Invoegen > Moduleen plak de volgende code in het Module Venster.

VBA-code: rijen verbergen op basis van celkleur:

Sub Hidebycolor()
'Updateby Extendoffice
    Dim xRg As Range
    Dim xTxt As String
    Dim xCell As Range
    Dim I As Long
    On Error Resume Next
    If ActiveWindow.RangeSelection.Count > 1 Then
      xTxt = ActiveWindow.RangeSelection.Columns(1).AddressLocal
    Else
      xTxt = ActiveSheet.UsedRange.Columns(1).AddressLocal
    End If
LInput:
    Set xRg = Application.InputBox("Range:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    If xRg.Areas.Count > 1 Then
        MsgBox "does not support multiple selections", vbInformation, "Kutools for Excel"
        GoTo LInput
    End If
    If xRg.Columns.Count > 1 Then
        MsgBox "the selection is not more than 1 column", vbInformation, "Kutools for Excel"
        GoTo LInput
    End If
    On Error Resume Next
    Application.ScreenUpdating = False
    For I = 1 To xRg.Count
        If xRg.Range("A" & I).Interior.ColorIndex = 20 Then
            xRg.Range("A" & I).EntireRow.Hidden = True
        End If
    Next 'i
    Application.ScreenUpdating = True
End Sub

3. Druk vervolgens op F5 sleutel om deze code uit te voeren, en er verschijnt een promptvenster om u eraan te herinneren de cellen te selecteren die u wilt gebruiken, zie screenshot:

4. En klik vervolgens op OK knop, zijn alle lichtblauw gekleurde cellen tegelijk verborgen, zie screenshot:

Opmerkingen:

1. In de bovenstaande code staat het nummer 20 binnen dit script Als xRg.Range ("A" & I) .Interior.ColorIndex = 20 Dan is het kleurindexnummer, u kunt dit naar behoefte wijzigen.

2. Als u het kleurindexnummer niet zeker weet, moet u de volgende code toepassen om de kleurindex te krijgen die u wilt weten:

Function GetColor(r As Range) As Integer
GetColor = r.Interior.ColorIndex
End Function

En voer vervolgens de formule in: = GetColor (A2) om het specifieke kleurindexnummer van de achtergrond in cel A2 te retourneren, verander je A2 naar andere als je nodig hebt.

Verberg rijen op basis van celkleur met Kutools voor Excel

Als je Kutools for Excel, Met Selecteer Cellen met indeling hulpprogramma, kunt u de specifieke gekleurde cellen eerst selecteren en ze vervolgens in één keer verbergen.

Na het installeren van Kutools for Excelgaat u als volgt te werk:

1. Klikken Kutools > kies > Selecteer Cellen met indeling, zie screenshot:

2. In de Selecteer Cellen met indeling dialoogvenster, voert u de onderstaande bewerkingen uit:

(1.) Klik knop om het gegevensbereik te selecteren dat u wilt gebruiken;

(2.) Klik vervolgens Kies Opmaak vanuit cel knop om de specifieke gekleurde cel te selecteren waarop u rijen wilt verbergen op basis van;

(3.) Alle attributen van de specifieke cel zijn vermeld in de keuzelijst, controleer dit alstublieft Achtergrond kleur onder de Vulling sectie.

3. Dan klikken Ok knop, zijn alle cellen met de specifieke kleur in één keer geselecteerd en klik vervolgens op Home > Formaat > Verbergen en zichtbaar maken > Rijen verbergen, zie screenshot:

4. En dan zijn de geselecteerde cellen met de specifieke kleur verborgen, zie screenshot:

Klik op Kutools nu gratis downloaden voor Excel!

Demo: verberg rijen op basis van celkleur met Kutools voor Excel

De beste tools voor kantoorproductiviteit

Kutools voor Excel lost de meeste van uw problemen op en verhoogt uw productiviteit met 80%

• visfuik: Snel invoegen complexe formules, grafieken en alles wat je eerder hebt gebruikt; Versleutel cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
• Super Formula-balk (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken in gefilterd bereik...
• Voeg cellen / rijen / kolommen samen zonder gegevens te verliezen; Gespleten cellen inhoud; Combineer dubbele rijen / kolommen... Voorkom dubbele cellen; Vergelijk Ranges...
• Selecteer Dupliceren of Uniek Rijen; Selecteer lege rijen (alle cellen zijn leeg); Super zoeken en fuzzy zoeken in veel werkboeken; Willekeurige selectie ...
• Exacte kopie Meerdere cellen zonder de formuleverwijzing te wijzigen; Maak automatisch verwijzingen naar meerdere bladen; Plaats kogels, Selectievakjes en meer ...
• Extraheer tekst, Tekst toevoegen, Verwijderen op positie, Ruimte verwijderen; Paging-subtotalen maken en afdrukken; Converteren tussen celinhoud en opmerkingen...
• Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerd sorteren per maand / week / dag, frequentie en meer; Speciaal filter door vet, cursief ...
• Combineer werkmappen en werkbladen; Tabellen samenvoegen op basis van sleutelkolommen; Gegevens splitsen in meerdere bladen; Batch Converteer xls, xlsx en PDF...
• Meer dan 300 krachtige functies. Ondersteunt Office / Excel 2007-2019 en 365. Ondersteunt alle talen. Eenvoudig te implementeren in uw onderneming of organisatie. Gratis proefperiode van 30 dagen met volledige functies. 60 dagen geld-terug-garantie.

Lees verder... Gratis download... Aankoop... 

---

Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker

• Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
• Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
• Verhoogt uw productiviteit met 50% en vermindert elke dag honderden muisklikken voor u!

Lees verder... Gratis download... Aankoop...