Ny
 Community

Gør Sum by ColorFunction automatisk

  Excel
MrRemodel
  MrRemodel
  Torsdag 05 januar 2023
  1 Svar
  3.7K besøg
0
Stemmer
Fortryd
På forhånd tak for al hjælp til dette, som du kan tilbyde.

Ved hjælp af denne side har jeg lavet følgende funktion;

Funktion ColorFunction(rFarve som område, rområde som område, valgfri SUM som boolesk)
Dæmp rCell As Range
Dæmp lCol As Long
Dæmp vResult
lCol = rColor.Interior.ColorIndex
Hvis SUM = Sandt, så
For hver rCelle i intervallet
Hvis rCell.Interior.ColorIndex = lCol Så
vResult = WorksheetFunction.SUM(rCell, vResult)
End If
Næste rCell
Else
For hver rCelle i intervallet
Hvis rCell.Interior.ColorIndex = lCol Så
vResult = 1 + vResult
End If
Næste rCell
End If
ColorFunction = vResult
End Function


I hver målcelle vil jeg have en sum af alle de celler i den række, der indeholder farven på den angivne celle;
=farvefunktion(AR4,H5:AP5,TRUE)

Hvordan kan jeg få målsalget til at opdatere, når en anden celle i rækken (H5:AP5) skifter farve?
0
Ældste først  
Amanda Lee
Amanda Lee
1 år siden
·
#3338
0
Stemmer
Fortryd
Hej der,

Du kan tilføje koden: Application.Calculation = xlAutomatisk til din funktion:

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


Prøv det.

Amanda
  • Side:
  • 1
Der er endnu ingen svar på dette indlæg.