You are here:---Rispondi a: [RISOLTO] Piramidare numeri
Rispondi a: [RISOLTO] Piramidare numeri2018-11-23T18:23:44+02:00

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

BySalvBySalv
Amministratore del forum
    Post totali: 505

    Cioa Giorgioantonio, prova questa

    Sub Piramide()
    Dim r, cc, x, n1
    
    Range("A2:AA100").ClearContents
    r = 1
    1:
    cc = Cells(r, Columns.Count).End(xlToLeft).Column
    If cc = 1 Then Exit Sub
    For x = 1 To cc - 1
        If Len(Cells(r, x)) > 1 Then n1 = Val(Mid(Cells(r, x), 1, 1)) + Val(Mid(Cells(r, x), 2, 1)) Else n1 = Cells(r, x) + Cells(r, x + 1)
        If n1 > 9 Then n1 = n1 - 9
        Cells(r + 1, x) = n1
    Next x
    r = r + 1
    GoTo 1
    End Sub

    fai le prove vedi se va bene

    Ciao By Sal :bye:

    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