Excel'de hücre rengine göre satırlar nasıl gizlenir?
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:
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:
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ç > 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 kullanmak 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.
3. Sonra tıklayın Ok düğmesi, belirli renge sahip tüm hücreler bir defada seçilmiştir ve ardından Ana Sayfa > oluşturulan > Gizle ve Göster > Satırları Gizle, ekran görüntüsüne bakın:
4. Ve sonra belirli renge sahip seçili hücreler gizlenir, ekran görüntüsüne bakın:
Şimdi Excel için Kutools'u Ücretsiz İndir'i tıklayın!
Demo: Kutools for Excel ile hücre rengine dayalı satırları gizleyin
En İyi Ofis Üretkenlik Araçları
Kutools for Excel ile Excel Becerilerinizi Güçlendirin ve Daha Önce Hiç Olmadığı Gibi Verimliliği Deneyimleyin. Kutools for Excel, Üretkenliği Artırmak ve Zamandan Tasarruf Etmek için 300'den Fazla Gelişmiş Özellik Sunar. En Çok İhtiyacınız Olan Özelliği Almak İçin Buraya Tıklayın...
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!