New
 Gemeenschap

Som maken door ColorFunction automatisch

  Excel
MrRemodel
  MrRemodel
  Donderdag 05 januari 2023
  1 Antwoorden
  3.7K bezoeken
0
Stemmen
ongedaan maken
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?
0
Oudste eerst  
Amanda Lee
Amanda Lee
1 jaar geleden
·
#3338
0
Stemmen
ongedaan maken
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
  • Pagina:
  • 1
Er zijn nog geen reacties op dit bericht geplaatst.