Modifica vba lotto

Premetto che lo script vba è stato scritto bysal e reperito su internet
https://docs.google.com/spreadsheets/d/1JsuXK2kSGUi40hfjYMigBE9gzewhMCryhuI89DfYRVQ/edit?usp=sharing

è possibile far eseguire in automatico il tasto cerca presente nel foglio "ricerca" per ogni terna presente nel foglio TerniNA?
per ottenere gli stessi risultati della ricerca?

Ciao Perche non hai allegato il file, da documenti google non scarica il VBA.

comunque che ti serve dei terni, quale ricerca vuoi fare?, specifica bene ruota e periodo.

Ciao By Sal (8-D

allego il file!

vorrei la ricerca per tutti i terni presenti nel foglio terniNA per tutte le estrazioni

Ciao scusa non ho compreso bene.

sono oltre 6500 estrazioni ed ogni estrazione in effetti sarebbero 10 terni, tu vuoi confrontare per ogni estrazione diciamo sulla ruota di napoli, quante volte è uscita successivamente sempre sulla ruota di Napoli

spiega meglio.

Ciao By Sal (8-D

si.. diciamo che l'intento è quello! e avere la data delle occorrenze e num di ripetizione..
come fa il tuo script per la singola ricerca

Ciao Non so se va bene questo, non ho fatto ricercare per tutte le estrazioni e per tutte le ruote, ma singolrmente per 1 sola ruota e per un numero preimpostato di estrazioni

vedi l'esempio ho impostato la ruota di Bari e 500 estrazioni le 500 estrazioni partono dal basso esempio se sono 6500 totali parte dalla 6000 ad andare alla 6500, e come vedi ti escono tutti i numeri delle estrazioni la prima colonna quella Gialla sarebbe quella di partenza e le successive con lo stesso numero nella colonna gialla sono le occorrenze dove si sono manifestati i terni, per visualizzare la cinquina di partenza pe un controllo basta selezionare un'estrazione della colonna gialla.



con 3000 estrazioni ci ha messo 4 minuti, però considera che più estrazioni fai cercare più tempo ci mette, perche è incrementale in quanto aumenta la ricerca delle corrispondenze.

vedi se va bene, Ciao By Sal (8-D

puoi allegare il file? dal video non ho capito molto

Grazie per il tempo che comunque ci hai dedicato !!

Ciao eccolo

bye bye

by sal, 06/04/2022 17:35:

---

Ciao eccolo

bye bye

---

Grazie ...

per cercare tutte le estrazioni di una ruota ci mette 15 min circa va bene... nel caso fosse ripetuto + di 2 volte il terno viene registrato?

è possibile visualizzare anche la data della estrazione e della "base"?

se ho capito bene per "base" intendi da quale estrazione parte a cercare la terna..
e per estrazione la prima volta che viene trovato il terno!

Ciao in effetti la BASE è l'estrazione di partenza e l'altra è dove si è trovato il terno, se guardi bene quando la base viene ripetuta vuol dire che la base ha più terni trovati.

ti ho fatto la modifica per l'inserimento delle date ecco un esempio, ti ho fatto anche colorare i numeri del terno.



ti allego anche il file, ho dovuto comprimerlo usciva fuori dimensione

P.S. se in B2 inserisci 2 ti trova gli ambi 4 quaterna, attenzione per gli ambi se fai una ricerca completa, se sono molti oltre il milione va in errore

Ciao By Sal (8-D

Grazie mille

la data riportata è della estrazione precedente a quella "reale" ma fa niente!

forse perchè il numero base che rappresenta l'estrazione di partenza ha numero estrazione +1?
nel senso si parte con base 2 che è = a estrazione 1

nella ricerca singola data ok


ricerca multipla viene riportata data della estrazione precedente

Ciao credo di si non ci ho fatto caso, questo perche il numero di riga è sempre anticipato di 1 rispetto al numero dell'estrazione, se vuoi lo aggiusto.

ma visto che lo sai, non so se faccia qualcosa.

Ciao By Sal (8-D

si va bene... visto che lo so basta fare meno 1... quello non è 1 problema!

una volta estratti tutti i terni di 1 ruota e le ripetizioni..
come nel file allegato.. tratto da 1 semplice copia e incolla di tutti i terni ripetuti


è possibile ordinarli anche in orizzontale "crescenti"
nel foglio Ricerca le colonne V W X mantenendo ovviamente i valori di T e U relativi?


es
30 417 1 43 7
33 5538 1 54 3
38 2513 1 71 73
58 5316 1 50 6
58 5990 1 71 5
58 6419 1 71 6

deve diventare
33 5538 1 3 54
58 5990 1 5 71
58 5316 1 6 50
58 6419 1 6 71
30 417 1 7 43

etc?

Ciao Ecco il file, per l'ordinamento ho fatto in modo che siano separati Orizzontale e Verticale, questo perche una volta ordinati verticalmente perdi il riferimento della Base.

comunque lancia prima Orizzontale e poi Verticale

ti ho anche aggiustato la data adesso è corretta.

ho anche eliminato il foglio "TerniNA" penso che non serva nel caso incollalo di nuovo, per la dimensione del file.

Ciao By Sal (8-D

Sei 1 Grande!!

stavo provando da solo.. avevo ordinato orizzontalmente ogni riga!

Sub OrdinaCrescente()

Dim vector As Variant
Dim Rig As Long, Col As Long, Val As Long
Dim i, conta

Columns("I:M").Clear 'pulizia preventiva colonne I:N
Application.Calculation = xlManual
For Rig = 1 To Cells(Rows.Count, "C").End(xlUp).Row
''carico in un vettore le celle interessate
vector = Sheets("Foglio1").Range(Cells(Rig, "C"), Cells(Rig, "E"))
Col = 10
For Val = 1 To 3
Sheets("Foglio1").Cells(Rig, Col) = Application.Small(vector, Val)
''scrivo il valore dal piu' piccolo al piu' grande nella sua colonna
Col = Col + 1
Next Val
Next Rig
'--------------
For Rig = Cells(Rows.Count, "A").End(xlUp).Row To 2 Step -1 'cicla all'inverso l'elenco
If Cells(Rig, 1).Value <> Cells(Rig - 1, 1).Value Then 'confronta le date tra due righe
Range("I" & Rig & ":N" & Rig).Insert Shift:=xlDown 'inserisce una fila di celle vuote
Cells(Rig, 9) = Format(Cells(Rig, 1), "mm/dd/yyyy") 'inserisce e formatta le date in colonna I
For i = 1 To conta + 1 'ciclo pari alle date ripetitive
Cells(Rig + i, 9) = Cells(Rig + i - 1, 2) 'inserisci ruota in colonna I
Next i
conta = 0 'resetta il contatore date ripetitive
Else
conta = conta + 1 'incrementa contatore date ripetitive
End If
Next Rig
Columns(9).EntireColumn.AutoFit 'adatta la larghezza della colonna I
Range("P1") = Cells(Rows.Count, "A").End(xlUp).Row + 1
'--------------
Application.Calculation = xlAutomatic
Calculate

End Sub


ps: è possibile avere un elenco invece di tutti i terni che non si sono ripetuti con relativa unica uscita?

Ciao questa non l'ho capita

---

ps: è possibile avere un elenco invece di tutti i terni che non si sono ripetuti con relativa unica uscita?

---

Ciao By Sal (8-D

in pratica per ogni uscita ci sono 10 triplette!

ora abbiamo registrato tutte le uscite che si sono verificate + volte!

ma ci sono alcune triplette che si sono verificate 1 sola volta!

es
3 597 55 82 15
3 2367 76 11 15
3 3297 76 82 11
3 5028 82 76 11
3 5505 11 82 76
3 5804 76 82 15


3 21/01/1939 11 15 55 76 82
11 15 55 11 15 76 11 15 82 11 55 76 11 55 82 11 76 82 15 55 76 15 55 82 15 76 82 55 76 82

quelli in grassetto sono stati registrati con le loro occorrenze mentre gli altri con unica occorrenza.. no!

Ciao ancora non riesco a capire, assodato che per ogni estrazione le combinazione dei terni sono 10(triplette).

Ogni terno trovato nell'estrazione compare 1 volta

tranne che se per ogni base ci sono più occorrenze, guarda questo esempio, con un altro ordinamento



Come vedi la 3523 sono tutti diversi
mentre la 3524 sono uguali
la 3525 2 uguali e 2 diversi
la 3526 2 uguali ed uno diverso
non so se è questo che intendi

se è cosi puoi fare tu questo tipo di ordinamento manualmente selezionando tutto il risultato, le colonne sono 1° Base, 2° n1, 3° n2, 4° n3

Ciao By Sal (8-D

si come dici tu.. ci sono occorrenze che si sono verificate 2 volte o + di 2 volte e vengono registrate!


la 3525 ad esempio
la terna 4 22 47 si è verificata 3 volte... nella estrazione "Base" e nell'estrazione 5287 e 5974

a me interesserebbe registrare anche tutti i terni che si sono verificati 1 sola volta...

come nel caso qui
nell'ellenco compaiono...
3 597 15 55 82
3 2367 11 15 76
3 3297 11 76 82
3 5028 11 76 82
3 5505 11 76 82
3 5804 15 76 82

4 delle 10 combinazioni di terni si sono verificati + di 1 volta ma 6 si sono verificati 1 sola volta..
Ad esempio consideriamo l'estrazione 3
3 21/01/1939 11 15 55 76 82

11 15 55 -->non appare in elenco
11 15 76 --> appare in elenco
11 15 82 -->non appare in elenco
11 55 76 -->non appare in elenco
11 55 82 -->non appare in elenco
11 76 82 -->appare in elenco uscito 3 volte oltre all'estrazione base 3
15 55 76 -->non appare in elenco
15 55 82 -->appare in elenco
15 76 82 -->appare in elenco
55 76 82 -->non appare in elenco


quelli in grassetto sono stati registrati con le loro occorrenze perchè si sono verificati + di 1 volta mentre gli altri con unica occorrenza.. no!

Ciao ma è logico che sui 10 terni se se ne sono tati trovati 3 oppure 1 gli altri 7 o 9 di conseguenza non risultano.

la ricerca comunque viene fatta sui 10 terni, perche la ricerca fa il confronto con tutti i 5 numeri dell'estrazione non cerca la combinazione del terno, ma intrinsicamente lo fa.

daltronde se tu prendi questi terni

3 597 15 55 82
3 2367 11 15 76
3 3297 11 76 82
3 5804 15 76 82 con la combinazione 11 15 55 76 82

resterebbero 6 combinazioni non uscite, però tutti i numeri della cinquina sono stati usati e tu che vorresti i terni(Combinazioni) non usciti?

oltre al lavoro immane di ricerca cosa riusciresti a ricavare visto che comunque tutti i 5 numeri sono usciti, avrai lo stesso risultato se giochi 5 numeri e punti solo sul terno, ecco perche il lotto se fai un terno divide la vincita per 10 le combinazioni di 5 numeri per terno.

Ciao By Sal (8-D

In realtà quelle 6 comninaizoni di terni non si sono verificate altre volte... Ma su quella estrazione sono usciti!!

Quindi vorrei comunque archiviare tutti i terni usciti con il relativo numero di estrazione e non solo quelli usciti più di una volta

in totale sono 65000 ricerche...

by sal, 08/04/2022 15:38:

---

resterebbero 6 combinazioni non uscite, però tutti i numeri della cinquina sono stati usati e tu che vorresti i terni(Combinazioni) non usciti?

oltre al lavoro immane di ricerca cosa riusciresti a ricavare visto che comunque tutti i 5 numeri sono usciti, avrai lo stesso risultato se giochi 5 numeri e punti solo sul terno, ecco perche il lotto se fai un terno divide la vincita per 10 le combinazioni di 5 numeri per terno.

Ciao By Sal (8-D

---

quelle 6 combinazioni sono uscite ma non si sono ripetute altre volte..

effettivamente le ricerche sono tante.. 6500 x 10

ma avresti tutti i terni usciti almeno 1 volta

Ciao ecco il file, vedi che ho fatto in modo di avere tutti i terni non ripetuti, quindi quelli usciti almeno 1 volta

ho aggiunto 1 icona, cliccala e ti riporta i terni singoli dalla colonna "AN", ho tolto i doppioni dalla prima ricerca.

Ciao By Sal (8-D

Prima di tutto ti ringrazio per il tempo che ci stai dedicando..

forse sono io che non mi so spiegare.. però non ci sono i 65000 terni usciti nelle 6500 estrazioni ma solo quelli che si ripetono





invece ad esempio 1 terno che si è verificato 1 sola volta.. usando il tasto a sx.. trova a napoli l'unica uscita..



ma non compare qui:

Ciao, ma la colonna "O" dove imposti la ruota su quale ruota è impostata? se non è Napoli non lo trovi, poi bisogna entrare nell'ottica della ricerca, guarda questo esempio.



ho preso un Terno uscito 1 volta, nella "Risultato terni" ed ho fatto una ricerca per tutte le ruote, come vedi me lo riporta 2 volte a Roma, mentre in "Risultato terni" 1 volta, ma in effetti sono 2 volte perche la partenza 3518 non la conta in quanto serve da base di ricerca

in effetti nella ricerca per tutte viene trovato 2 volte come vedi dal numero di estrazione che ho inserito nella ricerca totale, che corrispondono al 3518 e 4160

logico anche che la mia ricerca parte da 3000 in meno quindi estrazioni totali 6515-3000 parte dalla 3515.

non so se la mia spiegazione sia esauriente.

Ciao By Sal (8-D

Il tuo discorso lo capisco...
ma...
nella estrazione di roma 3518 il tuo script trova 3 terni... ci sono altri 7 terni che SONO USCITI e non sono stati REGISTRATI

nella estrazione che hai considerato tu.. 31 26 51 89 55

26 31 51 si
55 26 89 si
89 31 55 si

converrai con me che a roma quel giorno è uscito anche come terno

31 26 89
31 26 55
e altri 5 che SONO USCITI ma non sono stati registrati...

te li ritrovi in elenco ad esempio?

by sal, 09/04/2022 09:25:

---

Ciao, ma la colonna "O" dove imposti la ruota su quale ruota è impostata? se non è Napoli non lo trovi, poi bisogna entrare nell'ottica della ricerca, guarda questo esempio.



ho preso un Terno uscito 1 volta, nella "Risultato terni" ed ho fatto una ricerca per tutte le ruote, come vedi me lo riporta 2 volte a Roma, mentre in "Risultato terni" 1 volta, ma in effetti sono 2 volte perche la partenza 3518 non la conta in quanto serve da base di ricerca

in effetti nella ricerca per tutte viene trovato 2 volte come vedi dal numero di estrazione che ho inserito nella ricerca totale, che corrispondono al 3518 e 4160

logico anche che la mia ricerca parte da 3000 in meno quindi estrazioni totali 6515-3000 parte dalla 3515.

non so se la mia spiegazione sia esauriente.

Ciao By Sal (8-D

---

Infondo dovresti notare che non compare nessun terno con solo il numero della "base"... Ovvero usciti solo una volta

Ma in elenco ci sono solo terni con base e estraz

Ergo solo quelli che si sono verificati almeno 2 volte.

Non so se mi sono spiegato

Ciao per avere quello che dici si devono processare tutti i terni sviluppati con i 90 numeri che sono 117.480.

quando confronti una cinquina con le successive in automatico vengono considerati 10 terni e solamente quando 3 numeri corrispondono con l'altra, allora la base ha un confronto, per cui gli altri 9 non possono essere considerati.

invece quando li consideri singolarmente, le altre 9 combinazioni della cinquina, comunque vengono considerate successivamente, vedi questi 2 esempi solamente con le 2 combinazioni 123 - 124





come vedi per ogni combinazione si devono considerare tutte le occorrenze.

Ciao By Sal (8-D

a me non interessa considerare tutti i 117.480 terni...
ma "solo" i 65000 circa terni che sono sicuramente usciti su 1 singola ruota!
e annotare se sono usciti 1 singola volta o si sono ripetuti (output del tuo script)


in teoria basterebbe anche solo 1 confronto tra i 65000 circa terni usciti sicuramente!! i 10 per ogni uscita! e quelli estratti dal tuo script...
se non compaiono nell'output del tuo script significa che sono usciti 1 sola volta e va appuntata la relativa uscita..

allego es delle combinazioni sicuramente uscite di terni

ciao a tutti
se puo' essere di aiuto ho calcolato al volo che dei 117480 terni possibili in 6511 estrazioni ne sono usciti 50063, distribuiti come nel file che allego

prima seconda e terza colonna sono i terni, quarta colonna sono le frequenze in ordine decrescente

LEO