| | Post: 159 | Registrato il: 03/10/2015
| Città: ALBAREDO PER SAN MARCO | Età: 44 | Utente Junior | 2003 | | OFFLINE |
|
21/08/2019 13:44 | |
Buon giorno forum .La combinazione vincente, come per l'Enalotto, era legata alle estrazioni del lotto ed era composta dai primi numeri estratti delle ruote di Bari, Firenze, Milano, Roma, Napoli e Palermo. Qualora il primo numero estratto in una di quelle ruote fosse stato uguale a un precedente primo estratto, si considerava valido ai fini del gioco il secondo numero di tale ruota, e così via fino al quinto. Tale metodo determina la sestina vincente. A questi numeri si affiancavano il cosiddetto "Numero Jolly", ovvero il primo estratto (o il secondo o il terzo e così via in caso di uguaglianza) della ruota di Venezia, e successivamente il numero "SuperStar", ovvero il primo estratto sulla ruota Nazionale.
Nel foglio1 di lavoro come vedete Range A1 G17479 sono presenti le estrazioni del lotto dal 30/06/2009 al 20/08/2019,
mi servirebbe una macro che, da regolamento come indicato all'inizio della discussione mi estrae la combinazione vincente.
L'esempio giusto una volta eseguito la macro è la riga edivenziata di azzurro.
Attenzione a; Qualora il primo numero estratto in una di quelle ruote fosse stato uguale a un precedente primo estratto, si considerava valido ai fini del gioco il secondo numero di tale ruota, e così via fino al quinto.Allego un esempio di estrazione nel foglio2 per farvi vedere meglio la condizione.
Buona giornata Matteo. |
|
| | Post: 33 | Registrato il: 13/08/2015
| Città: COMO | Età: 60 | Utente Junior | excel 2016 | | OFFLINE |
|
21/08/2019 16:32 | |
Ciao,
premesso che non ha senso trovare i numeri vincenti quando basta scaricarseli con una macro insieme ai numeri estratti, puoi provare con questo codice:
Sub superenalotto()
Dim j%, y%, k%, x%, z%, uR&, a%, b&, ruote, numero, numeri()
With Application
.ScreenUpdating = False
uR = Cells(Rows.Count, 1).End(xlUp).Row
a = 1
Do While a <= uR
For j = a To a + 10
ruote = Array("BA", "MI", "RM", "NA", "PA", "FI", "VE", "RN")
y = 1
k = 2
For x = 0 To 7
ret:
numero = Application.VLookup(ruote(x), Range("B" & a & ":G" & a + 10), k, 0)
ReDim Preserve numeri(1 To y + 1)
For z = 1 To y
If numeri(z) = numero Then
k = k + 1
GoTo ret
End If
Next
numeri(y) = numero
y = y + 1
k = 2
Next
Next j
Range("I" & a & ":P" & a) = .Transpose(.Transpose(numeri))
Erase numeri
a = a + 11
Loop
.ScreenUpdating = True
End With
End Sub |
| | Post: 159 | Registrato il: 03/10/2015
| Città: ALBAREDO PER SAN MARCO | Età: 44 | Utente Junior | 2003 | | OFFLINE |
|
21/08/2019 18:45 | |
Ciao Ges64 ,la macro è perfetta è solo che ho scaricato le estrazioni da 5 siti diversi ed esaminandole ho trovato diversi errori e volevo
verificarne con l'excel chi ha sbagliato perché la precisione è nel mio dna. Con questa macro l'errore è impossibile. Ti ringrazio buona serata . |
| | Post: 369 | Registrato il: 03/10/2015
| Città: ALBAREDO PER SAN MARCO | Età: 44 | Utente Senior | 2003 | | OFFLINE |
|
12/12/2020 18:13 | |
Buon sabato forum come devo modificare la macro di Ges64, tolgo l'occasione per salutarlo , ripetendo il primo numero estratto in una di quelle ruote se fosse stato uguale a un precedente primo estratto.In poche parole devo estrarre il primo numero di bari firenze milano napoli palermo roma venezia nazionale,se ci sono numeri uguali
vanno riportati non si deve considerare valido ai fini del gioco il secondo numero .Buon Sabato Matteo |
| | Post: 6.183 | Registrato il: 14/11/2004
| Utente Master | Office 2019 | | OFFLINE |
|
13/12/2020 16:48 | |
Ciao Matteo, il Superernalotto, non può più essere ricavato dall'archivio del Lotto, quindi la macro per il controllo è inutile, almeno fino al 31/06/2009.
l'unico archivio valido è quello della Sisal, con il nuovo regolamento entrato in vigore il 01/07/2009 è cambiata la determinazione dei della sestina vincente ed anche del Jolly e Superstar.
questo un estratto del regolamento.
Dal 1º luglio 2009, con l'entrata in vigore del nuovo regolamento[4], la combinazione vincente del SuperEnalotto e i numeri Jolly e SuperStar non dipendono più dai numeri estratti sulle ruote del Lotto, ma da due estrazioni separate, una per determinare la sestina e il Jolly e un'altra per il SuperStar, effettuate mediante macchine a mescolamento pneumatico.
per cui gli errori che hai riscontrato non sono più errori.
Ciao By Sal (8-D
[Modificato da by sal 13/12/2020 16:49] se ti piace la soluzione sostienici con una DONAZIONE a piacere. Grazie clicca qui |
| | Post: 371 | Registrato il: 03/10/2015
| Città: ALBAREDO PER SAN MARCO | Età: 44 | Utente Senior | 2003 | | OFFLINE |
|
14/12/2020 20:14 | |
Buona sera By_Sal sono pienamente d'accordo con te con il Post precedente del 13/12/2020 16:48 allego anche una foto;ma il discorso è un'altro ho sbagliato io ha impostare la discussione perchè con la macro di Ges64 che saluto ; la macro non da errori ripeto,
dovevo nella discussione far estrarre con (VBA)per primo il numero della Nazionale poi successivamente (Venezia) ma sto valutando poi tutti gli altri primi numeri delle altre sei ruote perchè se per esempio fosse uscito come super Start in
una estrazione il (45) sulla Nazionale ma questo sempre il numero (45) fosse uscito anche su un altra ruota io avrei come Superstart il secondo numero uscito sulla Nazionale e questo By_Sal sarebbe stato un errore di riporto.Valuto il caso di Venezia e poi ti faccio sapere
Saluti Matteo |
|
|