Domanda.     

nome=Piteri
cognome=Giovanni
versione=XP Pro
conosco2=medio
email=piteri@libero.it

problema=
Complimenti per il sito a cui o attinto validi suggerimenti,
ringrazio anticipatamente per la risposta. La mia domanda a cui
non trovo risposta è: E' possibile sommare la decina con lunità
di un numero a due cifre contenuto nella stessa cella tante volte
fino ad avere un numero compreso tra uno e nove?
Es. 85 8+5=13; 1+3=4. Spero di essere stato chiaro
 

Risposta

ciao Giovanni, spero tu conosca il VBA. Questa routine ti fa quello che chiedi, io ho usato la cella A1 come quella che contiene il numero, e la B1 come risultato della scomposizione e somma. Se tu vuoi che il risultato avvenga nella stessa A1, dovrai sostituire i riferimenti dove vedi scritto [B1] con [A1]

Sub scomponisomma()
Dim X As String
Dim Y As Integer, M As Integer
Dim Z As Integer, G As Integer
Dim W As String
Dim T As Integer
X = [A1].Value
lenuno = Len(X)
If lenuno = 2 Then
Y = Left(X, 1)
Z = Right(X, 1)
W = Y + Z
lendue = Len(W)
If lendue = 2 Then
M = Left(W, 1)
G = Right(W, 1)
T = M + G
[B1] = T
Else
[B1] = W
End If
End If
End Sub

usa il copia/incolla per ricopiarti tutta la macro e provarla. Tieni presente che la routine funziona solo con due numeri interi in A1, da 10 a 99. Ciao, ennius