Listato numeri più frequenti

[ananda]

Salute a tutti.
Esiste un listato per L8 che mi dica, per un tot di uscite di un numero inserito da me, quali numeri si sono abbinati più di frequente con quel numero?
Cioè mettiamo che io abbia un'ambata. Voglio sapere, ad esempio, le ultime 10 volte che è uscita questa ambata con quali numeri si è abbinata più spesso.

Grazie mille a chi mi vorrà aiutare

 

[Zetrix]

Sub Main
   Dim est,n,k,p,v,r
   Dim amb(90)
   For v = 1 To 90
      amb(v) = 0
   Next
   '
   r = ScegliRuota
   est = 13
   For n = EstrazioneFin - est + 1 To EstrazioneFin
      Messaggio DataEstrazione(n)
      'For r = 1 To 10
      For p = 1 To 5
         k = Estratto(n,r,p)
         amb(k) = amb(k) + 1
      Next
   Next
   'Next
   Scrivi " Analisi effettuata dal " & DataEstrazione(EstrazioneFin - est + 1) & " al " & DataEstrazione(EstrazioneFin) & "",0,1,3
   Scrivi " Super frequenti ultime " & est & " estrazioni",0,1,4
   Scrivi " Tabella  " & SiglaRuota(r) & "",0,1,6
   Scrivi
   '
   For v = 1 To 90
      If amb(v) = 0 Then
         Scrivi " Numero  " & v & " Uscito  " &(amb(v)) & " volte",0,1,5
      Else
         If amb(v) = 1 Then
            Scrivi " Numero  " & v & " Uscito  " &(amb(v)) & " volte",0,1,3
         Else
            If amb(v) = 2 Then
               Scrivi " Numero  " & v & " Uscito  " &(amb(v)) & " volte",0,1,4
            Else
               If amb(v) = 3 Then
                  Scrivi " Numero  " & v & " Uscito  " &(amb(v)) & " volte",0,1,6
               Else
                  If amb(v) > 3 Then
                     Scrivi " Numero  " & v & " Uscito  " &(amb(v)) & " volte",0,1,2,5
                  End If
               End If
            End If
         End If
      End If
   Next
End Sub

ciao ananda ho questo script vedi se qualcuno puo fare la richiesta che ai fatto..

 

[ananda]

Grazie Zetrix, guardo di capirci qualcosa!!

 

[ananda]

Ok. Mi trova i più frequenti su ruota. Io avrei bisogno di sapere quelli che, nelle estrazioni precedenti, si sono abbinati più frequentemente con un dato numero che inserisco io.

 

[Zetrix]

ananda ne ho diversi di script ma devo vedere se trovo qualche script che dici te
comunque i numeri che si sono abbinati piu spesso con un numero non e detto che
si abbinerà sempre con lo stesso numero se no sarebbe troppo facile

 

[Zetrix]

71-75    frequenza 10   ritardo 166
71-8    frequenza 10   ritardo 33
71-70    frequenza 10   ritardo 96
71-49    frequenza 10   ritardo 54
71-79    frequenza 9   ritardo 180
71-81    frequenza 9   ritardo 49
71-36    frequenza 8   ritardo 33
71-84    frequenza 8   ritardo 59
71-77    frequenza 8   ritardo 64
71-5    frequenza 8   ritardo 232
71-20    frequenza 8   ritardo 54
71-61    frequenza 7   ritardo 166
71-58    frequenza 7   ritardo 118
71-73    frequenza 7   ritardo 535
71-74    frequenza 7   ritardo 33
71-3    frequenza 7   ritardo 416
71-30    frequenza 7   ritardo 49
71-62    frequenza 7   ritardo 49
71-31    frequenza 6   ritardo 49
71-28    frequenza 6   ritardo 567
71-42    frequenza 6   ritardo 189
71-44    frequenza 6   ritardo 662
71-63    frequenza 6   ritardo 189
71-66    frequenza 6   ritardo 14
71-60    frequenza 6   ritardo 53
71-85    frequenza 6   ritardo 20
71-56    frequenza 6   ritardo 20
71-25    frequenza 6   ritardo 639
71-23    frequenza 6   ritardo 291
71-2    frequenza 6   ritardo 384
71-22    frequenza 6   ritardo 54
71-17    frequenza 6   ritardo 357
71-14    frequenza 5   ritardo 574
71-90    frequenza 5   ritardo 96
71-47    frequenza 5   ritardo 816
71-51    frequenza 5   ritardo 173
71-52    frequenza 5   ritardo 118
71-69    frequenza 5   ritardo 20
71-9    frequenza 5   ritardo 86
71-72    frequenza 5   ritardo 53
71-10    frequenza 5   ritardo 232
71-12    frequenza 5   ritardo 551
71-13    frequenza 5   ritardo 14
71-11    frequenza 5   ritardo 33
71-7    frequenza 5   ritardo 662
71-86    frequenza 5   ritardo 785
71-40    frequenza 5   ritardo 441
71-33    frequenza 5   ritardo 662
71-89    frequenza 5   ritardo 1251
71-38    frequenza 5   ritardo 276
71-37    frequenza 5   ritardo 20
71-78    frequenza 5   ritardo 118
71-1    frequenza 5   ritardo 226
71-88    frequenza 5   ritardo 14
71-45    frequenza 5   ritardo 180
71-26    frequenza 5   ritardo 86
71-82    frequenza 4   ritardo 901
71-67    frequenza 4   ritardo 59
71-35    frequenza 4   ritardo 977
71-83    frequenza 4   ritardo 772
71-43    frequenza 4   ritardo 1093
71-19    frequenza 4   ritardo 232
71-50    frequenza 4   ritardo 318
71-4    frequenza 4   ritardo 173
71-21    frequenza 4   ritardo 550
71-54    frequenza 4   ritardo 662
71-16    frequenza 4   ritardo 53
71-15    frequenza 4   ritardo 276
71-39    frequenza 4   ritardo 416
71-76    frequenza 3   ritardo 624
71-6    frequenza 3   ritardo 1630
71-80    frequenza 3   ritardo 357
71-27    frequenza 3   ritardo 276
71-48    frequenza 3   ritardo 180
71-32    frequenza 3   ritardo 1008
71-34    frequenza 3   ritardo 793
71-65    frequenza 3   ritardo 59
71-68    frequenza 3   ritardo 64
71-55    frequenza 3   ritardo 326
71-59    frequenza 3   ritardo 189
71-87    frequenza 2   ritardo 326
71-53    frequenza 2   ritardo 318
71-46    frequenza 2   ritardo 441
71-29    frequenza 2   ritardo 119
71-18    frequenza 2   ritardo 59
71-64    frequenza 2   ritardo 1228
71-24    frequenza 2   ritardo 689
71-57    frequenza 1   ritardo 1705
71-41    frequenza 1   ritardo 14
 
 BA

ananda ho questo script che modifica si deve fare su questo script
qui puoi scegliere la ruota e il numero e lo script evidenzia la tabella con i numeri
che si sono abbinati piu spesso con quel numero che ai scelto
quante estr deve considerare lo script
ma forse questo script non va bene perche calcola i frequenti da inizio e fine estr

 

[Zetrix]

Option Explicit
Sub Main
   Dim aRetAbb
   Dim k,x,z,a
   z = ScegliRuota
   a = InputBox("Quale numero vuoi controllare?",,0)
   '
   Call Abbinamenti(a,aRetAbb,EstrazioneIni,EstrazioneFin,z,0)
   For x = 1 To 90
      Scrivi "" & a & "-" & aRetAbb(x,1) & Space(3) & " frequenza " & AmboFrequenza(z,a,aRetAbb(x,1)) & Space(3) & " ritardo " & AmboRitardo(z,a,aRetAbb(x,1)) & " ",0,1,1,5,4
   Next
   Scrivi
   Scrivi("" & "" & " " & SiglaRuota(z) & "") & " ",0,0,2,5,6
   Scrivi
   Scrivi
End Sub

ecco lo script

 

[Zetrix]

 

[ananda]

Option Explicit
Sub Main
   Dim aRetAbb
   Dim k,x,z,a
   z = ScegliRuota
   a = InputBox("Quale numero vuoi controllare?",,0)
   '
   Call Abbinamenti(a,aRetAbb,EstrazioneIni,EstrazioneFin,z,0)
   For x = 1 To 90
      Scrivi "" & a & "-" & aRetAbb(x,1) & Space(3) & " frequenza " & AmboFrequenza(z,a,aRetAbb(x,1)) & Space(3) & " ritardo " & AmboRitardo(z,a,aRetAbb(x,1)) & " ",0,1,1,5,4
   Next
   Scrivi
   Scrivi("" & "" & " " & SiglaRuota(z) & "") & " ",0,0,2,5,6
   Scrivi
   Scrivi
