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
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.
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 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 pagina.
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
Beste Office-productiviteitstools
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...
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!