Emily sa pýta:
Mohli by ste mi odporučiť formálne riešenie pre počítanie počtu buniek, ktoré majú konkrétnu farbu backgorunda (tj. Tieto bunky obsahujú určité údaje, je však dôležitá farba pre ich spočítanie).
Logicky mám pocit, že by sa malo riadiť štandardným formulárom, tj
CountIF(A01:A55,"backgroundcolour=red")Verím, že červená farba by mala byť identifikovaná číslom 3 (podľa súboru s pomocou)
Potrebujem vedieť, ako kódovať farbu bunky pozadia, tj. Colorfill ?, backgroundcolour ?, interior.color? … ???
Emily - len keby to bolo také ľahké. Vo VBA musíte mať funkciu definovanú používateľom. Nižšie je uvedený kód funkcie. Musíte to zadať do nového modulu kódu v zošite.
Po zadaní kódu môžete použiť tento vzorec:
=CountColor(A1:A99,D2)
Kde D2 má formát pozadia, ktorý chcete počítať.
Tu 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
