Neste artigo, criaremos uma função personalizada para contar o número de células no intervalo com cores definidas.
Para este exemplo, os dados de amostra consistem em um intervalo com valores que variam entre 100 e 1000. Os valores nas células são destacados em cores diferentes. Queremos encontrar a contagem de cada cor.
Para calcular a contagem de uma cor específica, criamos uma função personalizada “CountByColor”. Esta função usa 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 o valor de uma 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
Função CountByColor (DefinedColorRange As Range, CountRange 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 GCell em CountRange If ICol = GCell.Interior.ColorIndex Then 'Obtendo a contagem de células coloridas correspondentes CountByColor = CountByColor + 1 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