Excel'de hücre rengine göre satırları nasıl gizlersiniz?

Excel çalışma sayfasında, birçok farklı renkte olan bir hücre listem var ve şimdi aşağıdaki ekran görüntüsünde gösterildiği gibi tüm açık mavi renkli satırları gizlemem gerekiyor. Bu görevi Excel'de hızlı ve kolay bir şekilde nasıl halledebilirsiniz?

VBA kodu ile hücre rengine göre satırları gizleme

Kutools for Excel ile hücre rengine göre satırları gizleme

VBA kodu ile hücre rengine göre satırları gizleme

Belirli bir arka plan rengine göre satırları gizlemek için aşağıdaki VBA kodu size yardımcı olabilir, lütfen şu adımları izleyin:

1. ALT + F11 tuşlarını basılı tutun, ardından Microsoft Visual Basic for Applications penceresi açılacaktır.

2. Ekle Insert > Modül'e tıklayın ve aşağıdaki kodu Modül Penceresine yapıştırın.

VBA kodu: Hücre rengine göre satırları gizleme:

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. Ardından bu kodu çalıştırmak için F5 tuşuna basın ve seçmek istediğiniz hücreleri hatırlatmak için bir uyarı kutusu açılır, aşağıdaki ekran görüntüsüne bakın:

4. Ve sonra Tamam butonuna tıklayın, tüm açık mavi renkli hücreler hemen gizlenecektir, aşağıdaki ekran görüntüsüne bakın:

Notlar:

1. Yukarıdaki kodda, If xRg.Range("A" & I).Interior.ColorIndex = 20 betiği içindeki 20 sayısı renk indeks numarasıdır, ihtiyacınıza göre değiştirebilirsiniz.

2. Renk indeks numarasından emin değilseniz, öğrenmek istediğiniz renk indeksini almak için aşağıdaki kodu uygulamalısınız:

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

Ve ardından =GetColor(A2) formülünü girerek A2 hücresindeki arka planın belirli renk indeks numarasını döndürün, A2'yi ihtiyaçlarınıza göre başkalarıyla değiştirebilirsiniz.

Kutools for Excel ile hücre rengine göre satırları gizleme

Kutools for Excel'iniz varsa, Select Cells with Format (Benzer formatta hücreleri seçin) aracıyla önce belirli renkteki hücreleri seçebilir ve ardından hepsini bir anda gizleyebilirsiniz.

Kutools for Excel'i yükledikten sonra, lütfen şu adımları izleyin:

1. Kutools > Seç > Benzer formatta hücreleri seç'e tıklayın, aşağıdaki ekran görüntüsüne bakın:

2. Benzer formatta hücreleri seç iletişim kutusunda, aşağıdaki işlemleri yapın:

(1.) Tıklayın butonuna basarak kullanmak istediğiniz veri aralığını seçin;

(2.) Ardından Belirli Formata Sahip Hücreyi Seç düğmesine tıklayarak gizlemek istediğiniz satırlara dayanarak belirli renkteki hücreyi seçin;

(3.) Belirli hücrenin tüm özellikleri liste kutusuna eklenmiştir, lütfen yalnızca Dolgu bölümündeki Arka Plan Rengi'ni işaretleyin.

3. Ardından Tamam düğmesine tıklayın, belirli renge sahip tüm hücreler hemen seçilecek ve ardından Ana Sayfa > Biçim > Gizle ve Göster > Satırları Gizle'ye tıklayın, aşağıdaki ekran görüntüsüne bakın:

4. Ve ardından belirli renge sahip seçili hücreler gizlenecektir, aşağıdaki ekran görüntüsüne bakın:

Demo: Kutools for Excel ile hücre rengine göre satırları gizleme