Örnek çalışma kitabını indirin
Bu öğretici, VBA kullanarak belirli bir arka plan rengindeki hücreleri nasıl sayacağınızı veya toplayacağınızı gösterecektir.
Excel'de aşağıdaki aralığı göz önünde bulundurun.
Renkli hücreleri saymak için yerleşik bir Excel işlevi yoktur. Bunun yerine VBA kullanarak Kullanıcı Tanımlı bir İşlev oluşturmalıyız.
Hücreleri Say - Bir VBA Özel İşlevi Oluştur
VBA kullanarak belirli bir renkte kaç hücrenin olduğunu saymak, aralıktaki tüm hücreler arasında döngü oluşturacak ve her hücrenin arka plan renginin seçtiğiniz arka plan rengiyle eşleşip eşleşmediğini belirleyen kullanıcı tanımlı bir işlev (UDF) oluşturma meselesidir. Test ediyor ve ardından bu işlevi Excel çalışma sayfasında kullanıyor.
VBA'da, seçili hücreleri saymak için bir fonksiyon oluşturuyoruz.
| 12345678910111213141516 | CountCellsByColor(Rng As Range, ColorCell As Range) As Double işleviÇift Olarak Dim dblCountDim rngCell As Range'Aralıktaki her hücreyi dolaşınHer rngCell In rng için'İç rengin seçtiğiniz hücre ile aynı renk olup olmadığını kontrol edinEğer rngCell.Interior.Color = ColorCell.Interior.Color iseIsNumeric(rngCell.Value) = True ise'renk doğruysa sayımı 1 artırın.dblCount = dblCount + 1BitirBitirSonraki'Değeri Excel'e döndürCountCellsByColor = dblCountBitiş İşlevi |
Ardından, değeri döndürmek için çalışma sayfasında bu işlevi kullanın.
| 1 | =CountCellsByColor(B2:E10,G4) |
- G4'teki turuncu hücreye tıklayın ve İşlev Ekle'ye tıklayın.
- Seçme Kullanıcı tanımlı kategori olarak seçin ve ardından CountCellsByColor kullanılacak işlev olarak.
- Tıklamak Tamam.
- Tüm renkli hücreleri içeren aralığı vurgulayın.
- seçin RenkHücresive ardından tıklayın Tamam.
Yeşil Arka Plan rengine sahip hücreleri saymak için işlemi tekrarlayın.
| 1 | =CountCellsByColor(B2:E10,G5) |
Sum Cells - Özel bir VBA İşlevi Oluşturun
Belirli bir rengin hücrelerinin değerlerini toplamak için VBA'da benzer bir özel işlev oluşturuyoruz.
| 12345678910111213141516 | İşlev SumCellsByColor(Rng As Range, ColorCell As Range) As DoubleDim dblSum Çift OlarakDim rngCell As Range'Aralıktaki her hücreyi dolaşınHer rngCell In rng için'İç rengin seçtiğiniz hücre ile aynı renk olup olmadığını kontrol edinEğer rngCell.Interior.Color = ColorCell.Interior.Color iseIsNumeric(rngCell.Value) = True ise'renk doğruysa değeri değişkeninize ekleyindblSum= dblSum + rngCell.ValueBitirBitirSonraki'Değeri Excel'e döndürSumCellsByColor = dblSumBitiş İşlevi |
Daha sonra, gerekli hücreleri özetlemek için bu işlevi Çalışma Sayfasında bir kez daha kullanırdık.
| 1 | =SumCellsByColor(B2:E10,G7) |
