Note: The other languages of the website are Google-translated. Back to English
Inloggen  \/ 
x
or
x
Registreer  \/ 
x

or

Hoe rijen te verbergen op basis van celkleur in Excel?

doc rijen op kleur verbergen 1

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:

doc rijen op kleur verbergen 2

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

doc rijen op kleur verbergen 1

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.

Kutools for Excel : met meer dan 300 handige Excel-invoegtoepassingen, gratis te proberen zonder beperking in 30 dagen. 

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 doc rijen op kleur verbergen 5knop 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.

doc rijen op kleur verbergen 4

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:

doc rijen op kleur verbergen 6

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

doc rijen op kleur verbergen 7

Klik op Kutools nu gratis downloaden voor Excel!


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

Kutools for Excel: met meer dan 300 handige Excel-invoegtoepassingen, gratis te proberen zonder beperking in 30 dagen. Download en probeer nu gratis!

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.
kte tabblad 201905

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!
officetab onderkant
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Brice · 2 years ago
    Is it possible to use the code with conditional formatting? I tried the code but it only worked on standardly colored cells, not on those which got the color from a conditional formatting.
    In my case, the rows should be hidden when the cell in column C is gray (colorindex = 15). But the row should be shown again, when the cell changes color to white again. Is this possible?
    Thanks!
  • To post as a guest, your comment is unpublished.
    Nikki · 3 years ago
    Thank you!!! I came across the macro you wrote above and had 1000s of rows to hide based on one color... your macro and directions worked wonderfully! I appreciate your help!