Kako skriti vrstice glede na barvo celice v Excelu?

V Excelovem delovnem listu imam seznam celic z različnimi barvami. Zdaj moram skriti vse svetlo modre vrstice, kot je prikazano na spodnji sliki, kako bi se lahko hitro in enostavno spopadli s to nalogo v Excelu?

Skrij vrstice glede na barvo celice s kodo VBA

Skrij vrstice glede na barvo celice s programom Kutools za Excel

Skrij vrstice glede na barvo celice s kodo VBA

Če želite skriti vrstice glede na določeno barvo ozadja, vam bo morda v pomoč naslednja koda VBA, naredite naslednje:

1. Držite tipko ALT + F11 tipke, nato odpre Microsoft Visual Basic za aplikacije okno.

2. Kliknite Vstavi > Moduliin prilepite naslednjo kodo v Moduli Okno.

Koda VBA: Skrij vrstice glede na barvo celice:

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. Nato pritisnite F5 tipko za zagon te kode in pojavilo se bo pozivno polje, ki vas bo opomnilo, da izberete celice, ki jih želite uporabiti, glejte posnetek zaslona:

4. In nato kliknite OK gumba so naenkrat skrite vse svetlo modre celice, glej posnetek zaslona:

Opombe:

1. V zgornji kodi številka 20 v tem skriptu Če xRg.Range ("A" & I) .Interior.ColorIndex = 20 Nato je številka barvnega indeksa, ki jo lahko spremenite po potrebi.

2. Če niste prepričani v številko barvnega indeksa, uporabite naslednjo kodo, da dobite želeni barvni indeks:

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

In nato vnesite formulo: = GetColor (A2) če želite vrniti določeno številko barvnega indeksa ozadja v celici A2, spremenite A2 v druge, kot potrebujete.

Skrij vrstice glede na barvo celice s programom Kutools za Excel

Če imate Kutools za Excel, Z njegovim Izberite Celice z obliko Pripomoček lahko najprej izberete določene barvne celice in jih nato hkrati skrijete.

Po namestitvi Kutools za Excel, naredite naslednje:

1. Kliknite Kutools > Izberite > Izberite Celice z obliko, glej posnetek zaslona:

2. v Izberite Celice z obliko v pogovornem oknu izvedite spodnje postopke:

(1.) Kliknite gumb, da izberete obseg podatkov, ki ga želite uporabiti;

(2.) Nato kliknite Izberite Oblika iz celice gumb, da izberete določeno barvno celico, na podlagi katere želite skriti vrstice;

(3.) Vsi atributi določene celice so bili navedeni v seznamskem polju, samo preverite Barva ozadja pod Izpolnite oddelek.

3. Nato kliknite Ok gumba so naenkrat izbrane vse celice z določeno barvo in nato kliknite Domov > oblikovana > Skrij in razkrij > Skrij vrstice, glej posnetek zaslona:

4. Nato so izbrane celice z določeno barvo skrite, glejte posnetek zaslona:

Kliknite Prosti prenos Kutools za Excel zdaj!

Predstavitev: Skrij vrstice glede na barvo celice s programom Kutools za Excel