Contando células por cor interna usando VBA - Dicas do Excel

Emily pergunta:

Por favor, você poderia aconselhar a solução formular para contar o número de células que têm uma cor de fundo específica (ou seja, essas células contêm alguns dados, mas a cor é o que é importante para contá-los).

Logicamente, sinto que deve seguir um formulário padrão, ou seja,

CountIF(A01:A55,"backgroundcolour=red")

Acredito que a cor vermelha deve ser identificada pelo número 3 (de acordo com o arquivo de ajuda)

Preciso saber como codificar a cor da célula de fundo, ou seja, colorfill ?, backgroundcolour ?, interior.color?… ???

Emily - se fosse assim tão fácil. Você precisa ter uma função definida pelo usuário no VBA. Abaixo está o código para a função. Você precisa inserir isso em um novo módulo de código na pasta de trabalho.

Depois de inserir o código, você pode usar esta fórmula:

=CountColor(A1:A99,D2)

Onde D2 tem o formato de fundo que você deseja contar.

Aqui está o código:

Function CountColor(Rng As Range, RngColor As Range) As Integer Dim Cll As Range Dim Clr As Long Clr = RngColor.Range("A1").Interior.Color For Each Cll In Rng If Cll.Interior.Color = Clr Then CountColor = CountColor + 1 End If Next Cll End Function

Artigos interessantes...