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?
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?