ColorFunction ile Sum'u otomatik yapma
By BayRemodel 05 Ocak 2023 Perşembe günü
Yayınlanan Excel
Cevaplar 1
Seviyor 0
Görünümler 3.7K
Oy 0
Bu konuda sunabileceğiniz herhangi bir yardım için şimdiden teşekkür ederiz.

Bu sitenin yardımıyla aşağıdaki işlevi oluşturdum;

İşlev RenkFonksiyonu(Aralık Olarak rColor, Aralık Olarak rRange, Boole Olarak İsteğe Bağlı TOPLA)
rCell As Range'i Kısın
Dim lCol Kadar Uzun
Loş vSonuç
lCol = rColor.Interior.ColorIndex
TOPLAM = Doğru ise O zaman
rRange İçindeki Her rCell İçin
Eğer rCell.Interior.ColorIndex = lCol ise O zaman
vResult = WorksheetFunction.SUM(rCell, vResult)
Eğer son
sonraki rCell
başka
rRange İçindeki Her rCell İçin
Eğer rCell.Interior.ColorIndex = lCol ise O zaman
vSonuç = 1 + vSonuç
Eğer son
sonraki rCell
Eğer son
Renk İşlevi = vSonuç
son İşlevi


Her hedef hücrede, o satırdaki belirtilen hücrenin rengini içeren tüm hücrelerin toplamını istiyorum;
=renkfonksiyonu(AR4,H5:AP5,DOĞRU)

Satırdaki diğer herhangi bir hücre (H5:AP5) renk değiştirdiğinde hedef satışın güncellenmesini nasıl sağlayabilirim?
Merhaba,

Kodu ekleyebilirsiniz: Uygulama.Hesaplama = xlOtomatik işlevinize:

Function ColorFunction(rColor As Range, rRange As Range, Optional SUM As Boolean)

Dim rCell As Range

Dim lCol As Long

Dim vResult

Application.Calculation = xlAutomatic

lCol = rColor.Interior.ColorIndex

If SUM = True Then

For Each rCell In rRange

If rCell.Interior.ColorIndex = lCol Then

vResult = WorksheetFunction.SUM(rCell, vResult)

End If

Next rCell

Else

For Each rCell In rRange

If rCell.Interior.ColorIndex = lCol Then

vResult = 1 + vResult

End If

Next rCell

End If

ColorFunction = vResult

End Function


Lütfen bir deneyin.

Amanda
Amanda Lee
·
1 yıl önce
·
0 Beğeni
·
0 Oy
·
0 Yorumlar
·
Yazının Tamamını Görüntüle