x Statix57

[Roby]

hai una foruma in excel per il calcolo combinatorio ???? solo per i terni con 90 numeri ???


però in excel me li dovrebbe sviluppare

per ora ti ringrazio se hai questo è fatta

 

[imported_n/a]

Ciao ecco questa macro ti sviluppa sia le combinazioni per ambo che per terno.
cosi funziona per Terno

Sub Amberno()
Dim I As Integer: Dim J As Integer: Dim K As Integer
For I = 1 To 90
For J = 1 + I To 90
For K = 1 + J To 90                  'TERNO
If J = I Or K = I Or K = J Then GoTo skip:    '<<< TERNO/-Ambo
'If J = I Or K = I Then GoTo skip:             ' <<< AMBO/-Terno
Cells(Rows.Count, 1).End(xlUp).Offset(1, 0) = I
Cells(Rows.Count, 1).End(xlUp).Offset(0, 1) = J
Cells(Rows.Count, 1).End(xlUp).Offset(0, 2) = K     'TERNO
skip:
Next K            'Terno
Next J
Next I
End Sub

Così per ambo

Sub Amberno()
Dim I As Integer: Dim J As Integer: Dim K As Integer
For I = 1 To 90
For J = 1 + I To 90
'For K = 1 + J To 90                  'TERNO
'If J = I Or K = I Or K = J Then GoTo skip:    '<<< TERNO/-Ambo
If J = I Or K = I Then GoTo skip:             ' <<< AMBO/-Terno
Cells(Rows.Count, 1).End(xlUp).Offset(1, 0) = I
Cells(Rows.Count, 1).End(xlUp).Offset(0, 1) = J
'Cells(Rows.Count, 1).End(xlUp).Offset(0, 2) = K     'TERNO
skip:
'Next K            'Terno
Next J
Next I
End Sub

 

[imported_n/a]

sei un magoooooooooooo

 

[imported_n/a]

chiedo troppo se hai quello delle cinquine ????


cosi posso passare alla formula di ricerca ???

 

[imported_n/a]

credo per la cinquina non si possa fare ,in quanto excel non gestirebbe il quantitativo di righe,
excel 2007 arrivano fino ad un milione per 16000 colonne.
excel 97/2003 righe 65000 per 1024 colonne.
approssitivamente.

 

[alce]

Ciao Statix,
Premetto che in fatto di excel sono a zero, vorrei applicare la tua
macro, cosa devo fare?.
grazie alce