Sommare le cifre fino ad averne una

Question

Mi spiego meglio. Mi serve una funzione o una macro in visual basic che dato un nimero mi restituisca la somma di tutti i numeri fino ad averne uno solo. 123 = 6 .  999 = 27 = 9 . 789 = 24 = 6 . ecc. Spero di essere stata chiara.

Answer 1

Mi spiego meglio. Mi serve una funzione o una macro in visual basic che dato un nimero mi restituisca la somma di tutti i numeri fino ad averne uno solo. 123 = 6 .  999 = 27 = 9 . 789 = 24 = 6 . ecc. Spero di essere stata chiara.

Una specie di *cabala*... ;-) Vedi un po' se ho capito quello che vuoi:

Public Function f(ByVal lNumero As Long) As Long

    Dim lng As Long

    Application.Volatile

    Do Until Len(CStr(lNumero)) = 1

        f = 0

        For lng = 1 To Len(CStr(lNumero))

            f = f + Mid(lNumero, lng, 1)

        Next

        lNumero = f

    Loop

End Function

Da richiamare così da codice:

Public Sub m()

    Dim v As Variant

    v = Application.InputBox("Inserore il numero")

    If v = False Or v = "" Then Exit Sub

    MsgBox f(v)

End Sub

Da richiamare cos' da una cella(qui A1 contiene il numero):

B1: =f(A1)

Fai sapere, grazie.

Answer 2

Va bene grazie.