Como Somar Cores no Excel: Com VBA

Se você chegou até aqui é porque precisa somar as cores da célula no Excel, através desse artigo vamos aprender como fazer isso.

Embora, você já deve ter notado que não existe uma função padrão para isso.

PUBLICIDADE

Com o apoio do Visual Basic (VBA) do Excel, é possível desenvolver uma função específica para essa ação.

Em resumo, somar determinadas células conforme sua cor esteja preenchida, se torna muito fácil com o apoio do VBA.

Exemplo demonstrativo de onde aplicar

Em primeiro momento, vamos conhecer um exemplo prático de onde e como é possível aplicar, para isso é necessário entender quando vou precisar.

Veja no exemplo abaixo, onde contém algumas células pintadas com três cores, e mais ao lado temos uma tabela com as cores e queremos saber a quantidade pintada em cada célula.

como-somar-cores-no-excel

Com isso, se apelarmos para uma função nativa do Excel não vamos encontrar, nesse momento entra a criação de uma função personalizada.

A partir daí, vamos desenvolver uma função personalizada para calcular esse nosso problema.

PUBLICIDADE

Como criar uma função personalizada para somar cores no Excel

Portanto, vamos separar em alguns passos, como vamos desenvolver essa função personalizada.

Com o auxílio do VBA, vamos criar um módulo para inserção de nosso código vba.

  1. Alt+F11: Inserir -> Módulo: Aprenda tudo sobre módulo de vba.
como-inserir-módulo-no-vba

Após isso, vamos acessar a Guia Inserir novamente -> Procedimento, e nesse momento vamos selecionar para opção de Function.

como-criar-função-vba

Agora com nossa função criada, vamos inserir a rotina dentro do procedimento.

Para isso, vamos utilizar o código de VBA abaixo que já se encontra com a função planejada.

Public Function SOMACOR(Cor As Range, Intervalo As Range) As Double


Dim i As Range

For Each i In Intervalo

If i.Interior.Color = Cor.Interior.Color Then

SOMACOR = SOMACOR + i.Value

End If


Next

Application.Volatile


End Function

Após inserir a função no seu módulo de VBA, volte para a Planilha, e pesquise pela função SOMACOR.

Sintaxe da Função de Somar Cores

Em primeiro lugar, por se tratar de uma funcão personalizada, não vamos encontrar uma sintaxe definida pelo Excel.

Embora, podemos demonstrar abaixo, como ela vai funcionar, para isso selecionamos um intervalo com ela já funcionando, e logo abaixo explicamos os passos.

PUBLICIDADE
como-usar-soma-cor-no-excel
  1. Referência: Nesse primeiro campo localizado através do F1 é nossa cor que desejamos localizar na tabela.
  2. Referência da células: Nesse campo vamos destacar toda a seleção de cores da planilha.

Após isso, vamos dar enter e perceber que teremos o resultado de 0 para todas as cores.

Mas, como assim? Ela não iria somar?

Exato, ela vai somar o valor que tiver dentro de cada célula de acordo com a sua cor, para saber o total de cores em uma célula, você pode considerar como 1 em cada célula.

soma-de-cores-em-vba-realizada

Por outro lado, se você precisa saber o valor total em todas as cores, é apenas preencher a planilha com valores, conforme acima.

Portanto, o que você achou sobre como somar cores no Excel?

Compartilhe
Rafael Schreiner

Rafael Schreiner

Artigos: 348