Hoe rijen op basis van celkleur in Excel te verbergen?

In een Excel-werkblad heb ik een lijst met cellen die veel verschillende kleuren hebben. Nu moet ik alle rijen met lichtblauwe kleur verbergen, zoals in de volgende schermafbeelding te zien is. Hoe kun je deze taak in Excel snel en gemakkelijk afhandelen?

Rijen verbergen op basis van celkleur met VBA-code

Rijen verbergen op basis van celkleur met Kutools voor Excel

Rijen verbergen op basis van celkleur met VBA-code

Om rijen te verbergen op basis van een specifieke achtergrondkleur, kan de volgende VBA-code u helpen. Volg deze stappen:

1. Houd de toetsen ALT + F11 ingedrukt, waarna het venster Microsoft Visual Basic for Applications wordt geopend.

2. Klik op Invoegen > Module en plak de volgende code in het modulevenster.

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 de F5-toets om deze code uit te voeren. Er verschijnt een pop-upvenster dat u eraan herinnert de cellen te selecteren die u wilt gebruiken, zie onderstaande schermafbeelding:

4. Klik vervolgens op de knop OK. Alle cellen met lichtblauwe kleur worden onmiddellijk verborgen, zie onderstaande schermafbeelding:

Opmerkingen:

1. In bovenstaande code is het getal 20 binnen dit script If xRg.Range("A" & I).Interior.ColorIndex = 20 Then het kleurindexnummer. U kunt dit naar wens wijzigen.

2. Als u het kleurindexnummer niet zeker weet, kunt u de volgende code gebruiken om het gewenste kleurindexnummer te achterhalen:

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

Voer vervolgens de formule in: =GetColor(A2) om het specifieke kleurindexnummer van de achtergrond in cel A2 te retourneren. U kunt A2 naar andere cellen wijzigen indien nodig.

Rijen verbergen op basis van celkleur met Kutools voor Excel

Als u Kutools voor Excel heeft, kunt u met de functie Selecteer cellen met formaat eerst de specifiek gekleurde cellen selecteren en deze vervolgens tegelijkertijd verbergen.

Nadat u Kutools voor Excel hebt geïnstalleerd, volgt u de volgende stappen:

1. Klik op Kutools > Selecteren > Selecteer cellen met formaat, zie onderstaande schermafbeelding:

2. Voer in het dialoogvenster Selecteer cellen met formaat de volgende handelingen uit:

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

(2.) Klik vervolgens op de knop Selecteer formaat vanaf cel om de specifiek gekleurde cel te selecteren waarop u de rijen wilt verbergen;

(3.) Alle kenmerken van de specifieke cel zijn in de lijstvak weergegeven. Vink alleen Achtergrondkleur aan onder de sectie Opvulling.

3. Klik vervolgens op de knop OK. Alle cellen met de specifieke kleur zijn onmiddellijk geselecteerd. Klik vervolgens op Start > Opmaak > Verbergen en Tonen > Rijen verbergen, zie onderstaande schermafbeelding:

4. De geselecteerde cellen met de specifieke kleur zijn nu verborgen, zie onderstaande schermafbeelding:

Demo: Rijen verbergen op basis van celkleur met Kutools voor Excel