Nya
 Community

Gör Sum by ColorFunction automatiskt

  excel
MrRemodel
  MrRemodel
  Torsdag, 05 januari 2023
  1 svar
  3.6K besök
0
Röster
Ångra
Tack på förhand för all hjälp du kan erbjuda.

Med hjälp av denna sida har jag skapat följande funktion;

Funktion ColorFunction(rColor As Range, rrange As Range, Valfri SUMMA Som Boolean)
Dim rCell As Range
Dim lCol As Long
Dim vResult
lCol = rColor.Interior.ColorIndex
Om SUM = Sant då
För varje rCell I intervall
Om rCell.Interior.ColorIndex = lCol Då
vResult = WorksheetFunction.SUM(rCell, vResult)
End If
Nästa rCell
annars
För varje rCell I intervall
Om rCell.Interior.ColorIndex = lCol Då
vResult = 1 + vResult
End If
Nästa rCell
End If
ColorFunction = vResult
Änden Funktion


I varje målcell vill jag ha en summa av alla celler i den raden som innehåller färgen på den angivna cellen;
=färgfunktion(AR4,H5:AP5,TRUE)

Hur kan jag få målsäljningen att uppdatera när någon annan cell i raden (H5:AP5) ändrar färg?
0
äldsta först  
Amanda Lee
Amanda Lee
1 år sedan
·
#3338
0
Röster
Ångra
Hej där,

Du kan lägga till koden: Application.Calculation = xlAutomatisk till 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


Vänligen ge det ett försök.

Amanda
  • Sida:
  • 1
Det finns inga svar på det här inlägget än.