Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

Excel e Lotto. Calcolo combinazioni

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

Excel e Lotto. Calcolo combinazioni

Postdi Cele79 » 22/01/14 14:29

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!
Cele79
Utente Junior
 
Post: 82
Iscritto il: 14/01/14 12:32

Sponsor
 

Re: Excel e Lotto. Calcolo combinazioni

Postdi Anthony47 » 23/01/14 02:04

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".

Immagine

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
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13903
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Excel e Lotto. Calcolo combinazioni

Postdi Cele79 » 23/01/14 07:47

Mi da errore di run time 1004 e mi evidenzia questo in giallo nella macro
Codice: Seleziona tutto
Range("A4").Resize([M2], [B2]) = Col2
Cele79
Utente Junior
 
Post: 82
Iscritto il: 14/01/14 12:32

Re: Excel e Lotto. Calcolo combinazioni

Postdi Anthony47 » 23/01/14 11:33

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

Ciao
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13903
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Excel e Lotto. Calcolo combinazioni

Postdi Cele79 » 23/01/14 12:23

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!
Cele79
Utente Junior
 
Post: 82
Iscritto il: 14/01/14 12:32

Re: Excel e Lotto. Calcolo combinazioni

Postdi Anthony47 » 25/01/14 00:03

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
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13903
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Excel e Lotto. Calcolo combinazioni

Postdi Cele79 » 30/01/14 18:22

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
Cele79
Utente Junior
 
Post: 82
Iscritto il: 14/01/14 12:32

Re: Excel e Lotto. Calcolo combinazioni

Postdi Anthony47 » 31/01/14 00:47

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...
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13903
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Excel e Lotto. Calcolo combinazioni

Postdi Cele79 » 31/01/14 07:12

No preoccuparti Anthony!
Ti ringrazio lo stesso!
Cele79
Utente Junior
 
Post: 82
Iscritto il: 14/01/14 12:32

Re: Excel e Lotto. Calcolo combinazioni

Postdi Cele79 » 01/02/14 12:53

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
Utente Junior
 
Post: 82
Iscritto il: 14/01/14 12:32

Re: Excel e Lotto. Calcolo combinazioni

Postdi Cele79 » 05/02/14 13:23

:cry:
Cele79
Utente Junior
 
Post: 82
Iscritto il: 14/01/14 12:32

Re: Excel e Lotto. Calcolo combinazioni

Postdi Flash30005 » 05/02/14 14:15

Ti conviene inviare il file per capire meglio il quesito
e darci la possibilità di intervenire
ciao
Flash
Win7 + Office 2010 Ita
"Fotografica" al servizio dell'immagine

Ottime opportunità di lavoro (part-time o full-time) con guadagni immediati. Info in MP
Avatar utente
Flash30005
Moderatore
 
Post: 8460
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: Excel e Lotto. Calcolo combinazioni

Postdi Anthony47 » 19/04/14 02:31

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
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13903
Iscritto il: 21/03/06 16:03
Località: Ivrea


Torna a Applicazioni Office Windows


Topic correlati a "Excel e Lotto. Calcolo combinazioni":


Chi c’è in linea

Visitano il forum: Nessuno e 7 ospiti