Renklere Göre Toplama

Bu dosya, hücrelerin arka plan rengine göre toplama yapmanızı sağlayan RenkTopla adlı kullanıcı tanımlı fonksiyonu (UDF) içerir. Excel'in standart fonksiyonları renge göre toplama yapamadığı için bu işlem VBA ile çözülmüştür.

Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir. Dosya biçimi .xlsm olarak kaydedilmiştir.

Dosyanın içeriği​

Dosyada Sheet1 adlı tek bir sayfa vardır (B2:G17 aralığı).

• B sütununda farklı renklerle boyanmış sayısal değerler yer alır (24, 13, 30, 65, 3, 33, 82 gibi).
• F sütununda "Renkler" başlığı bulunur. Altında her satırda bir renk örneği ve yanındaki "Toplam" sütununda o rengin toplamı gösterilir.
• Sayfada hücre formülü yoktur; hesaplama tamamen makro modülündeki fonksiyonla yapılır.

Makrolar​

Dosyada Module1 adlı bir modül ve içinde RenkTopla adlı tek bir fonksiyon vardır.

• Fonksiyon iki bağımsız değişken alır: toplanacak değerlerin bulunduğu alan (Alan) ve örnek olarak kullanılacak renkli hücre (RenkliHucre).
• Örnek hücrenin Interior.Color değerini okur, alandaki her hücrenin dolgu rengiyle karşılaştırır ve rengi aynı olan hücrelerin değerlerini toplar.
• Application.Volatile kullanıldığı için fonksiyon sayfa her yeniden hesaplandığında çalışır. Hata durumunda On Error ile işlem sonlandırılır.
• Kodda dosya silme, dışarıya bağlantı gibi zararlı bir işlem bulunmaz.
• Fonksiyon, hücreye formül olarak yazılarak çalıştırılır; ayrıca bir düğme ya da kısayol yoktur.

Nasıl kullanılır​

1. Dosyayı açın ve üstte çıkan uyarıdan makroları etkinleştirin.
2. Toplam yazmak istediğiniz hücreye şu yapıda bir formül girin: =RenkTopla(B2:B17;F3). Burada ilk bağımsız değişken değer alanı, ikincisi örnek renkli hücredir.
3. Kendi verilerinizde değerleri boyayın ve örnek renk hücresini aynı renge boyayın.
4. Rengi değiştirdiğinizde sonucun güncellenmesi için sayfayı yeniden hesaplatın (F9). Renk değişikliği Excel'de otomatik hesaplamayı tetiklemez.
5. Kendi dosyanızda kullanmak için VBA düzenleyicisinde Module1'i kopyalayıp dosyanızı .xlsm olarak kaydedin.