Hoe verbergt u rijen in Excel op basis van de kleur van een cel?
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 op de volgende schermafbeelding is weergegeven. Hoe kunt u deze taak snel en eenvoudig in Excel uitvoeren?
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, helpt de volgende VBA-code u daarbij. Volg deze stappen:
1. Houd de toetsen ALT + F11 ingedrukt om het venster Microsoft Visual Basic for Applications te openen.
2. Klik op Invoegen > Module en 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 Sub3. Druk vervolgens op de toets F5 om deze code uit te voeren. Er verschijnt een dialoogvenster waarin u wordt gevraagd de cellen te selecteren die u wilt gebruiken; zie schermafbeelding:
4. Klik daarna op de knop OK; alle rijen met lichtblauwe cellen worden dan tegelijkertijd verborgen. Zie schermafbeelding:
Opmerkingen:
1. In de bovenstaande code is het getal 20 binnen dit script If xRg.Range(„A" & I).Interior.ColorIndex = 20 Then het kleurcode-nummer. U kunt dit naar wens aanpassen.
2. Weet u het kleurcodenummer niet zeker? Gebruik dan de volgende code om de gewenste kleurcode op te vragen:
Function GetColor(r As Range) As Integer
GetColor = r.Interior.ColorIndex
End Function
Voer vervolgens de formule in:=GetColor(A2) om het specifieke kleurcodenummer van de achtergrondkleur in cel A2 op te halen. U kunt A2 naar behoefte vervangen door een andere cel.
Rijen verbergen op basis van celkleur met Kutools voor Excel
Als u Kutools voor Excel hebt, kunt u met de functie Selecteer cellen met een vergelijkbaar formaat eerst de specifiek gekleurde cellen selecteren en deze daarna in één keer verbergen.
Na installatie van Kutools voor Excel, gaat u als volgt te werk:
1. Klik op Kutools > Selecteren > Selecteer cellen met een vergelijkbaar formaat; zie schermafbeelding:
2. Voer in het dialoogvenster Selecteer cellen met een vergelijkbaar formaat de volgende handelingen uit:
(1.) Klik op de knop 
om de Gegevensbereik te selecteren die u wilt gebruiken;
(2.) Klik vervolgens op de knop Selecteer formaat vanaf celom de specifieke gekleurde cel te selecteren waarop u rijen wilt verbergen;
(3.) Alle kenmerken van de specifieke cel worden weergegeven in het lijstvak. Schakel daarom alleen Achtergrondkleur in onder het gedeelte Opvulling.
3. Klik daarna op de knop Ok. Alle cellen met de specifieke kleur worden dan tegelijkertijd geselecteerd. Klik vervolgens op Start > Opmaak > Verbergen en tonen > Rijen verbergen; zie schermafbeelding:
4. De geselecteerde cellen met de specifieke kleur zijn nu verborgen; zie de schermafbeelding:
Kutools voor Excel– Geef Excel een boost met meer dan 300 essentiële hulpmiddelen, waardoor uw werk sneller en eenvoudiger verloopt, en profiteer van AI-functies voor slimmere gegevensverwerking en productiviteit.Nu verkrijgen
Demo: Rijen verbergen op basis van celkleur met Kutools voor Excel
Beste Office-productiviteitshulpmiddelen
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie zoals nooit tevoren.Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en Tijd besparen.Klik hier om de functie te krijgen die u het meest nodig heeft...
Office Tab brengt een tabbladinterface naar Office en maakt uw werk veel eenvoudiger
- Schakel tabbladbewerking en -lezen in voor Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten aan in nieuwe tabbladen binnen hetzelfde venster, in plaats van in afzonderlijke vensters.
- Verhoogt uw productiviteit met 50 % en bespaart u dagelijks honderden muisklikken!
Alle Kutools-add-ins in één installatieprogramma.
Kutools for Office bundelt add-ins voor Excel, Word, Outlook en PowerPoint, plus Office Tab Pro—ideaal voor teams die met meerdere Office-apps werken.
- Alles-in-één suite— add-ins voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro
- Één installatieprogramma, één licentie— binnen enkele minuten klaar (MSI-geschikt)
- Werkt beter samen— gestroomlijnde productiviteit in alle Office-apps
- 30 dagen volledig functionele proefversie— geen registratie, geen creditcard
- Beste prijs-kwaliteitverhouding— bespaar ten opzichte van het afzonderlijk kopen van add-ins