End Sub

ecco lo script

Grazie molto gentile

 

[Zetrix]

 

[Zetrix]

Sub Main
   Dim est,n,k,p,v,r
   Dim amb(90)
   For v = 1 To 90
      amb(v) = 0
   Next
   '
   r = ScegliRuota
   est = 17
   For n = EstrazioneFin - est + 1 To EstrazioneFin
      Messaggio DataEstrazione(n)
      'For r = 1 To 10
      For p = 1 To 5
         k = Estratto(n,r,p)
         amb(k) = amb(k) + 1
      Next
   Next
   'Next
   Scrivi " Analisi effettuata dal " & DataEstrazione(EstrazioneFin - est + 1) & " al " & DataEstrazione(EstrazioneFin) & "",0,1,1,5
   Scrivi " Super frequenti ultime " & est & " estrazioni",0,1,1,5
   Scrivi " Tabella  " & SiglaRuota(r) & "",0,1,1,5
   Scrivi
   Scrivi
   '
   For v = 1 To 90
      If amb(v) = 0 Then
         Scrivi " Numero  " & v & "  Uscito  " &(amb(v)) & " volte " & Space(5) & "",0,1,1,5
      Else
         If amb(v) = 1 Then
            Scrivi " Numero  " & v & "  Uscito  " &(amb(v)) & " volte ",0,1,3
         Else
            If amb(v) = 2 Then
               Scrivi " Numero  " & v & "  Uscito  " &(amb(v)) & " volte ",0,1,4
            Else
               If amb(v) = 3 Then
                  Scrivi " Numero  " & v & "  Uscito  " &(amb(v)) & " volte ",0,1,6
               Else
                  If amb(v) > 3 Then
                     Scrivi " Numero  " & v & "  Uscito  " &(amb(v)) & " volte ",0,1,2,5
                  End If
               End If
            End If
         End If
      End If
   Next
End Sub

 

[Alien.]

Ciao Zetrix mi servirebbe uno script in cui inserisco 3/4/5/6 numeri per il lotto ed i risultati su tutte e che mi dia le uscite(riepilogo) di ambo su ogni ruota,se puoi,grazie.

 

[Zetrix]

Ciao Alien, vedrò dopo la richiesta dello script, ora devo aggiornare le previsioni per questa sera..

 

[Zetrix]

Sub Main
   Dim rs,es,qt,k,ruote(2),poste(2)
   Dim anum(10)
   poste(2) = 1
   k = 0
   qt = ScegliNumeri(anum)
   '
   rs = InputBox("Quante estrazioni vuoi controllare?",,0)
   '
   For es = EstrazioneFin - rs To EstrazioneFin
      AvanzamentoElab EstrazioneFin - rs,EstrazioneFin,es
      '
      ruote(1) = TT_
      ruote(2) = NZ_
      '
      Scrivi
      Scrivi "" & StringaNumeri(anum,".") & " ",0,1,3
      Scrivi
      Scrivi
      qt = UBound(anum)
      '
      ImpostaGiocata 1,anum,ruote,poste,k
      Gioca es,1,,1
      Scrivi
      Scrivi
   Next
End Sub

Alien ho fatto questo script ma non so se fa la richiesta che ai scritto
non so come si deve scrivere il riepilogo degli ambi che sono usciti su ogni ruota

 

[Alien.]

Ciao Zetrix.
ma va a fino 81 concorsi ed ogni volta mi mette ovviamente gli i stessi ambi usciti.

Estrazione generatrice del pronostico 10116 [ 93 - 04/08/2022]
G 0001 Numeri in gioco : 22.45.74 su TT NZ per Ambo


V N. [22.45.74 ] [NZ] [74 22 .. .. ..] C. 58 Ambo 10174 [151 - 17/12/2022] [74.22.62.66.33]
V N. [22.45.74 ] [TT] [RO][74 .. 45 .. ..] C. 65 Ambo 10181 [ 1 - 03/01/2023] [74.51.45.12.41]
V N. [22.45.74 ] [TT] [VE][.. 22 45 .. ..] C. 71 Ambo 10187 [ 7 - 17/01/2023] [25.22.45.14.53]
V N. [22.45.74 ] [TT] [MI][.. .. 74 .. 45] C. 81 Ambo 10197 [ 17 - 09/02/2023] [12.49.74.26.45]
quindi per 81 estrazioni mi ritrovo sempre gli stessi ambi dal 2022 puoi ovviare , grazie.

 

