dx, sx, palla al centro

[giorgioa]

Salve a tutti,

semplice, semplice, semplice:
Ho un numero a 3 anche 4 o 5 unita,
es a 3 cifre: 221 vorrei sommare le prime 2 cifre
=somma(sx+ centro? cosa uso?)
es a 4 cifre 2214 vorrei sommare le prime 3 cifre
=somma(sx+?+?)
es a 5 cifre:22145.....
Fatto la somma dei primi 2 il numero sarà 41(2+2)
fatto la somma dei primi 3 il numero sarà 54(2+2+1)
fatto la somma dei primi 4 il numero sarà 95(2+2+1+4)
in questo caso se la somma supera 90 e fino a 99 la prima cifra di quel numero
non viene contata mentre se supera 99 ad esempio 100 si ricomincia il conteggio come nel caso dei
3 numeri 4 oppure 5 Senza sommare l'ultima cifra.
Quale formula devo usare per questa operazione?

"l'unica cifra che non devo sommare è sempre l'ultima."

Grazie dell'aiuto

[wallace&gromit]

semplice, semplice,.... fai presto a dirlo!
la prima cosa difficile è capire esattamente quello che vuoi.
Comunque sia chiaro che per le formule è troppo complesso.
Prova questa user function e, con qualche tuo esempio, vediamo dove ha successo e dove fallisce.

Codice: Seleziona tutto

Public Function somma2(inizio)
txt = inizio
Do While Len(txt) > 2
somma3 = val(Mid(txt, 1, 1)) + val(Mid(txt, 2, 1))
txt = somma3 & Mid(txt, 3, Len(inizio) - 2)
Loop
somma2 = val(txt)
End Function


se la tua cifra è in A1,nella cella dove vuoi il calcolo inserirai la formula:

Codice: Seleziona tutto

=somma2(A1)


[giorgioa]

Salve Wallace&Gromit,

Aladino ha strofinato la lampada ed il genio è uscito e mi ha
detto cret.. fai così ....
Se hai detto che è semplice semplice semplice!!!

Il "cret.." è riferito a me.

Ok, va che è una meraviglia.

Bhe! visto che mi stai sopportando per tutte le vacanze ti svelo
perchè la userò o si può usare
cosa pensi se al posto di usare la funzione resto per eliminare i sopra 90 questa che hai
scritto la potrebbe sostituire?



cosa ne pensi?
Che genio, da il genio della lampada

[giorgioa]

Ciao Wallace&G,

va che è una meraviglia... quasi
per esempio il numero 187 = 97
in questo caso mi dovrebbe dare 7
cioè 91-92-93...99 non conteggia il primo numero
è come se fosse 17 che rimane 17 oppure 63 che rimane 63
non so se mi sono spiegato.
Infatti non ho riportato, entro da 1 a 90 alcun esempio sommatoria
Ciao

[wallace&gromit]

che avevi un conto in sospeso con i sopra 90 l'avevo capito, ma che questa funzione te lo risolva mi sorprende alquanto, comunque, se funziona, tu usala come meglio ti pare.

[giorgioa]

-
...

credo di aver scoperto come si fa l'acqua calda... la metti al sole ed è fatta.

da l'assassino torna sempre più volte sul luogo del delitto ..gli OVER 90

Ho approfondito il perchè del 9 prima dell'ultimo numero
quando le cifre precedenti all'ultimo numero sommati fanno 9
allora non ne tiene conto.
Per esempio 181 lui fa 91; 271 lui fa 91 eccetera
Attenzione che se fa somma 90 va bene.

Cerco di dare ulteriori notizie se gradite.

[wallace&gromit]

È che tu mica l'avevi detto che c'era questa storia degli over 90.
Se ti disturbano li togliamo, non c'è problema:

Codice: Seleziona tutto

Public Function somma2(inizio)
txt = inizio
Do While Len(txt) > 2
somma3 = val(Mid(txt, 1, 1)) + val(Mid(txt, 2, 1))
txt = somma3 & Mid(txt, 3, Len(inizio) - 2)
Loop
somma2 = val(txt)
If somma2 > 90 Then
somma2 = somma2 - 90
End If
End Function

[Anthony47]

Tanto di cappello a w&g per l'algoritmo usato nella function! (la versione piu' aggiornata e' subito prima di questo mio messaggio).

Solo per curiosita', forse questa formula produce lo stesso risultato:

Codice: Seleziona tutto

=SE(RESTO(--(SOMMA(--STRINGA.ESTRAI(A2;RIF.RIGA(INDIRETTO("1:" & LUNGHEZZA(A2)-1));1))&DESTRA(A2;1));90)=0;90;RESTO(--(SOMMA(--STRINGA.ESTRAI(A2;RIF.RIGA(INDIRETTO("1:" & LUNGHEZZA(A2)-1));1))&DESTRA(A2;1));90))

Da confermare con Contr-Maiusc-Enter, non il solo Enter
Il dato iniziale e' in A2

Ciao a tutti

[wallace&gromit]

wow!
ero convinto che con le formule non fosse possibile (almeno non in una forma tutto sommato così sintentica), ma non è la prima volta che Anthony fa crollare le mie convinzioni!
Grazie comunque per i complimenti per la mia function, ma mi rendo conto che sono a livelli ben più bassi.

[giorgioa]

Salve e buona domenica,

un saluto e un grazie(TANTI).

[RISOLTO]