none
SOMASES POR CORES (SOMAR CORES COM MAIS UM CONDIÇÃO DE TEXTO) RRS feed

  • Pergunta

  • Olá,

    Estou a procura de uma fórmula que além de somar as células que contem uma cor específica, some também somente se uma segunda célula apresentar um valor especifico. Ou seja seria um "SOMASES" com um primeiro critério de cor e um segundo de texto.

    Já consegui o código para a soma de cores, mas estou com problemas em conseguir um com o adicional desse critério de texto

    Option Explicit
    
    'Realiza operações de contagem, soma e média pela cor da célula
    Public Function gfTotalCor(ByVal vTipo As Integer, ByVal vInterval As Range, ByVal vColor As Range) As Double
        'Recalcula a função em qualquer alteração da planilha
        Application.Volatile
        
        Dim vCel    As Range
        Dim vContar As Double
        Dim vSomar  As Double
        
        For Each vCel In vInterval.Cells
            If CLng(vCel.Interior.Color) = vColor.Interior.Color Then
                Select Case vTipo
                    'Contar
                    Case 1
                        vContar = vContar + 1
                    'Somar
                    Case 2
                        vSomar = vSomar + vCel.Value2
                    'Média
                    Case 3
                        vContar = vContar + 1
                        vSomar = vSomar + vCel.Value2
                End Select
            End If
        Next vCel
        
        If vTipo = 3 Then
            gfTotalCor = vSomar / vContar
        Else
            gfTotalCor = vSomar + vContar
        End If
    End Function

    sexta-feira, 26 de março de 2021 12:27