Funções que somam pela cor - JJoão (08/2002)

Função que apresenta o total da soma de uma zona de celulas tendo como criterio a cor do texto ou do fundo da celula onde está inserida a formula.

Soma só os valores da Zona que estejam em celulas com a mesma cor de texto

Function SomaCorTexto(eu As Range, zona As Range)
         Dim soma
         Dim celula As Range
         Dim cor As Integer
         Application.Volatile
         cor = eu.Font.ColorIndex
         For Each celula In zona
             If celula.Font.ColorIndex = cor Then
                soma = soma + celula.Value
             End If
         Next
         SomaCorTexto = soma
End Function

Soma só os valores da Zona que estejam em celulas com a mesma cor de fundo

Function SomaCorFundo(eu As Range, Zona As Range)
         Dim soma
         Dim celula As Range
         Dim cor As Integer
         Application.Volatile
         cor = eu.Interior.ColorIndex
         For Each celula In zona
             If celula.Interior.ColorIndex = cor Then
                soma = soma + celula.Value
             End If
         Next
         SomaCorFundo = soma
End Function