Excel e Lotto. Calcolo combinazioni

[Cele79]

Ciao a tutti.
Vorrei sapere se è possibile o c'è già una macro che calcoli le combinazioni tra numeri del lotto!.
ora spigo meglio:

Nelle celle che vanno Q7 a AJ7 io metto 20 numeri che si posso combinare tra di loro
Nelle celle che vanno da B a F mi deve scrivere le combinazioni

esempio 1 2 3 4 5 6 sono i numeri da combinare
quindi le combinazioni da B a F sono:
1 2 3 4 5
1 2 3 4 6
1 2 3 5 6
1 2 4 5 6
1 3 4 5 6
2 3 4 5 6

Queste se le voglio cercare a gruppi di 5
E se è possibile anche a gruppi di 4 3 e 2 numeri!
Grazie!

[Anthony47]

Tempo fa avevo realizzato, non ricordo per quale discussione, questo codice:

Codice: Seleziona tutto

Public col(100), r, n, nr As Long, Col2() As Integer
Function comb2(k)
'Variante che lavora con Col2()
col(k) = col(k - 1)
While col(k) < n - r + k
    col(k) = col(k) + 1
    If k < r Then
        comb2 (k + 1)
    Else
        nr = nr + 1
        For i = 1 To r
            Col2(nr - 1, i - 1) = col(i)
            'Cells(nr, i) = col(i)
        Next
    End If
Wend
End Function


Sub Anth()
Col2H = Evaluate("FACT(B1)/FACT(B2)/FACT(B1-B2)")
ReDim Col2(Col2H, [B2] - 0)
'Ih = 1: Iv = 1
Foglio1.Range("a4:EA" & Rows.Count).ClearContents
nr = 0
k = 1
r = Cells(2, 2)
n = Cells(1, 2)
[g1] = Timer
comb2 (k)
Range("A4").Resize([M2], [B2]) = Col2
[g2] = Timer
ReDim Col2(1, 1)
End Sub

Presuppone che i dati di partenza sia riportati in B1 (valori totali) e B2 (raggruppamenti da eseguire), e i dati saranno inseriti da riga 4 in avanti.
In M2 viene visualizzato il numero di combinazioni da cercare, noti B1 e B2; quindi attenzione a cercare di elaborare elenchi "lunghi".



Parti da un file nuovo; Alt-F11 per aprire l' editor delle macro; Menu /Inserisci /Modulo; copia il codice e inseriscilo nel frame vuoto di dx.

Torna sul foglio excel, disegna un Pulsante o una Forma e assegnagli la macro "Anth".
In M2 metterai la formula

Codice: Seleziona tutto

=COMBINAZIONE(B1;B2)

Poi compila B1 e B2 e lancia la macro.

Ciao

[Cele79]

Mi da errore di run time 1004 e mi evidenzia questo in giallo nella macro

Codice: Seleziona tutto

Range("A4").Resize([M2], [B2]) = Col2


[Anthony47]

Mi dici cosa c' e' in B1, in B2 e in M2?

Ciao

[Cele79]

B1 7
B2 5
M2 nulla

ora ho messo combinazione(B1;B2) e mi funziona bene!
E se vorrei inserire dei numeri miei?
Cioè combinare numeri scelti da me!

Il calcolo delle combinazioni cosi me lo sono fatto con delle formule e va piu che bene quando fa i calcoli delle combinazioni ma dopo ci sono altre formule e calcoli che deve fare e quando metto da 16 numeri in su è molto lento!
Piano piano se la cosa non ti disturba voglio farlo funzionare tutto con delle macro!
ti ringrazio!

[Anthony47]

La macro che ho suggerito e' idonea per molte migliaia di combinazioni.

Se vuoi usare dei numeri tuoi allora usa la macro per calcolare le combinazioni teoriche; poi fai una tabella con in prima colonna i numeri come usati nella macro (1, 2, 3,...) e in seconda colonna i tuoi numeri preferiti.
Poi con Cerca.Vert ti crei una seconda tabella ove i numeri sequenziali sono sostituiti da quelli preferiti.

Ciao

[Cele79]

Sono riuscito a fare coma mi hai detto e mi sono spostato le combinazioni da un'altra parte del foglio!

Ora ti chiedo un'altro favore sempre se è possibile!
Cerco di spiegare:

Con la macro che mi hai dato io mi calcolo tutte le combinazioni che possono essere Ambi Terni Quaterne e Cinquine!

Codice: Seleziona tutto

=SE(SOMMA(CONTA.SE($B5:$F5;AM$5:AM$9))<2;"";COMBINAZIONE(SOMMA(CONTA.SE($B5:$F5;AM$5:AM$9));2))


