Koyu Olan Sayıları Toplama

Bu dosya, bir veri aralığındaki sayılardan yalnızca koyu (Bold) biçimlendirilmiş olanların toplamını almak için hazırlanmış kullanıcı tanımlı fonksiyonu (UDF) içerir. Normal yazılmış sayılar toplama dahil edilmez. Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir.

Dosyanın içeriği​

• Sheet1: B2:D8 aralığında örnek veri alanı bulunur. B2 hücresinde "Rakamlar" başlığı, B3 hücresinde ilk örnek değer olan 1 yer alır. Koyu ve normal yazılmış sayıların bir arada bulunduğu bu alan fonksiyonu denemek için kullanılır.
• Module1: KoyuTopla fonksiyonunun bulunduğu VBA modülüdür.

Dosyada sayfa formülü bulunmaz; hesaplama tamamen makro modülündeki fonksiyon üzerinden yapılır.

Makrolar​

• KoyuTopla(Alan): Verilen aralıktaki her hücreyi sırayla kontrol eder. Hücrenin yazı tipi koyu ise değerini toplama ekler ve sonucu Double türünde döndürür. Koyu olmayan hücreler atlanır. Sayı olmayan veya hata içeren hücreler On Error Resume Next ile geçilir, bu nedenle hesap durmaz.
• Fonksiyonda Application.Volatile kullanıldığı için sayfada hesaplama tetiklendiğinde sonuç yeniden hesaplanır.

Kodda dosya silme, dış bağlantı gibi zararlı bir işlem bulunmaz. Fonksiyon sayfadan, normal bir Excel fonksiyonu gibi çağrılır; ayrıca çalıştırılacak bir makro düğmesi yoktur.

Nasıl kullanılır​

1. Dosyayı açın ve makroları etkinleştirin.
2. Toplamın görüleceği boş bir hücreye aşağıdaki biçimde formül yazın:
   
   Excel formülü

   =KoyuTopla(B3:B8)

3. Parantez içindeki aralığı kendi verinize göre değiştirin.
4. Toplanacak sayıları koyu yapın veya koyuluğu kaldırın. Biçim değişikliği Excel'de hesaplamayı kendiliğinden tetiklemediği için sonucu güncellemek için F9 tuşuna basın.
5. Fonksiyonu başka bir dosyada kullanmak için Module1 modülünü o dosyaya aktarın ve dosyayı .xlsm olarak kaydedin.