none
Excel 2013 problemas com funções RRS feed

  • Pergunta

  • Criei uma função em vba para contar as células com cores numa folha excel, sendo esta a seguinte:

    Public Function CountColors(rng As Range, color As IntegerAs Integer  Dim rg As Range  Dim x As Integer

    ' Valor inicial  CountColors = 0

        ' Ciclo que irá percorrer todas as células definidas      For Each rg In rng   

          ' Caso a cor interior (background) seja a escolhida        If rg.Interior.ColorIndex = color Then

               ' Incrementa o contador             x = x + 1          

          End If

        Next

        ' Define que a função (valor a retornar) tem o valor de x      CountColors = x 

    End Function

    Agora prentedo contar, se possivel quais as linhas a azul que contêm determinado texto..  Como devo prosseguir ?

    quinta-feira, 4 de junho de 2015 10:24

Todas as Respostas