Počet nie. bunky s konkrétnou farbou v riadku / stĺpci

Tu som definovať funkciu pre počítanie nie. bunky v riadku / stĺpci s konkrétnou farbou,

Je to presne ako Countif cellcolor = = Farba

 Funkcia ColorCount (colorCell As Range, countRange As Range) Dim rCell As Range Dim cellCol Ako celé číslo Dim ans as Long ans = 0 cellCol = colorCell.Interior.ColorIndex Pre každý rCell V countRange Ak rCell.Interior.ColorIndex = cellCol Potom ans = ans + 1 End If next rCell ColorCount = ans Koncová funkcia