Forum di Excel e VBA, per condividere esperienze e risolvere problemi su: Excel, Word, Access, Power Point, Microsoft Office, macro, Visual Basic e Visual Studio.
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