Skaits Nr. no šūnas ar īpašu krāsu rindā / kolonnā

Šeit es definēju funkciju Nr. šūnas rindā / kolonnā ar īpašu krāsu,

Tas ir tāpat kā Countif cellcolor = krāsa

 Funkcija ColorCount (colorCell As Range, countRange As Range) Dim rCell Kā diapazons Dim cellCol As Integer Dim ans As Long ans = 0 cellCol = colorCell.Interior.ColorIndex katram rCell In countRange Ja rCell.Interior.ColorIndex = cellCol Tad ans = ans + 1 Beigas Ja nākamais rCell ColorCount = ans Beigu funkcija 
Iepriekšējais Raksts Nākamais Raksts

Top Padomi