[Zetrix]

Option Explicit
Sub Main
   Dim aNumeri,aRuote
   Dim nQNumeri
   Dim nQRuote
   Dim nSorte
   Dim aRetEsiti,aRetColpi,aRetEstratti,aRetIdEstr,aRetRuote
   Dim nEsiti
   Dim nEstrIni
   Dim k
   nEstrIni = EstrazioneIni
   nQNumeri = ScegliNumeri(aNumeri)
   nQRuote = ScegliRuote(aRuote)
   nSorte = ScegliEsito
   If nQNumeri > 0 And nQRuote > 0 And nSorte > 0 Then
      nEsiti = VerificaEsiti(aNumeri,aRuote,nEstrIni,nSorte,,,,aRetEsiti,aRetColpi,aRetEstratti,aRetIdEstr,aRetRuote)
      ReDim aV(6)
      aV(1) = "N" : aV(2) = "Esito" :aV(3) = "Colpi": aV(4) = "Estratti" : aV(5) = "Estrazione" :aV(6) = "Ruota"
       Call InitTabella(aV,RGB(0,100,128),,,RGB(200,200,250),"arial black")

      For k = 1 To nEsiti
         aV(1) = k
         aV(2) = aRetEsiti(k)
         aV(3) = aRetColpi(k)
         aV(4) = aRetEstratti(k)
         aV(5) = GetInfoEstrazione(aRetIdEstr(k))
         aV(6) = aRetRuote(k)
         Call AddRigaTabella(aV)
         '
         Call SetColoreCella(1,RGB(0,100,128),RGB(200,200,250))
         Call SetColoreCella(2,RGB(0,100,128),RGB(200,200,250))
         Call SetColoreCella(3,RGB(0,100,128),RGB(200,200,250))
         Call SetColoreCella(4,RGB(0,100,128),RGB(200,200,250))
         Call SetColoreCella(5,RGB(0,100,128),RGB(200,200,250))
         Call SetColoreCella(6,RGB(0,100,128),RGB(200,200,250))
         Call SetColoreCella(7,RGB(0,100,128),RGB(200,200,250))
         Call SetColoreCella(8,RGB(0,100,128),RGB(200,200,250))
         Call SetColoreCella(9,RGB(0,100,128),RGB(200,200,250))
         Call SetColoreCella(10,RGB(0,100,128),RGB(200,200,250))
         Call SetColoreCella(11,RGB(0,100,128),RGB(200,200,250))
         Call SetColoreCella(12,RGB(0,100,128),RGB(200,200,250))
         Call SetColoreCella(13,RGB(0,100,128),RGB(200,200,250))
         Call SetColoreCella(14,RGB(0,100,128),RGB(200,200,250))
         Call SetColoreCella(15,RGB(0,100,128),RGB(200,200,250))
      Next
   End If
   Call CreaTabella
End Sub

Ciao Alien,
vedi se va bene questo script

 

[Zetrix]

 

[Zetrix]

