Fóruns
Microsoft Excel - 2...
2024 - Fórmulas Ava...
Como Somar os Algar...
 
Notifications
Clear all

Como Somar os Algarismos de um Número Inteiro em um Célula?

 
2024 - Fórmulas Avançadas - Funções Microsoft Excel
Post Recente por maruchoa 6 anos atrás
6 Posts
4 Usuários
0 Reactions
2,869 Visualizações
RSS
 maruchoa
(@maruchoa)
Posts: 0
New Member
Topic starter
 

Olá, preciso de uma Fórmula onde eu consiga somar os Algarismos de um número. Vou explicar melhor:

A1=1245

B1 (seria a soma dos algarismos de A1), ou seja, B1=1+2+4+5.

O resultado de B1 teria que dar = 12

Espero ter explicado direito e conto com vocês. Estou precisando muito dessa fórmula!
Desde já agradeço!

 
Postado : 04/09/2018 12:51 pm
 gfranco
(@wzxnet7)
Posts: 0
New Member
 

Boa tarde.
Para versões do Excel a partir de 2010 (inclusive) o seguinte me parece suficiente (em B1):

=SOMARPRODUTO(AGREGAR(14;6;--(EXT.TEXTO(A1;LIN(INDIRETO("1:"&NÚM.CARACT(A1)));1));LIN(INDIRETO("1:"&NÚM.CARACT(A1)))))
 
Postado : 04/09/2018 1:09 pm
 gfranco
(@wzxnet7)
Posts: 0
New Member
 

Para todas as outras versões (inclusive para as versões 2010 e/ou posteriores), uma construção matricial (que deve ser encerrada com CONTROL+SHIFT+ENTER) dará igualmente conta do recado:

=SOMA(--(EXT.TEXTO(A1;LIN(INDIRETO("1:"&NÚM.CARACT(A1)));1)))
 
Postado : 04/09/2018 1:13 pm
 Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 4063
Famed Member
 

maruchoa,

Boa tarde!

Fiz com uma pequena função definida pelo usuário (UDF) com VBA.

Veja se pode ser assim.

Somar Algarismo de um número inteiro na célula.zip
 
Postado : 04/09/2018 1:13 pm
 xlarruda
(@xlarruda)
Posts: 0
New Member
 

Segue minha contribuição:
Dessa forma pode até haver letras misturadas que continuará somando...

Function SOMAR_CARACTERES(texto As String)
Dim mystring As String
Dim num As Long
For num = 1 To Len(texto)
    If Mid(texto, num, 1) <= 9 Then
        mystring = mystring + Mid(texto, num, 1) & "+"
    End If
Next
SOMAR_CARACTERES = Evaluate("=" & Left(mystring, Len(mystring) - 1))
End Function

Abrç!

 
Postado : 04/09/2018 2:06 pm
 maruchoa
(@maruchoa)
Posts: 0
New Member
Topic starter
 

Pessoal,
Muito obrigado!

Todas funcionaram Perfeitamente, tanto as Fórmulas quanto o VBA.
Muito obrigado mesmo.

 
Postado : 04/09/2018 2:30 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico