Előre is köszönöm az ezzel kapcsolatos segítséget.
Az oldal segítségével a következő funkciót hoztam létre;
Funkció ColorFunction (rColor as Range, r Range as Range, opcionális SUM mint logikai érték)
Dim rCell As Range
Dim lCol As Long
Halvány vEredmény
lCol = rColor.Interior.ColorIndex
Ha SUM = igaz Akkor
Minden rCell In rRange esetén
Ha rCell.Interior.ColorIndex = lCol Akkor
vEredmény = WorksheetFunction.SUM(rCell, vResult)
Ha véget
Következő rCell
Más
Minden rCell In rRange esetén
Ha rCell.Interior.ColorIndex = lCol Akkor
vEredmény = 1 + vEredmény
Ha véget
Következő rCell
Ha véget
ColorFunction = vEredmény
end Function
Minden egyes célcellában a megadott cella színét tartalmazó sor összes cellájának összegét szeretném megadni;
=színfüggvény (AR4,H5:AP5,TRUE)
Hogyan érhetem el a célértékesítés frissítését, ha a sorban (H5:AP5) bármely más cella színe megváltozik?