locked
Soma valores em formato de texto RRS feed

  • Pergunta

  • Olá pessoal,

     

    Alguém saberia me dizer qual fórmula devo usar para somar números que estejam em formato de texto numa mesma célula, como no exemplo abaixo?

     

    Valor

    Soma

    1, 1, 1 3
    2, 15, 3, 1 21
    12, 23, 9 56
    8, 8, 12 28

     

     

    Tks

    Jerson

    segunda-feira, 28 de julho de 2008 14:46

Respostas

  • Olá, Jerson

    Creio que esta função personalizada deve resolver a tua questão.

     

    Code Snippet
    Function SOMAINTERNA(Célula As Range)
    Dim Valores As Variant
    Dim k As Integer
    Valores = Split(Célula, ",")
    For k = 0 To UBound(Valores)
    If IsNumeric(Valores(k)) Then SOMAINTERNA = SOMAINTERNA + CDbl(Valores(k))
    Next k
    End Function

     

     

     

    [ ]s

     

    segunda-feira, 28 de julho de 2008 20:30

Todas as Respostas

  • Olá, Jerson

    Creio que esta função personalizada deve resolver a tua questão.

     

    Code Snippet
    Function SOMAINTERNA(Célula As Range)
    Dim Valores As Variant
    Dim k As Integer
    Valores = Split(Célula, ",")
    For k = 0 To UBound(Valores)
    If IsNumeric(Valores(k)) Then SOMAINTERNA = SOMAINTERNA + CDbl(Valores(k))
    Next k
    End Function

     

     

     

    [ ]s

     

    segunda-feira, 28 de julho de 2008 20:30
  • Perfeito Adilson... quebrei um pouco a cabeça pra fazer funcionar, mas consegui.

     

    Muito obrigado e um grande abraço.

     

    Sds

    Jerson

    terça-feira, 29 de julho de 2008 13:23