POZOR! Tenhle kód funguje na základní barvy, ale nedokáže zjistit barvu buňky z podmíněného formátování. 🙁
Kód pro vložení do editoru je následující:
Function Cislobarvy(CellColor As Range)
Cislobarvy = CellColor.Interior.ColorIndex
End Function
Pokud neznáte funkci SUMIF, pomocí které potom můžete buňky sečíst, tak její použití je vysvětlené tady>>>
Nezapomeňte si soubor uložit jako sešit Excelu s podporou maker (.xlsm) , protože jinak vám kód nebude fungovat.