Option Explicit
Sub Main
   Dim aNumeri,aRuote
   Dim nQNumeri
   Dim nQRuote
   Dim nSorte
   Dim aRetEsiti,aRetColpi,aRetEstratti,aRetIdEstr,aRetRuote
   Dim nEsiti
   Dim nEstrIni
   Dim k
   '
   nEstrIni = EstrazioneFin - 35
   nQNumeri = ScegliNumeri(aNumeri)
   nQRuote = ScegliRuote(aRuote)
   nSorte = ScegliEsito
   If nQNumeri > 0 And nQRuote > 0 And nSorte > 0 Then
      nEsiti = VerificaEsiti(aNumeri,aRuote,nEstrIni,nSorte,,,,aRetEsiti," ",aRetEstratti,aRetIdEstr,aRetRuote)
      ReDim aV(6)
      aV(1) = " " : aV(2) = "Esito" :aV(3) = " ": aV(4) = "Estratti" : aV(5) = "Estrazione" :aV(6) = "Ruota"
      Call InitTabella(aV,RGB(0,100,128),,,RGB(200,200,250),"arial black")
      For k = 1 To nEsiti
         aV(1) = k
         aV(2) = aRetEsiti(k)
         aV(3) = ""
         aV(4) = aRetEstratti(k)
         aV(5) = DataEstrazione(aRetIdEstr(k))
         aV(6) = aRetRuote(k)
         Call AddRigaTabella(aV)
         '
         Call SetColoreCella(1,RGB(0,100,128),RGB(200,200,250))
         Call SetColoreCella(2,RGB(0,100,128),RGB(200,200,250))
         Call SetColoreCella(3,RGB(0,100,128),RGB(200,200,250))
         Call SetColoreCella(4,RGB(0,100,128),RGB(200,200,250))
         Call SetColoreCella(5,RGB(0,100,128),RGB(200,200,250))
         Call SetColoreCella(6,RGB(0,100,128),RGB(200,200,250))
         Call SetColoreCella(7,RGB(0,100,128),RGB(200,200,250))
         Call SetColoreCella(8,RGB(0,100,128),RGB(200,200,250))
         Call SetColoreCella(9,RGB(0,100,128),RGB(200,200,250))
         Call SetColoreCella(10,RGB(0,100,128),RGB(200,200,250))
         Call SetColoreCella(11,RGB(0,100,128),RGB(200,200,250))
         Call SetColoreCella(12,RGB(0,100,128),RGB(200,200,250))
         Call SetColoreCella(13,RGB(0,100,128),RGB(200,200,250))
         Call SetColoreCella(14,RGB(0,100,128),RGB(200,200,250))
         Call SetColoreCella(15,RGB(0,100,128),RGB(200,200,250))
      Next
   End If
   Call CreaTabella
End Sub

Alien prova questo script ho fatto una modifica sulla tabella..
nEstrIni = EstrazioneFin - 35
qui puoi scrivere EstrazioneFin -100 oppure -1000 quello che vuoi te..

 

[Zetrix]

Sub Main()
   Dim n(5),v(5)
   Dim r1,r2
   ex = CInt(InputBox("Quante estrazioni vuoi esaminare ? ",,0))
   '
   For r1 = 1 To 9
      '
      For r2 = r1 + 1 To r2
         '
         For es = EstrazioneFin - ex To EstrazioneFin
            '
            '
            ReDim MatriceCaselleDaEvid(10,1)
            '
            MatriceCaselleDaEvid(1,0) = r1
            MatriceCaselleDaEvid(1,1) = 1
            '
            MatriceCaselleDaEvid(2,0) = r1
            MatriceCaselleDaEvid(2,1) = 2
            '
            MatriceCaselleDaEvid(3,0) = r1
            MatriceCaselleDaEvid(3,1) = 3
            '
            MatriceCaselleDaEvid(4,0) = r1
            MatriceCaselleDaEvid(4,1) = 4
            '
            MatriceCaselleDaEvid(5,0) = r1
            MatriceCaselleDaEvid(5,1) = 5
            '
            MatriceCaselleDaEvid(6,0) = r2
            MatriceCaselleDaEvid(6,1) = 1
            '
            MatriceCaselleDaEvid(7,0) = r2
            MatriceCaselleDaEvid(7,1) = 2
            '
            MatriceCaselleDaEvid(8,0) = r2
            MatriceCaselleDaEvid(8,1) = 3
            '
            MatriceCaselleDaEvid(9,0) = r2
            MatriceCaselleDaEvid(9,1) = 4
            '
            MatriceCaselleDaEvid(10,0) = r2
            MatriceCaselleDaEvid(10,1) = 5
            '
            Call DisegnaEstrazione(es,MatriceCaselleDaEvid)
            '
            '
            x1 = Estratto(es,r1,1)
            y1 = Estratto(es,r2,1)
            x2 = Estratto(es,r1,2)
            y2 = Estratto(es,r2,2)
            x3 = Estratto(es,r1,3)
            y3 = Estratto(es,r2,3)
            x4 = Estratto(es,r1,4)
            y4 = Estratto(es,r2,4)
            x5 = Estratto(es,r1,5)
            y5 = Estratto(es,r2,5)
            '
            n(1) = Format2(Abs(x1 - y1))
            n(2) = Format2(Abs(x2 - y2))
            n(3) = Format2(Abs(x3 - y3))
            n(4) = Format2(Abs(x4 - y4))
            n(5) = Format2(Abs(x5 - y5))
            '
            v(1) = Format2(Fuori90(x1 + y1))
            v(2) = Format2(Fuori90(x2 + y2))
            v(3) = Format2(Fuori90(x3 + y3))
            v(4) = Format2(Fuori90(x4 + y4))
            v(5) = Format2(Fuori90(x5 + y5))
            '
            If n(1) = 0 Then n(1) = 90 End If
            If n(2) = 0 Then n(2) = 90 End If
            If n(3) = 0 Then n(3) = 90 End If
            If n(4) = 0 Then n(4) = 90 End If
            If n(5) = 0 Then n(5) = 90 End If
            '
            '
            Scrivi
            Scrivi SiglaRuota(r1) & Space(15) & StringaEstratti(es,r1) & Space(5) & " ",0,1,3,1
            Scrivi SiglaRuota(r2) & Space(15) & StringaEstratti(es,r2) & Space(5) & " ",0,1,4,1
            Scrivi
            Scrivi "diff" & Space(13) & StringaNumeri(n) & Space(5) & " ",0,1,2,5
            Scrivi "somma" & Space(12) & StringaNumeri(v) & Space(5) & " ",0,1,1,5
            Scrivi
            Scrivi
            Scrivi
         Next
      Next
   Next
