Ktf İle Dolgu Rengi Sayma

Bu dosya, belirli bir alandaki hücrelerin dolgu rengine göre sayılmasını sağlayan kullanıcı tanımlı bir fonksiyon (KTF) örneğidir. Excel'in standart fonksiyonları renge göre sayım yapamadığı için bu işlem VBA ile yazılmış RenkSay fonksiyonuyla yapılır.

Dosyanın içeriği​

• Sayfa1: B3:S20 aralığını kapsar. D5:D19 aralığındaki hücreler farklı dolgu renkleriyle boyanmıştır. B3 hücresinde sayım formülü bulunur; R20 hücresinde "VBA KTF ile dolgu rengi Sayma" açıklaması yer alır.

Kullanılan formüller​

B3 hücresinde, D5:D19 aralığında renk indeksi 3 olan hücrelerin sayısını veren formül kullanılır:
Birinci bağımsız değişken sayılacak alanı, ikinci bağımsız değişken dolgu rengine karşılık gelen renk indeksini belirtir. Makrolar etkinleştirilmediğinde B3 hücresi #NAME? hatası gösterir.

Makrolar​

Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir. Module1 modülünde tek bir fonksiyon bulunur:

• RenkSay: Verilen alandaki her hücreyi tek tek dolaşır. Hücrenin Interior.ColorIndex değeri girilen renk numarasına eşitse sayacı bir artırır ve toplamı döndürür.

Fonksiyon bir çalıştırma düğmesiyle değil, çalışma sayfasında formül olarak çağrılır. Kodda dosya silme ya da dış bağlantı gibi zararlı bir işlem yoktur.

Nasıl kullanılır​

1. Dosyayı açın ve makroları etkinleştirin.
2. Sayılacak hücreleri dolgu rengiyle boyayın veya D5:D19 aralığındaki mevcut renkleri kullanın.
3. Sonucun görüleceği hücreye RenkSay fonksiyonunu alan ve renk indeksiyle yazın.
4. Farklı bir rengi saymak için ikinci bağımsız değişkendeki renk indeksini değiştirin.
5. Renk değiştirildiğinde sonucun güncellenmesi için sayfayı yeniden hesaplatın (F9). Dolgu rengi değişikliği Excel'de otomatik yeniden hesaplamayı tetiklemez.

Fonksiyonu başka bir dosyada kullanmak için Module1 içeriği ilgili dosyanın VBA projesine kopyalanır ve dosya .xlsm biçiminde kaydedilir.