yeni
 Topluluk

ColorFunction ile Sum'u otomatik yapma

  Excel
BayRemodel
  BayRemodel
  Perşembe, 05 Ocak 2023
  1 Cevaplar
  3.7K Ziyaret
0
Oy
geri al
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?
0
Yaşlılar önden  
Amanda Lee
Amanda Lee
1 yıl önce
·
#3338
0
Oy
geri al
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
  • Sayfa:
  • 1
Bu gönderi için henüz cevap yok.