Ir ao conteúdo
  • Cadastre-se
Valteson

Outro Contar célular de uma mesma com no Excel usando VBA

Recommended Posts

Me deparei hoje com o problema de contar a quantidade de células em um intervalo com uma determinada com. Após pesquisar um pouco encontrei a propriedade color que pode ser aplicada ao range ou a cells (range("A1").Interior.color e cells(1,1).interior.color.

Fiz um código no VBE que analisa cada célula em um Range especificado pelo usuário e retoma 1 se a cor for da célula analisada for igual à cor da célula de referencia. 

Um contador armazena os valores diferentes de 0. Ao final, ele salva na célula A1 a quantidade de células de mesma cor que ela.

Fica um ponto em aberto, o código não conta as células coloridas pela formatação condicional.

Segue o código comentado.

 

Sub Cor()
'Checar quantas células em um intervalo estão na cor da célula A1
'
Dim Cor As Variant 'Cria a variável que reconhecerá a cor da célula de referência
Dim i, j As Long    'Cria as varáveis de linha e coluna
Dim teste As Integer
Dim Contador As Integer
Dim L_in, L_fin, Col_in, Col_fin As Integer 'Cria as variáveis que representaram o range de análise

'Seleciona a célula de referência
Range("A1").Select
'Reconhece o atributo cor da célula de referência
Cor = Range("A1").Interior.Color

L_in = Range("F2").Value
L_fin = Range("G2").Value
Col_in = Range("F3").Value
Col_fin = Range("G3").Value

i = L_in
Contador = 0
Do While i <= L_fin

    j = Col_in
    Do While j <= Col_fin
        
        If Cells(i, j).Interior.Color = Cor Then
        teste = 1
        Else: teste = 0
        
        End If
        Contador = Contador + teste
    j = j + 1
    Loop
        


i = i + 1
Loop

Range("A1").Value = Contador
    
End Sub

 

  • Curtir 1

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora





Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×