Emily se ptá:
Mohli byste poradit formální řešení pro počítání počtu buněk, které mají konkrétní barvu backgorundů (tj. Tyto buňky obsahují některá data, je však důležitá barva, aby je bylo možné spočítat).
Logicky mám pocit, že by se mělo řídit standardním formulářem, tj
CountIF(A01:A55,"backgroundcolour=red")Věřím, že červená barva by měla být identifikována číslem 3 (podle souboru nápovědy)
Potřebuji vědět, jak kódovat barvu buňky pozadí, tj. Colorfill ?, backgroundcolour ?, interior.color?… ???
Emily - kdyby to bylo tak snadné. Ve VBA musíte mít funkci definovanou uživatelem. Níže je uveden kód funkce. Musíte to zadat v novém modulu kódu v sešitu.
Jakmile zadáte kód, můžete použít tento vzorec:
=CountColor(A1:A99,D2)
Kde D2 má formát pozadí, který chcete počítat.
Zde je kód:
Function CountColor(Rng As Range, RngColor As Range) As Integer Dim Cll As Range Dim Clr As Long Clr = RngColor.Range("A1").Interior.Color For Each Cll In Rng If Cll.Interior.Color = Clr Then CountColor = CountColor + 1 End If Next Cll End Function