End Sub

 

[Alien.]

Option Explicit
Sub Main
   Dim aNumeri,aRuote
   Dim nQNumeri
   Dim nQRuote
   Dim nSorte
   Dim aRetEsiti,aRetColpi,aRetEstratti,aRetIdEstr,aRetRuote
   Dim nEsiti
   Dim nEstrIni
   Dim k
   '
   nEstrIni = EstrazioneFin - 35
   nQNumeri = ScegliNumeri(aNumeri)
   nQRuote = ScegliRuote(aRuote)
   nSorte = ScegliEsito
   If nQNumeri > 0 And nQRuote > 0 And nSorte > 0 Then
      nEsiti = VerificaEsiti(aNumeri,aRuote,nEstrIni,nSorte,,,,aRetEsiti," ",aRetEstratti,aRetIdEstr,aRetRuote)
      ReDim aV(6)
      aV(1) = " " : aV(2) = "Esito" :aV(3) = " ": aV(4) = "Estratti" : aV(5) = "Estrazione" :aV(6) = "Ruota"
      Call InitTabella(aV,RGB(0,100,128),,,RGB(200,200,250),"arial black")
      For k = 1 To nEsiti
         aV(1) = k
         aV(2) = aRetEsiti(k)
         aV(3) = ""
         aV(4) = aRetEstratti(k)
         aV(5) = DataEstrazione(aRetIdEstr(k))
         aV(6) = aRetRuote(k)
         Call AddRigaTabella(aV)
         '
         Call SetColoreCella(1,RGB(0,100,128),RGB(200,200,250))
         Call SetColoreCella(2,RGB(0,100,128),RGB(200,200,250))
         Call SetColoreCella(3,RGB(0,100,128),RGB(200,200,250))
         Call SetColoreCella(4,RGB(0,100,128),RGB(200,200,250))
         Call SetColoreCella(5,RGB(0,100,128),RGB(200,200,250))
         Call SetColoreCella(6,RGB(0,100,128),RGB(200,200,250))
         Call SetColoreCella(7,RGB(0,100,128),RGB(200,200,250))
         Call SetColoreCella(8,RGB(0,100,128),RGB(200,200,250))
         Call SetColoreCella(9,RGB(0,100,128),RGB(200,200,250))
         Call SetColoreCella(10,RGB(0,100,128),RGB(200,200,250))
         Call SetColoreCella(11,RGB(0,100,128),RGB(200,200,250))
         Call SetColoreCella(12,RGB(0,100,128),RGB(200,200,250))
         Call SetColoreCella(13,RGB(0,100,128),RGB(200,200,250))
         Call SetColoreCella(14,RGB(0,100,128),RGB(200,200,250))
         Call SetColoreCella(15,RGB(0,100,128),RGB(200,200,250))
      Next
   End If
   Call CreaTabella
End Sub

Alien prova questo script ho fatto una modifica sulla tabella..
nEstrIni = EstrazioneFin - 35
qui puoi scrivere EstrazioneFin -100 oppure -1000 quello che vuoi te..

No scusa Zetrix non mi fa tutte quelle cose che hai scritto sopra
mi da solo :

​	Esito​	​	Estratti​	Estrazione​	Ruota​
1​	Ambo​	​	VE .. 22 45 .. ..​	17.01.2023​	VE​
2​	Ambo​	​	MI .. .. 74 .. 45​	09.02.2023​	MI​