Numără nr. de celule cu o culoare particulară într-un rând / coloană

Aici definesc o funcție pentru numărarea unui număr. de celule într-un rând / coloană cu o culoare specială,

Este la fel ca celula de Culoare Countif este = Culoare

 Funcția ColorCount (intervalul colorCell ca interval, countRange As Range) Dim rCell ca interval Dim dimensiune cellCol ca integer Dim ans As Long ans = 0 cellCol = colorCell.Interior.ColorIndex pentru fiecare rCell În countRange Dacă rCell.Interior.ColorIndex = cellCol Apoi ans = ans + 1 Sfârșit dacă următoarea rCell ColorCount = ans End Function