Bu yazıda, tanımlanmış renge sahip aralıktaki hücrelerdeki sayıların toplamını hesaplamak için özel bir fonksiyon oluşturacağız.
Bu örnek için örnek veriler satış ekibi verilerinden oluşmaktadır. Satış ekibi verileri, satılan ürün sayısıyla ilgili ayrıntıları içerir. Gri, Kırmızı ve Yeşil olmak üzere üç rengi bulunan ürün ile ilgili bilgileri içerir. Ürün rengine göre satılan ürün toplamını bulmak istiyoruz.
Toplamı renge göre hesaplamak için “SumByColor” özel fonksiyonunu yarattık. Bu fonksiyon girdi olarak iki aralık parametresi alır. Birinci aralık parametresi hücrenin iç rengini tanımlar ve ikinci aralık parametresi numune aralığını tanımlar.
Kod açıklaması
Application.Volatile, çalışma kitabında bir hücre değeri her değiştirildiğinde yeniden hesaplanacağı için kullanılır.
DefinedColorRange.Interior.ColorIndex
Tanımlanan aralığın iç rengini almak için yukarıdaki kod kullanılır.
Lütfen kod için aşağıdan takip edin
Seçenek Açık İşlev SumByColor(DefinedColorRange As Range, SumRange As Range) Application.Volatile 'Değişkenleri bildirme Dim ICol As Integer Dim GCell As Range 'Hücrenin iç rengini alma ICol = DefinedColorRange.Interior.ColorIndex 'Her biri için SumRange'de GCell, ICol = GCell.Interior.ColorIndex ise 'Eşleşen renkli hücrenin toplamını alma SumByColor = SumByColor + GCell.Value End If Next GCell End Function
Bu blogu beğendiyseniz, Facebook'ta arkadaşlarınızla paylaşın. Ayrıca bizi Twitter ve Facebook'ta da takip edebilirsiniz.
Sizden haber almayı çok isteriz, işimizi nasıl geliştirebileceğimizi ve sizin için nasıl daha iyi hale getirebileceğimizi bize bildirin. E-posta sitesinde bize yazın