Count no. solun erityinen väri rivissä / sarake

Tässä määritän toiminnon, jolla lasketaan no. solun rivissä / sarakkeessa, jossa on erityinen väri,

Se on aivan kuten Countif-soluväri on = Väri

 Toiminto ColorCount (colorCell As Range, countRange As Range) Dim rCell As Range Dim cellCol As Integer Dim ans As Long ans = 0 cellCol = colorCell.Interior.ColorIndex kullekin rCell: lle In countRange Jos rCell.Interior.ColorIndex = cellCol Sitten ans = ans + 1 Loppu Jos Seuraava rCell ColorCount = ans Lopputoiminto