Емили пита:
Молимо вас да ли можете саветовати формуларно решење за бројање броја ћелија које имају одређену позадинску боју (тј. Ове ћелије садрже неке податке, међутим боја је најважнија за њихово бројање).
Логично сматрам да би требало да следи стандардни формулар тј
CountIF(A01:A55,"backgroundcolour=red")Верујем да би црвену боју требало означити бројем 3 (према датотеци помоћи)
Морам да знам како да кодирам боју ћелије у позадини, тј. Цолорфилл ?, бацкгроундцолоур ?, интериор.цолор?… ???
Емили - кад би бар било тако лако. У ВБА морате имати функцију коју дефинише корисник. Испод је код функције. Ово морате да унесете у нови модул кода у радну свеску.
Када унесете код, можете користити ову формулу:
=CountColor(A1:A99,D2)
Тамо где Д2 има формат позадине који желите да избројите.
Ево кода:
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
