Excel'de Renkli Hücreleri Nasıl Sayabilirim?
Excel'deki hücrenin rengine göre hücreleri saymanın birden fazla yolu vardır.
- Yöntem # 1 - Alt Toplam İşleviyle Filtre Yöntemini Kullanarak Renkli Hücreleri Sayma
- Yöntem # 2 - VBA Kodunu Kullanarak İşlev Oluşturarak Renkli Hücreleri Sayma
Şimdi her bir yöntemi bir örnekle ayrıntılı olarak tartışalım -
# 1 Alt Toplam Fonksiyonu ile Filtre Yöntemini Kullanma
Dediğim gibi, Excel'deki hücrenin rengine göre hücreleri saymak için birden fazla yöntemimiz var. Bu yöntem, Filtre ve Ara Toplam işlevini kullanır.
- Adım 1: Öncelikle, bir ara toplam fonksiyonu uygulamalıyız, bu yüzden verinin sonunda, ALTTOPLAM fonksiyonunu excel'de açın.
- Adım 2: SUBTOTAL fonksiyonunu açtığımızda, bunun altında bir fonksiyon listesi sunulur; hücreleri saydığımız için " 2 - SAYI " işlevini seçin.
- Adım 3: Daha sonra ara toplam yöntemini seçtikten sonra, sayılacak bir hücre aralığı seçmemiz gerekiyor.
- Adım 4: Tamam, şimdi bu hücrelerin sayısı 7 olacak.
- Adım 5: Yukarıdaki veriler için yapı bir filtre seçeneği uygular.
- 6. Adım: " Renge Göre Filtrele " seçeneğine gitmek için açılır filtre listesini tıklayın . Filtrelenecek tüm mevcut renkleri gösterecektir.
- Adım 7: Renklerden herhangi birini seçin ve bu renkli satırlara sahip olacağız.
- Adım 8: Yukarıda görebileceğiniz gibi, ALTTOPLAM işlevimiz yalnızca filtrelenmiş satırların sayısını gösteriyor. Turuncu renkle işaretlenmiş yalnızca iki satır olduğundan, SUBTOTAL işlevi sayımı yalnızca üç olarak gösterir; benzer şekilde, başka bir renk seçin ve mükemmel çalışıp çalışmadığını görün.
Bu sayı 2, dolayısıyla güncellenmiş bir sonucumuz var.
# 2 VBA Kodlamasını Kullanarak İşlev Oluşturma
Size söylediğim gibi, maalesef, Excel'de renge göre hücreleri saymamıza yardımcı olabilecek yerleşik bir işlevimiz yok. Yerleşik bir işlev olmadığını söylemiştik, ancak güzel olan, VBA kodlamasını kullanarak kendi işlevimizi oluşturabiliriz.
Aşağıda, hücreleri renge göre saymak için bir işlev oluşturmak için daha önce yazdığım kod var.
Kod:
İşlev ColorCount (ColorCell As Range, DataRange As Range) Dim Data_Range As Long Cell_Color = ColorCell.Interior.ColorIndex için DataRange'de DataRange If Data_Range.Interior.ColorIndex = Cell_Color Then ColorCount = ColorCount + 1 End If Next Data_Range End Fonksiyon
Tek yapmanız gereken yukarıdaki kodu kopyalayıp aşağıda gösterildiği gibi VBA modülünüze yapıştırmaktır.
Şimdi verilerimizin olduğu çalışma sayfasına geri dönün ve renkli üç hücre oluşturun.
Eşittir işareti koyun ve yukarıdaki kodu kullanarak oluşturduğumuz fonksiyonu açın.
Bu fonksiyonun ilk argümanı "saymamız gereken renk hücresini seçmemiz gerekiyor", bu yüzden bu durumda E2 hücresini seçeceğim.
İkinci argüman, hangi hücre aralığında seçilen hücre rengini saymamız gerektiğidir.
Tamam, bu işlev için ihtiyacımız olan tek şey bu. Köşeli parantezi kapatın ve seçilen hücre renginin sayısını almak için enter tuşuna basın.
Benzer şekilde, diğer renkli hücreler için yapın. Aşağıdaki sonucu alıyoruz.
Bu, VBA " Kullanıcı Tanımlı İşlev " kullanılarak yapılır , sağlanan hücre aralığında döngü yapar ve sağlanan hücre rengiyle tam olarak aynı rengi tutan hücrelerin sayısını sayar.
Ardından, eşleşen tüm renk hücrelerini toplar ve sonucu o renk hücresinin sayısı olarak döndürür.
Bunun gibi, renkleri Excel'de sayabiliriz. Başka yöntemler de var, ancak bunlar biraz karmaşık, bu yüzden öğrenmenin başında kolay olanı tercih edin.
Burada Hatırlanması Gereken Şeyler
- ALTTOPLAM işlevi yalnızca görünen hücreleri sayar, böylece filtre uygulandıkça yalnızca filtrelenmiş renkli hücreleri sayar.
- VBA kodu UDF işlevi içindir çünkü yerleşik işlevler yoktur, bu yüzden kendi işlevimizi oluşturmalıyız.
