You are here:Home-Domande su Excel VBA e MACRO-rivedere piramidi-Rispondi a: rivedere piramidi
Rispondi a: rivedere piramidi2018-12-13T19:58:37+01:00

Home Forum Domande su Excel VBA e MACRO rivedere piramidi Rispondi a: rivedere piramidi

sidsid
Moderatore
    Post totali: 749

    Allora ti passo la udf modificata adattata da 2 a 20 numeri
    Ammettendo che hai i tuoi numeri da colonna C a colonna V come da immagine sottostante; il risultato in colonna X.

    La udf modificata con un solo argomento invece che 5

    Public Function PIRAMIDE(rng) 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 = rng.Value
    
    For j = LBound(vArr, 2) To UBound(vArr, 2)
        nUnita = vArr(1, j) Mod 10 'unità
        nDecina = (vArr(1, j) - nUnita) / 10 'decina
        If nDecina = 0 And nUnita = 0 Then Exit For
        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 = IIf(Val(s) > 90, Val(s) - 90, Val(s))
    End Function
    

    Nella cella che vuoi (io l’ho messa in colonna X19) inserisci
    =piramide(C19:V19)
    e trascini giù

    Nelle celle in cui c’è la udf, per visualizzare lo zero davanti ai numeri singoli, le celle vanno formattate con formato personalizzato 00

    Spero sia chiaro