locked
Retornar o resultado de uma fórmula numa variável RRS feed

  • Pergunta

  • Pessoal, 

     

    Tenho a seguinte situação:

     

    Sub ContarEng()

     

    'Verifica a quantidade de Engagements para definir a quantidade de Loops

     

    Dim i As Integer

    Dim x As Integer

     

    x = 0

    i = 8

     

    While Cells("20", i) <> 0

        x = x + 1

        i = i + 3

    Wend

     

    End Sub

     

    Quero saber como faz para retornar o valor dessa fórmula numa variável!!

     

    Alguém sabe me dizer??

    sexta-feira, 4 de fevereiro de 2011 13:39

Todas as Respostas

  • Transforme a rotina numa função, assim

     

    function sub ContarEng() as integer

     'Verifica a quantidade de Engagements para definir a quantidade de Loops

     Dim i As Integer

    Dim x As Integer

     x = 0

    i = 8

     While Cells("20", i) <> 0

        x = x + 1

        i = i + 3

    Wend

    ContarEng = x

    End function

     

    vc usaria numa fórmula na sua planilha

     

    =contareng()

     

    Opcionalmente, vc pode passar como parametro as linhas que vc quer contar.


    João Eurico Consultor Manguetown - Brazil
    sexta-feira, 4 de fevereiro de 2011 14:11