Con questa combinazione io mi calcolo quanti ambi sono usciti nell'ultima estrazione prendendo la prima combinazione calcolata
Faccio esempio
estrazioni dalla numero 1 alla numero 157
1° 2° 3° 4° 5° 6° 7° sino alla numero 157
Mettiamo che la prima estrazione parta dalla colonna AM riga 5
1 le estrazioni si aggiornano in automatico tramite un'altro documento di calcolo
2
3
4
5
Combinazioni calcolate dalla macro
1 2 3 6 7
1 2 9 6 8 ecc. ecc.

Nella prima combinazione rispetto alla prima estrazione sono usciti 3 ambi mentre nella seconda combinazione 1 ambo e cosi via per tutte le combinazioni per 157 estrazioni!
Io uso quella formula e quando supero le 3000 combinazioni diventa pesante anche perchè dopo quella formula con questa formula

Codice: Seleziona tutto

=SE(G5="";"";SOMMA.SE($AL$3:$GL$3;"=1";AL10:GL10))


Mi faccio la somma degli ambi e gli metto in una colonna affianco alla combinazione
Quindi nella prima combinazione in 157 estrazioni possono essere usciti 5 ambi nella seconda magari 4 nella 3 magari 1 e cosi per tutte le combinazioni!
Dopo che ho il numero degli ambi usciti per ogni combinazione uso questa formula

Codice: Seleziona tutto

=SE(G5="";"";INDICE($G$5:SCARTO($G$4;$A$3;0);CONFRONTA(PICCOLO($H$5:SCARTO($H$4;$A$3;0)+RIF.RIGA($H$5:SCARTO($H$4;$A$3;0))/100000;RIF.RIGA(G6)-RIF.RIGA($G$5));$H$5:SCARTO($H$4;$A$3;0)+RIF.RIGA($H$5:SCARTO($H$4;$A$3;0))/100000;0)))


per ordinare le combinazioni tramite l'esito degli ambi dal piu piccolo al piu grande e questo mi rallenta molto molto i calcoli visto che se metto 15 numeri ci mette piu di 5 minuti a farmi tutti i calcoli e in alcuni casi ne dovrei mettere anche 30!
Esiste una macro che possa fare tutto questo?
Sempre se la cosa è possibile altrimenti pazienza!
Grazie!
Sempre se la cosa è possibile

[Anthony47]

Mi spiace, ma quanto a Lotto e affini so a mala pena che cosa e' un ambo; pertanto non sono in grado di fare alcuna valutazione sui quesiti proposti.

Spero che qualche appassionato si inserisca...

[Cele79]

No preoccuparti Anthony!
Ti ringrazio lo stesso!

[Cele79]

Forse ho messo troppe cose e non si capisce nulla di quello che chiedo.
Ora cerco di spiegare meglio quello che voglio per primo:

Nel range A10:F10 io ho una combinazione di numeri che può essere composta da 2 3 4 o 5 numeri ma non meno di 2 e non più di 5.
Nel range J5:J9 ho l'ultima estrazione e quindi ci sono sempre 5 numeri
Sia le combinazioni che le estrazioni vengono aggiornate con altre formule.

Io chiedo se è possibile fare una macro che mi dica quanti ambi sono usciti e che me lo scriva nella cella J10
Se tra la combinazione e l'estrazione ci sono due numeri uguali mi deve scrivere 1 se ce ne sono 3 mi deve scrivere 3, se ce ne sono 4 mi deve scrivere 6 mentre se ce ne sono 5 mi deve scrivere 10.

io uso questa formula se puo esservi utile

Codice: Seleziona tutto

=SE(AK10="";"";SE($A$3=0;"";SE(SOMMA(CONTA.SE($B5:$F5;AL$5:AL$9))<2;"0";COMBINAZIONE(SOMMA(CONTA.SE($B5:$F5;AL$5:AL$9));2))))


Grazie!

[Cele79]

[Flash30005]

Ti conviene inviare il file per capire meglio il quesito
e darci la possibilità di intervenire
ciao

[Anthony47]

Segnalo che in quest' altra discussione e' stata presentata una revisione del codice che, tra l altro, consente di creare le combinazioni di un elenco di voci dichiarate in una tabella: viewtopic.php?f=26&t=101779&p=588947#p588947
In questo modo si potranno ottenere combinazioni del tipo

Codice: Seleziona tutto

Mela  Pera   Limone
Mela  Pera   Fragola
Mela  Limone Fragola

(invece che del tipo 1, 2, 3 /1, 2, 4 /1, 3, 4)

Ciao