You are here:---Rispondi a: rivedere piramidi
Rispondi a: rivedere piramidi2018-12-13T19:58:37+02:00

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

sidsid
Moderatore
    Post totali: 712

    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

    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