Som maken door ColorFunction automatisch
By MrRemodel op donderdag 05 januari 2023
Geplaatst in Excel
Antwoorden 1
sympathieën 0
keer bekeken 3.7K
Stemmen 0
Bij voorbaat dank voor alle hulp die u hierbij kunt bieden.

Met behulp van deze site heb ik de volgende functie gecreëerd;

Functie KleurFunctie (rKleur als bereik, rBereik als bereik, optionele SUM als Booleaanse waarde)
Dim rCell als bereik
Dim lCol zo lang
Dim vResultaat
lCol = rColor.Interior.ColorIndex
Als SOM = Waar dan
Voor elke rCell in rRange
Als rCell.Interior.ColorIndex = lCol Then
vResult = WerkbladFunctie.SUM(rCell, vResult)
End If
Volgende rCell
Anders
Voor elke rCell in rRange
Als rCell.Interior.ColorIndex = lCol Then
vResultaat = 1 + vResultaat
End If
Volgende rCell
End If
KleurFunctie = vResultaat
End Function


In elke doelcel wil ik een som van alle cellen in die rij die de kleur van de opgegeven cel bevatten;
=kleurfunctie(AR4,H5:AP5,TRUE)

Hoe kan ik ervoor zorgen dat het verkoopdoel wordt bijgewerkt wanneer een andere cel in de rij (H5:AP5) van kleur verandert?
Hey daar!

U kunt de code toevoegen: Application.Calculation = xlAutomatisch voor jouw functie:

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


Probeer het alsjeblieft.

Amanda
Amanda Lee
·
1 jaar geleden
·
0 Likes
·
0 Stemmen
·
0 reacties
·
Bekijk het volledige bericht