Excel Forum Per condividere esperienze su Microsoft Excel

Ricavare estrazione superenalotto da Archivio

  • Messaggi
  • OFFLINE
    gattodimarmo1980
    Post: 159
    Registrato il: 03/10/2015
    Città: ALBAREDO PER SAN MARCO
    Età: 43
    Utente Junior
    2003
    00 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.
  • OFFLINE
    ges64
    Post: 33
    Registrato il: 13/08/2015
    Città: COMO
    Età: 60
    Utente Junior
    excel 2016
    10 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
  • OFFLINE
    gattodimarmo1980
    Post: 159
    Registrato il: 03/10/2015
    Città: ALBAREDO PER SAN MARCO
    Età: 43
    Utente Junior
    2003
    00 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 .
  • OFFLINE
    gattodimarmo1980
    Post: 369
    Registrato il: 03/10/2015
    Città: ALBAREDO PER SAN MARCO
    Età: 43
    Utente Senior
    2003
    00 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
  • OFFLINE
    by sal
    Post: 6.183
    Registrato il: 14/11/2004
    Utente Master
    Office 2019
    00 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
  • OFFLINE
    gattodimarmo1980
    Post: 371
    Registrato il: 03/10/2015
    Città: ALBAREDO PER SAN MARCO
    Età: 43
    Utente Senior
    2003
    00 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 [SM=x423028]
  • 15MediaObject5,0016 1