You are here:---Rispondi a: [RISOLTO] Piramidare numeri
Rispondi a: [RISOLTO] Piramidare numeri 2018-11-28T18:19:50+02:00

Home Forum Domande su Formule e Funzioni [RISOLTO] Piramidare numeri Rispondi a: [RISOLTO] Piramidare numeri

sidsid
Moderatore
    Post totali: 639

    Prova questa udf

    Public Function PIRAMIDE(n1, n2, n3, n4, n5) As Integer
    Dim vArr As Variant
    Dim j As Long
    Dim s As String, sAppoggio As String
    Dim nDecina As Integer, nUnita As Integer
    vArr = Array(n1, n2, n3, n4, n5)
    
    For j = LBound(vArr) To UBound(vArr)
        nUnita = vArr(j) Mod 10 'unità
        nDecina = (vArr(j) - nUnita) / 10 'decina
        s = s & nDecina & nUnita
    Next j
    
    Do
        For j = 1 To Len(s) - 1
            If Val(Mid(s, j, 1)) + Val(Mid(s, j + 1, 1)) > 9 Then
                sAppoggio = sAppoggio & Val(Mid(s, j, 1)) + Val(Mid(s, j + 1, 1)) - 9
            Else
                sAppoggio = sAppoggio & Val(Mid(s, j, 1)) + Val(Mid(s, j + 1, 1))
            End If
        Next j
        s = sAppoggio
        sAppoggio = vbNullString
    Loop Until Len(s) = 2
    
    PIRAMIDE = Val(s)
    End Function

    in I7
    =PIRAMIDE(C7;D7;E7;F7;G7)

    e trascini

    Non so quanto è grande il tuo database; nel caso fosse lenta proviamo con una macro

    Utilizzando il sito, accetti l'utilizzo dei cookie da parte nostra. maggiori informazioni

    Questo sito utilizza i cookie per fornire la migliore esperienza di navigazione possibile. Continuando a utilizzare questo sito senza modificare le impostazioni dei cookie o cliccando su "Accetta" permetti il loro utilizzo.

    Chiudi