Ga naar hoofdinhoud

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 pagina.

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!

Beste Office-productiviteitstools

🤖 Kutools AI-assistent: Een revolutie teweegbrengen in de data-analyse op basis van: Intelligente uitvoering   |  Genereer code  |  Aangepaste formules maken  |  Analyseer gegevens en genereer grafieken  |  Roep Kutools-functies aan...
Populaire functies: Zoek, markeer of identificeer duplicaten   |  Verwijder lege rijen   |  Combineer kolommen of cellen zonder gegevens te verliezen   |   Ronde zonder formule ...
Super opzoeken: Meerdere criteria VLookup    VLookup met meerdere waarden  |   VOpzoeken over meerdere bladen   |   Fuzzy opzoeken ....
Geavanceerde vervolgkeuzelijst: Maak snel een vervolgkeuzelijst   |  Afhankelijke vervolgkeuzelijst   |  Multi-select vervolgkeuzelijst ....
Kolom Beheerder: Voeg een specifiek aantal kolommen toe  |  Kolommen verplaatsen  |  Schakel de zichtbaarheidsstatus van verborgen kolommen in  |  Vergelijk bereiken en kolommen ...
Uitgelichte functies: Raster focus   |  Ontwerpweergave   |   Grote formulebalk    Werkmap- en bladbeheer   |  resource Library (Auto-tekst)   |  Datumkiezer   |  Combineer werkbladen   |  Cellen coderen/decoderen    Stuur e-mails per lijst   |  Super filter   |   Speciaal filter (filter vet/cursief/doorhalen...) ...
Top 15 gereedschapsets12 Tekst Tools (toe te voegen tekst, Tekens verwijderen, ...)   |   50+ tabel Types (Gantt Chart, ...)   |   40+ Praktisch Formules (Bereken leeftijd op basis van verjaardag, ...)   |   19 Invoeging Tools (QR-code invoegen, Afbeelding invoegen vanaf pad, ...)   |   12 Camper ombouw Tools (Getallen naar woorden, Currency Conversion, ...)   |   7 Samenvoegen en splitsen Tools (Geavanceerd Combineer rijen, Gespleten cellen, ...)   |   ... en meer

Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen.  Klik hier om de functie te krijgen die u het meest nodig heeft...

Omschrijving


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 honderden muisklikken voor u elke dag!
Comments (2)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
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!
This comment was minimized by the moderator on the site
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!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations