combinazioni



  • combinazioni
    di Carlo (utente non iscritto) data: 14/02/2017 22:10:55

    vorrei poter sviluppare tutte le combinazioni senza ripetizioni di (n k) ma senza che incorri nell'errore run time 1004; ho già abbozzato un codice che funziona bene se le combinazioni non sono molte. avevo pensato, visto che il problema sono le " poche " righe di un foglio Excel, che le restanti righe da sviluppare fossero scritte in altri fogli, fino al completamento di tutte le combinazioni. chi può aiutarmi? grazie in anticipo.
     
    Public col(100), r, n, nr As Double
    Function comb(k)
    
    col(k) = col(k - 1)
    While col(k) < n - r + k
    
    col(k) = col(k) + 1
    If k < r Then
    comb (k + 1)
    Else
    nr = nr + 1
    For i = 1 To r
    Cells(nr, i) = col(i)
    Next
    End If
    
    Wend
    
    
    End Function
    



  • di patel data: 15/02/2017 08:18:24

    come si usa la tua function ?