You are here:---Rispondi a: abbinamenti
Rispondi a: abbinamenti2018-05-05T10:33:33+02:00

Home Forum Domande su Excel VBA e MACRO abbinamenti Rispondi a: abbinamenti

sidsid
Moderatore
    Post totali: 718

    Te hai detto che non vuoi che la macro sia statica, cioè legata alla sola riga 10, ma renderla flessibile anche per altre righe. Te hai 20 numeri in riga 10 per lo sviluppo degli ambi, e 20 numeri in riga 11 per lo sviluppo dei terni.
    Ora non capisco cosa intendi con “trascinare”.

    In ogni caso ti posto la macro per i terni

    Sub terni()
    Dim x As Variant, vTerni(1 To 1140, 1 To 1) As Variant
    Dim j As Long, jj As Long, jjj As Long, nIncr As Long
    Dim ws1 As Worksheet
    
    Set ws1 = Sheets("Foglio1")
    x = Application.Transpose(ws1.Range("C11:V11").Value)
    
    For j = LBound(x) To UBound(x) - 2
        For jj = j + 1 To UBound(x) - 1
             For jjj = jj + 1 To UBound(x)
                nIncr = nIncr + 1
                vTerni(nIncr, 1) = x(j, 1) & "_" & x(jj, 1) & "_" & x(jjj, 1)
            Next jjj
        Next jj
    Next j
    ws1.Range("W11:ARR11").Value = Application.Transpose(vTerni)
    Set ws1 = Nothing
    End Sub

    Lo sviluppo avviwene come per i terni, dalla cella W11 verso destra

    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