Excel] Formula per combinare 90 numeri

[Statix]

Ciao a tutti ,come da titolo,stò cercando la formula per combinare i 90 numeri in ambi e terni, avevo la formula ,ma nel tempo lo persa ,causa rottura hard disk,e per di più avevo anche la formula per la classificazione.

con i 90 numeri si formano 4005 ambi e 117480 terni.
1° mi servirebbe la formula per sviluppare gli ambi e terni
2° dato un ambo o terno restituirmi la classificazione

un esempio del 1°

sviluppo ambi
1-2
1-3
1-4
1-5
etc.
89-90

per un totale di 4005 ambi

la stessa cosa per i terni
1-2-3
1-2-4
1-2-5
1-2-6
etc
88-89-90
totale 117480 terni

esempio 2°


se prendo l' ambo 1-3 la sua classificazione = 2
se prendo l' ambo 1-5 la sua classificazione =4
se prendo il terno 88-89-90 la sua classificazione = 117480

nel frattempo cerco di ritrovare le formule.

[Statix]

al momento,dopo aver spulciato tutti i cd di backup dei miei hard-disk ho trovato la formula della classificazione degli ambi

=SOMMA(A*(179-A+2*B-180)/2)

A e B sono i due numeri che formano l'ambo,
quindi sostituire alla formula A e B con i due numeri che formano l'ambo, ordinati dal più piccolo al più grande
non mi resta che trovare la formula per la classificazione dei terni.

[Anthony47]

Non sono certo di cosa vuoi fare, ma questa macro ti calcola su col A, B e C le n combinazioni per l' ambo e il terno.

Codice: Seleziona tutto

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

Le 2 istruzioni marcate <<< sono alternative (o scommenti l' una o l' altra), mentre le istruzioni marcate "TERNO" le scommenterai per il calcolo del terno.

Ciao.

[Statix]

Ciao Anthony47
la macro tutto ok.
mi serve la formula per calcolare la classificazione del terno
ti faccio un esempio
1-2-3 classificazione 1
1-2-4 classificazione 2
88-89-90 classificazione 117480
in poche parole se prendo un terno qualsiasi la formula mi deve restituire la classificazione

questa e dell'ambo
=SOMMA(A*(179-A)+2*B-180)/2

dato 2 numeri mi trova la classificazione dell'ambo.
per il terno non ci riesco,l'avevo ma lo perduta.

[Anthony47]

Mah, non so che cosa sia la classificazione del terno ma forse lo puoi calcolare con questo codice:

Codice: Seleziona tutto

Function Ambernof(VA, VB, VC)
Dim I As Integer: Dim J As Integer: Dim K As Integer
Ambernof = 1
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 I >= VA And J >= VB And K >= VC Then Exit Function    '<<<TERNO/-Ambo
Ambernof = Ambernof + 1
skip:
Next K
Next J
Next I
End Function

Poi userai la formula =ambernof(A;B;C) dove A, B e C sono 3 numeri estratti, in ordine crescente.
Non e' molto veloce, ma se non sbaglio le estrazioni ci sono solo 2 volte alla settimana...

Ciao.

[Statix]

Ciao Anthony47,
ti volevo chiedere se era possibile applicare alla macro che hai postato,uno step

Function Ambernof(VA, VB, VC)
Dim I As Integer: Dim J As Integer: Dim K As Integer
Ambernof = 1
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 I >= VA And J >= VB And K >= VC Then Exit Function '<<<TERNO/-Ambo
Ambernof = Ambernof + 1
skip:
Next K
Next J
Next I
End Function

in modo da visualizzare solo le combinazioni con classe 1 o 2 etc.
La classificazione degli ambi parte da 1 prima combinazione 1-2
per finire a 4005 per l'ultima combinazione 89-90.
esempio vorrei visualizzare solo la
1
11
21
31
41
51
fino alla
4001
delle combinazioni sviluppate.

[Anthony47]

La funzione, data una sequenza di numeri ti dice in che posizione e' nella sequenza teorica; mi pare che tu voglia fare l' opposto, cioe' ottenere la combinazione 1, 11, 21, etc.
Per questo, applica la "macro" Amberno per il calcolo delle sequenze di ambo, poi in una colonna con una serie (1,2,3,4,5, ) scrivi il numero della sequenza, in altra colonna con =RESTO(Sequenza;10) calcoli un numero ripetitivo 0-9; applichi un filtro automatico; scegli "diverso da" 1; cancelli tutte le righe che selezioni, ti rimangono solo quelle che cercavi.

Ciao.

[Statix]

Ciao Anthony47,
nel Range A1:A4005 sono numerate le combinazioni (classificazione)
ho trovato un'altra soluzione,in una colonna E ho estratto con la formula
=--Destra(A1)

copia fino a =--Destra(A4005)
e con un filtro mi seleziono il valore 0 o 1 etc.