Bu dosya, belirli bir arka plan rengine sahip hücrelerin değerlerini toplamak için hazırlanmış renktopla adlı VBA fonksiyonunu ve fonksiyonun kullanıldığı bir örnek tabloyu içerir. Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir.
Formülde ilk parametre toplanacak hücre aralığı, ikinci parametre rengi referans alınacak hücredir. Türkçe Excel'de ayırıcı ";" olarak yazılır.
Dosyanın içeriği
- Sayfa1: A1:G6 aralığında renklendirilmiş örnek sayısal veriler bulunur. I1:M1 hücreleri referans renkleri taşır, 2. satırda her rengin toplamı hesaplanır, N sütununda genel toplam yer alır. Sayfada fonksiyonun iki parametresini anlatan kullanım notları da vardır.
- Module1: renktopla ve renktoplaa fonksiyonlarının bulunduğu VBA modülü.
- Sayfa2: Sayfa koduna eklenmiş otomatik hesaplama olayı.
Kullanılan formüller
- J2 hücresinde referans rengin toplamı alınır:
=renktopla($A$1:$G$6,J1)
- N2 hücresi, renk toplamlarını SUM ile birleştirir:
Makrolar
- renktopla: Aralıktaki her hücrenin dolgu rengi indeksini (Interior.ColorIndex) referans hücreyle karşılaştırır, eşleşenlerin değerlerini toplar. Formül hücresinden çağrılır.
- renktoplaa: Aynı işi koşullu biçimlendirme ile verilmiş renkler için dener; koşullu biçimlendirme rengine göre toplama yapılacaksa bu fonksiyon kullanılır.
- Worksheet_SelectionChange: Başka bir hücre seçildiğinde, kopyalama modunda değilse sayfayı yeniden hesaplar. Böylece renk değişiklikleri sonuçlara yansır.
Nasıl kullanılır
- Dosyayı açıp makroları etkinleştirin.
- Sonucun görüneceği hücreye =renktopla( yazın.
- Toplanacak hücre aralığını seçin (örnekte A1:G6).
- Referans renkli hücreyi seçin (örnekte I1:M1 hücreleri) ve parantezi kapatın.
- Kendi verinizde hücreleri renklendirip referans hücrelerin renklerini buna göre ayarlayın; sonuçlar hücre seçildikçe güncellenir.