Neste artigo, criaremos uma função personalizada para calcular a soma dos números nas células no intervalo com cor definida.
Para este exemplo, os dados de amostra consistem em dados da equipe de vendas. Os dados da equipe de vendas contêm detalhes relacionados ao número de itens vendidos. Contém informações relacionadas ao produto que está disponível em três cores: cinza, vermelho e verde. Queremos encontrar a soma dos itens vendidos por cor do produto.
Para calcular a soma por cor, criamos a função personalizada “SumByColor”. Esta função aceita dois parâmetros de intervalo como entrada. O primeiro parâmetro de intervalo define a cor interna da célula e o segundo parâmetro de intervalo define o intervalo de amostra.
Explicação do código
Application.Volatile é usado porque será recalculado sempre que um valor de célula for alterado na pasta de trabalho.
DefinedColorRange.Interior.ColorIndex
O código acima é usado para obter a cor interna do intervalo definido.
Siga abaixo para o código
Opção Explicit Função SumByColor (DefinedColorRange As Range, SumRange As Range) Application.Volatile 'Declarando variáveis Dim ICol As Integer Dim GCell As Range' Obtendo a cor interna da célula ICol = DefinedColorRange.Interior.ColorIndex 'Loop através do intervalo definido para cada um GCell In SumRange If ICol = GCell.Interior.ColorIndex Then 'Obtendo a soma das células coloridas correspondentes SumByColor = SumByColor + GCell.Value End If Next GCell End Function
Se você gostou deste blog, compartilhe com seus amigos no Facebook. Além disso, você pode nos seguir no Twitter e no Facebook.
Gostaríamos muito de ouvir de você, diga-nos como podemos melhorar nosso trabalho e torná-lo melhor para você. Escreva para nós no site de e-mail