Função CONTCOR

Função CONTCOR

Siga os mesmo passos descritos para a função SOMACOR acima, porém dessa vez não há necessidade de criar um novo módulo, apenas insira no editor VBA, no mesmo módulo que o anterior, o seguinte código:

Function CONTCOR(Referência As Range, Matriz As Range, Fonte As Boolean)
 Application.Volatile
 
 Dim rCell As Range
 Dim rCor As Long
 Dim rResult As Variant
 
 If Fonte = False Then
 rCor = Referência.Interior.ColorIndex
 For Each rCell In Matriz
 If rCell.Interior.ColorIndex = rCor Then
 rResult = 1 + rResult
 End If
 Next rCell
 Else
 rCor = Referência.Font.ColorIndex
 For Each rCell In Matriz
 If rCell.Font.ColorIndex = rCor Then
 rResult = 1 + rResult
 End If
 Next rCell
 End If
 
 CONTCOR = rResult
End Function

excemplo:

D4 =SOMACOR(B4;B4:B10;FALSO)