Saberexcel - o site de quem precisa aprender Macros Microsoft excel VBA
Função personalizada conta cores no interior da célula
Saberexcel - Funções Personalizadas
Esta função conta as do interior de determinada célula que contenham a cor vermelho
Exemplo de fórmula para concatenar valores e a função Usada:
Formula usada : ="Range(C6:C23) contém [ "&ContaVermelho(C6:C23)&" ] células com interior vermelho!"
Retorno fórmula : =Range(C6:C23) contém [ 7 ] células com interior vermelho!
=ContaVermelho(C6:C23)
Function ContaVermelho(cell As Range) As Long
Dim c As Range
For Each c In cell
If c.Interior.ColorIndex = 3 Then ContaVermelho = ContaVermelho + 1
Next
End Function
Esta função tem um parâmetro para voce digitar o range e cor desejada
para que seja verificado e somado o total de células com determinada cor de interior.
♦ Uso da funçao na folha de planilha:
=Conta_Cores(C6:C23;3)
="Range($C$6:$C$23) contém :[ "&Conta_Cores(C6:C23;3) &" ] o total de cores vermelho existentes!!"
Função com Argumento Cores:
=Conta_Cores(C6:C24;3)
Function Conta_Cores(cell As Range, InteriorCores As Byte) As Long
Dim c As Range
For Each c In cell
If c.Interior.ColorIndex = InteriorCores Then Conta_Cores = Conta_Cores + 1
Next
End Function
Aprenda tudo sobre o Aplicativo Microsoft Excel VBA com SaberExcel
Compre Livros, Notebook, Eletrodomesticos, Computadores, Lojas
Comentários
Aonde eu digitaria a cor e o range?
Teria como definir uma célula?
Quando eu digitar vermelho na celula b 1 e escolher a 1 semana de março a fórmula conta de 123 abas a cor vermelho da 1 semana de março.
Por exemplo:
Eu tenho uma planilha com várias abas (aproximadament e 123) e gostaria que ele contasse determinada cor de determinado intervalo e isso de acordo com a cor e intervalo, mas gostaria que tivesse como escolher a cor e o intervalo e a fórmula calcula-se ha como fazer assim?
Desde já agradeço.
Abraços
Assine o RSS dos comentários