sommare le singole cifre di un numero
Claudio
è possibile con una formula sommare le singole cifre di un numero fino
ad ottenere un singolo numero??
per esempio:
numero 129 = 1+2+9 = 12 = 1 + 2 = 3
grazie per eventuali risposte
ivano
"Claudio" <teb...@gmail.com> ha scritto nel messaggio
news:1127221173.1...@z14g2000cwz.googlegroups.com...
per esempio:
grazie per eventuali risposte
Ciao,
| A |
--+----+
1| 129|
2| 12|
3| 3|
In A1 il numero da elaborare,
in A2 la formula matriciale:
=SOMMA(VALORE(STRINGA.ESTRAI(A1;RIF.RIGA(INDIRETTO("a1:a"&LUNGHEZZA(A1)));1)
))
da confermare con vctrl+maiusc+invio
e ricopia in basso
ivano
Kirk
"Claudio" <teb...@gmail.com> ha scritto nel messaggio
news:1127221173.1...@z14g2000cwz.googlegroups.com...
Ciao a tutti
ad ottenere un singolo numero??
per esempio:
numero 129 = 1+2+9 = 12 = 1 + 2 = 3
il metodo piů semplice č una funzione....tipo questa
Function sc(a)
Dim x As Integer
For x = 1 To Len(a)
sc = sc + Val(Mid(a, x, 1))
Next
End Function
da mettete in un modulo vb (alt+F11), inserisci, modulo
a questo punto ipotizzando di avere il numero in A1 ti basta scrivere in una
cella qualsiasi =sc(A1)
grazie per eventuali risposte
cucchiaino
>
> "Claudio" <teb...@gmail.com> ha scritto nel messaggio
> news:1127221173.1...@z14g2000cwz.googlegroups.com... Ciao a tutti
> è possibile con una formula sommare le singole cifre di un numero fino
> ad ottenere un singolo numero??
>
> per esempio:
>
> numero 129 = 1+2+9 = 12 = 1 + 2 = 3
>
>
>
> il metodo più semplice è una funzione....tipo questa
>
> Function sc(a)
> Dim x As Integer
> For x = 1 To Len(a)
> sc = sc + Val(Mid(a, x, 1))
> Next
> End Function
Ciao Kirk.
Se osservi la risposta di Ivano, noterai che i passaggi
possono essere più di uno ...
difatti poi dice "e ricopia in basso".
La tua funzione si ferma solo al primo.
--
()-- cucchiaino
Kirk
"cucchiaino" <so...@excel.it> ha scritto nel messaggio
news:xn0e7h8w...@powernews.libero.it...
> Kirk:
> Ciao Kirk.
>
> Se osservi la risposta di Ivano, noterai che i passaggi
> possono essere più di uno ...
>
> difatti poi dice "e ricopia in basso".
>
Scusa...
Function sc(a)
Dim x As Integer
Do
sc = 0
For x = 1 To Len(a)
sc = sc + Val(Mid(a, x, 1))
Next
a = sc
Loop Until Len(sc) = 1
End Function
Claudio
cors...@gmail.com
Bruno Campanini
Nel secondo caso bisognerebbe conoscere da quante cifre
è composto il numero.
Bruno
xxp...@gmail.com
> CIAO ANCHE IO HO QUESTO PROBLEMA DEVO SOMMA LE CIFRE DI UN MUMERO CONTENUTO IN UNA CELLA E PORTARE IL RISULTATO DELLA SOMMA IN UN ALTRA CELLA. LO DEVO FARE IN VARIE CELLE DEL FOGLIO SENZA CHE QUESTI RISULTATI SI SOMMINO TRA LORO...
in B1: =SOMMA(SE(VAL.NUMERO(1*STRINGA.ESTRAI(A1;RIF.RIGA(INDIRETTO("1:"&LUNGHEZZA(A1)));1));1*STRINGA.ESTRAI(A1;RIF.RIGA(INDIRETTO("1:"&LUNGHEZZA(A1)));1);0))
formula matriciale, una volta copiata nella barra delle formule va confermata con Ctrl+Maiusc+Invio
da trascinare in basso per le celle successive.
ciao paoloard
pfmarro
'
'es. a1 = 123
'= SommaSingoleCifre(A1)
'
'
Public Function SommaSingoleCifre(sDato As String) As Long
Dim sStringa As Integer
Dim sLungh As Integer
sStringa = 0
sLungh = Len(sDato)
If sLungh > 0 Then
For i = 1 To sLungh
sStringa = sStringa + Int(Mid(sDato, i, 1))
Next
End If
SommaSingoleCifre = sStringa
End Function
xxp...@gmail.com
=SOMMA(1*STRINGA.ESTRAI(A1;RIF.RIGA(INDIRETTO("1:"&LUNGHEZZA(A1)));1))
matriciale, da confermare con Ctrl+Maiusc+Invio
ciao paoloard
Diagonale
<<ha scritto nel messaggio
news:bb5cf9b8-75e9-4ddd...@googlegroups.com...
vai vedere il post originale di 12 anni fa :
https://groups.google.com/forum/#!topic/microsoft.public.it.office.excel/XJzjRdef4QI
xxp...@gmail.com
...
>
> <<Quando non si è chiari nella richiesta
>
> vai vedere il post originale di 12 anni fa :
>
> https://groups.google.com/forum/#!topic/microsoft.public.it.office.excel/XJzjRdef4QI
Di conseguenza, come vedi, ho poi fornito la risposta.
paoloard