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,893 Visualizações
RSS
 maruchoa
(@maruchoa)
Posts: 18
Active 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
 gfranco
(@wzxnet7)
Posts: 653
Honorable 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)))))

Resposta útil? Clique na mãozinha ao lado do botão Citar.

 
Postado : 04/09/2018 1:09 pm
gfranco
 gfranco
(@wzxnet7)
Posts: 653
Honorable 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)))

Resposta útil? Clique na mãozinha ao lado do botão Citar.

 
Postado : 04/09/2018 1:13 pm
Wagner Morel
 Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious 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

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

 
Postado : 04/09/2018 1:13 pm
xlarruda
 xlarruda
(@xlarruda)
Posts: 732
Honorable 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ç!

___________________________________________________________________________________________
Se a resposta atendeu sua dúvida, por favor, clique no Gostei e marque o Tópico como [Resolvido].

Att.

André Arruda

 
Postado : 04/09/2018 2:06 pm
 maruchoa
(@maruchoa)
Posts: 18
Active 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