Note: The other languages of the website are Google-translated. Back to English
Oturum aç  \/ 
x
or
x
Kaydol  \/ 
x

or

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

doc satırları renge göre gizle 1

Excel çalışma sayfasında, birçok farklı renge sahip hücrelerin bir listesi var, şimdi, aşağıdaki ekran görüntüsü gibi tüm açık mavi renkli satırları gizlemem gerekiyor, Excel'de bu görevi nasıl hızlı ve kolay bir şekilde halledebilirsiniz?

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

Kutools for Excel ile hücre rengine dayalı satırları gizleyin


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

Satırları belirli bir arka plan rengine göre gizlemek için aşağıdaki VBA kodu size yardımcı olabilir, lütfen şu şekilde yapın:

1. Basılı tutun ALT + F11 anahtarlar, ardından açılır Uygulamalar için Microsoft Visual Basic pencere.

2. tıklayın Ekle > modülve aşağıdaki kodu modül Pencere.

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

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. Daha sonra tuşuna basın. F5 Bu kodu çalıştırmak için bir anahtar ve kullanmak istediğiniz hücreleri seçmenizi hatırlatmak için bir istem kutusu açılır, ekran görüntüsüne bakın:

doc satırları renge göre gizle 2

4. Ve sonra tıklayın OK düğmesi, tüm açık mavi renkli hücreler bir anda gizlendi, ekran görüntüsüne bakın:

doc satırları renge göre gizle 1

Notlar:

1. Yukarıdaki kodda numara 20 bu komut dosyası içinde XRg.Range ("A" & I) .Interior.ColorIndex = 20 ise Ardından renk indeksi numarasıdır, istediğiniz gibi değiştirebilirsiniz.

2. Renk indeksi numarasından emin değilseniz, bilmek 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 sonra formülü girin: = GetColor (A2) A2 hücresindeki arka planın belirli renk indeksi numarasını döndürmek için, A2'yi ihtiyaç duyduğunuzda başkalarına değiştirirsiniz.


Kutools for Excel ile hücre rengine dayalı satırları gizleyin

Eğer varsa Kutools for Excel, Onun ile Biçime Sahip Hücreleri Seçin yardımcı program, önce belirli renkli hücreleri seçebilir ve ardından bunları bir kerede gizleyebilirsiniz.

Kutools for Excel : 300'den fazla kullanışlı Excel eklentisi ile 30 günde sınırlama olmaksızın ücretsiz deneyin. 

Kurduktan sonra Kutools for Excellütfen aşağıdaki işlemleri yapın:

1. tıklayın Kutools > seçmek > Biçime Sahip Hücreleri Seçin, ekran görüntüsüne bakın:

2. In Biçime Sahip Hücreleri Seçin iletişim kutusunda aşağıdaki işlemleri yapın:

(1.) Tıklayın doc satırları renge göre gizle 5kullanmak istediğiniz veri aralığını seçmek için düğme;

(2.) Ardından tıklayın Hücreden Biçimi Seçin satırları temel alarak gizlemek istediğiniz belirli renkli hücreyi seçmek için düğme;

(3.) Belirli bir hücrenin tüm öznitelikleri liste kutusunda listelenmiştir, lütfen kontrol edin Arka plan rengi altında Doldurmak Bölüm.

doc satırları renge göre gizle 4

3. Sonra tıklayın Ok düğmesi, belirli renge sahip tüm hücreler bir defada seçilmiştir ve ardından Anasayfa > oluşturulan > Gizle ve Göster > Satırları Gizle, ekran görüntüsüne bakın:

doc satırları renge göre gizle 6

4. Ve sonra belirli renge sahip seçili hücreler gizlenir, ekran görüntüsüne bakın:

doc satırları renge göre gizle 7

Şimdi Excel için Kutools'u Ücretsiz İndir'i tıklayın!


Demo: Kutools for Excel ile hücre rengine dayalı satırları gizleyin

Kutools for Excel: 300'den fazla kullanışlı Excel eklentisi ile 30 günde sınırlama olmaksızın ücretsiz deneyin. Hemen indirin ve ücretsiz deneme!

En İyi Ofis Üretkenliği Araçları

Kutools for Excel Sorunlarınızın Çoğunu Çözer ve Verimliliğinizi% 80 Artırır

  • Yeniden: Hızlıca yerleştirin karmaşık formüller, grafikler ve daha önce kullandığınız her şey; Hücreleri Şifrele şifre ile; Posta Listesi Oluşturun ve e-posta gönder ...
  • Süper Formül Çubuğu (birden çok metin ve formül satırını kolayca düzenleyin); Okuma Düzeni (çok sayıda hücreyi kolayca okuyun ve düzenleyin); Filtrelenmiş Aralığa Yapıştır...
  • Hücreleri / Satırları / Sütunları Birleştirme Veri kaybetmeden; Bölünmüş Hücre İçeriği; Yinelenen Satırları / Sütunları Birleştirme... Yinelenen Hücreleri Önleyin; Aralıkları Karşılaştır...
  • Yinelenen veya Benzersiz'i seçin Satırlar; Boş Satırları Seçin (tüm hücreler boştur); Süper Bul ve Bulanık Bul Birçok Çalışma Kitabında; Rastgele Seçim ...
  • Tam kopya Formül referansını değiştirmeden Birden Çok Hücre; Otomatik Referans Oluştur Birden Çok Sayfaya; Madde İşaretleri Ekle, Onay Kutuları ve daha fazlası ...
  • Metni Çıkar, Metin Ekle, Konuma Göre Kaldır, Alanı Kaldır; Sayfalama Alt Toplamları Oluşturma ve Yazdırma; Hücre İçeriği ve Yorumları Arasında Dönüştür...
  • Süper Filtre (filtre şemalarını kaydedin ve diğer sayfalara uygulayın); Gelişmiş Sıralama ay / hafta / gün, sıklık ve daha fazlasına göre; Özel Filtre kalın, italik ...
  • Çalışma Kitaplarını ve Çalışma Sayfalarını Birleştirin; Tabloları anahtar sütunlara göre birleştirin; Verileri Birden Çok Sayfaya Bölme; Toplu dönüştürme xls, xlsx ve PDF...
  • 300'den fazla güçlü özellik. Office / Excel 2007-2019 ve 365'i destekler. Tüm dilleri destekler. Kuruluşunuzda veya kuruluşunuzda kolay dağıtım. Tam özellikli 30 günlük ücretsiz deneme. 60 günlük para iade garantisi.
kte sekmesi 201905

Office Tab, Office'e Sekmeli Arayüz Getirir ve İşinizi Çok Daha Kolay Hale Getirir

  • Word, Excel, PowerPoint'te sekmeli düzenlemeyi ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
  • Yeni pencereler yerine aynı pencerenin yeni sekmelerinde birden çok belge açın ve oluşturun.
  • Üretkenliğinizi% 50 artırır ve her gün sizin için yüzlerce fare tıklamasını azaltır!
ofis tabanı
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Brice · 2 years ago
    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!
  • To post as a guest, your comment is unpublished.
    Nikki · 3 years ago
    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!