Ok. Ajde da probamo ovako:
1. Otvor VB Editor sa Alt+F11
2. Dodaj novi modul sa Insert/Module
3. Dodaj sledeci kod
Code:
Public Function CountColor(r As Range) As Long
Dim lNum As Long
Dim cellA As Range
Application.Volatile
For Each cellA In r
If cellA.Interior.Pattern <> xlNone Then lNum = lNum + 1
Next cellA
CountColor = lNum
End Function
4. Napisi u AK3
Code:
=countcolor(D3:AH3)
5. Kopiraj ovu formulu do AK47 ;))) tj. do AK32
Kada "farbas" celije, da bi se ova formula ponovo izracunala moraces da pritisnes F9 ili da negde promenis
vrednost u nekoj celiji jer Excel nece da izracunava formule kada se promeni format u celijama.
Pozdrav