Bu yazıda, tanımlanmış renklere sahip aralıktaki hücre sayısını saymak için özel bir fonksiyon oluşturacağız.
Bu örnek için, örnek veriler 100 ile 1000 arasında değişen değerlere sahip bir aralıktan oluşmaktadır. Hücrelerdeki değerler farklı renklerle vurgulanmıştır. Her rengin sayısını bulmak istiyoruz.
Belirli bir rengin sayısını hesaplamak için özel bir “CountByColor” işlevi oluşturduk. Bu fonksiyon girdi olarak iki aralık parametresi alır. Birinci aralık parametresi hücrenin iç rengini, ikinci aralık parametresi ise 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
İşlev CountByColor(DefinedColorRange As Range, CountRange 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 GCell İçin Tanımlanan aralıkta döngü CountRange Eğer ICol = GCell.Interior.ColorIndex ise 'Eşleşen renkli hücre sayısını alma CountByColor = CountByColor + 1 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
