Novità

xToon

Stato
Chiusa ad ulteriori risposte.
9227.png

nuova tecnica il triangolo vincente
si devono rilevare tre numeri della stessa decina uniti su una ruota e
si fa la Piramida su questi numeri

9228.PNG
[NZ] [.. .. 49 .. ..] C. 4 Estratto 02405 [04/10/2024] [64.38.49.22.61]

per tentativo di ambo i diametrali dei numeri esclusi

1Ambo 49 68
2Ambo 49 59

[TT] [CA][49 .. .. .. 68] C.1 Ambo 02402 [28/09/2024] [49.67.26.29.68]
 
Ultima modifica:
9280.png

nell'ultima estr si rileva questa condizione su roma

9281.PNG

Numeri in gioco 84 su RO per Estratto
In corso


Numeri in gioco 84.65 su RO TT NZ per Ambo
In corso
Numeri in gioco 84.51 su RO TT NZ per Ambo
In corso
 
Ultima modifica:
vorrei regalarvi uno script che disegna tutte le tabelle su tutte le figure sulle estrazioni
la base dello script la scritto Mike58 , invece io ho ridefinito meglio la visione della tabella..
ma in questo forum molti mi hanno risposto male e non dovrei mettere nessuna tabella..
e quanto uno ti risponde male vuol dire che non a nessuna stima di te
 
Ultima modifica:
Zetrix ha scritto:
vorrei regalarvi uno script che disegna tutte le tabelle su tutte le figure sulle estrazioni
la base dello script la scritto Mike58 , invece io ho ridefinito meglio la visione della tabella..
ma in questo forum molti mi hanno risposto male e non dovrei mettere nessuna tabella..
e quanto uno ti risponde male vuol dire che non a nessuna stima di te
Clicca per espandere...
Buonasera,a me interesserebbe,poi fregatene di chi ti risponde male.... Vai avanti con la tua bravura e passione
 
scarface lo script non solo a te interesserebbe ma anche agli altri
soltanto che te ai avuto il coraggio di rispondere gli altri no
a me mi hanno sempre insegnato se uno ti risponde male te li rispondi malissimo
 
9289.PNG

scarface lo script disegna questa tabella ma e solo una parte della tabella
la tabella si puo dimensionare in altezza e si fa una modifica nello script

Call InitTabella(T,RGB(59,159,182),"center",5,Nero_,"WIDE LATIN")

vedi il numero ,5, tra le virgole, se si modifica questo numero si dimensiona in altezza la tabella
se scrivo 2 la riga della tabella si ridimensiona
adesso provo a ridimensionarla la tabella cosi vedi la differenza della tabella
 
Ultima modifica:
9293.PNG

la tabella lo ridimensionata invece di 5 ho messo 2 vedi la differenza con l'altra tabella
se metti 0 la tabella diventa piu ristretta di questa tabella
ma se scrivi 5 i numeri si leggono bene nella tabella
questa e la tabella con la figura 1 lo script ti fa vedere tutte e 9 le tabelle dalla figura 1 sino alla figura 9
 
Ultima modifica:
Zetrix ha scritto:
vorrei regalarvi uno script che disegna tutte le tabelle su tutte le figure sulle estrazioni
la base dello script la scritto Mike58 , invece io ho ridefinito meglio la visione della tabella..
ma in questo forum molti mi hanno risposto male e non dovrei mettere nessuna tabella..
e quanto uno ti risponde male vuol dire che non a nessuna stima di te
Clicca per espandere...
Ciao Zetrix quello che dici non è vero non centra la stima è lui che ha problemi e va curato da uno molto competente questo è un forum del lotto non dove uno deve sfogare le proprie frustrazioni della vita che abbiamo tutti. Vai tranquillo continua le tue ricerche.
 
Codice: 
Sub Main
   Dim Na(30),Nu(5),aN(5),Ru(1)
   Dim Num1,Num2,Num3,Num4,Num5
   Dim x,y,k,z,s,r,es,Ruota,Nk
   Dim T
   tv = InputBox("Quante estrazioni vuoi controllare ?",,0)
   ex = EstrazioneFin - tv
   For es = ex To ex
      Messaggio(es)
      T = Array(T,Replace(DataEstrazione(es),"/",".")," I "," II "," III "," IV "," V ","   "," I "," II "," III "," IV "," V ","  ")
      '
      Call InitTabella(T,RGB(59,159,182),"center",5,Nero_,"WIDE LATIN")
      For Ruota = 1 To 12
         If Ruota = 11 Then Ruota = 12 End If
         For p = 1 To 5
            aN(p) = Estratto(es,Ruota,p)
            Nu(p) = Figura(Estratto(es,Ruota,p))
         Next
         '-----------------------------------------------
         '
         T = Array(T,SiglaRuota(Ruota),aN(1),aN(2),aN(3),aN(4),aN(5),SiglaRuota(Ruota),Nu(1),Nu(2),Nu(3),Nu(4),Nu(5),SiglaRuota(Ruota))
         Call AddRigaTabella(T,Bianco_,"center",5,,"WIDE LATIN")
         For y = 1 To 90 Step 9
            'x = 2
            If Nu(1) = y Then Call SetColoreCella(8,RGB(240,240,0),RGB(0,100,100))
            If Nu(2) = y Then Call SetColoreCella(9,RGB(240,240,0),RGB(0,100,100))
            If Nu(3) = y Then Call SetColoreCella(10,RGB(240,240,0),RGB(0,100,100))
            If Nu(4) = y Then Call SetColoreCella(11,RGB(240,240,0),RGB(0,100,100))
            If Nu(5) = y Then Call SetColoreCella(12,RGB(240,240,0),RGB(0,100,100))
            If aN(1) And Nu(1) = y Then Call SetColoreCella(2,RGB(255,204,0),RGB(0,100,100))
            If aN(2) And Nu(2) = y Then Call SetColoreCella(3,RGB(255,204,0),RGB(0,100,100))
            If aN(3) And Nu(3) = y Then Call SetColoreCella(4,RGB(255,204,0),RGB(0,100,100))
            If aN(4) And Nu(4) = y Then Call SetColoreCella(5,RGB(255,204,0),RGB(0,100,100))
            If aN(5) And Nu(5) = y Then Call SetColoreCella(6,RGB(255,204,0),RGB(0,100,100))
            If aN(1) = x Then Call SetColoreCella(2,RGB(240,0,240),RGB(230,230,230))
            If aN(2) = x Then Call SetColoreCella(3,RGB(240,0,240),RGB(230,230,230))
            If aN(3) = x Then Call SetColoreCella(4,RGB(240,0,240),RGB(230,230,230))
            If aN(4) = x Then Call SetColoreCella(5,RGB(240,0,240),RGB(230,230,230))
            If aN(5) = x Then Call SetColoreCella(6,RGB(240,0,240),RGB(230,230,230))
         Next
         Call SetColoreCella(1,RGB(59,159,182),0)
         Call SetColoreCella(7,RGB(59,159,182),0)
         Call SetColoreCella(13,RGB(59,159,182),0)
         Call SetColoreCella(14,RGB(59,159,182),0)
      Next
      CreaTabella
      T = Array(T,Replace(DataEstrazione(es),"/",".")," I "," II "," III "," IV "," V ","  "," I "," II "," III "," IV "," V ","  ")
      '
      Call InitTabella(T,RGB(59,159,182),"center",5,Nero_,"WIDE LATIN")
      For Ruota = 1 To 12
         If Ruota = 11 Then Ruota = 12 End If
         For p = 1 To 5
            aN(p) = Estratto(es,Ruota,p)
            Nu(p) = Figura(Estratto(es,Ruota,p))
         Next
         '-----------------------------------------------
         '
         T = Array(T,SiglaRuota(Ruota),aN(1),aN(2),aN(3),aN(4),aN(5),SiglaRuota(Ruota),Nu(1),Nu(2),Nu(3),Nu(4),Nu(5),SiglaRuota(Ruota))
         Call AddRigaTabella(T,Bianco_,"center",5,,"WIDE LATIN")
         For y = 2 To 90 Step 9
            '
            If Nu(1) = y Then Call SetColoreCella(8,RGB(240,240,0),RGB(0,100,100))
            If Nu(2) = y Then Call SetColoreCella(9,RGB(240,240,0),RGB(0,100,100))
            If Nu(3) = y Then Call SetColoreCella(10,RGB(240,240,0),RGB(0,100,100))
            If Nu(4) = y Then Call SetColoreCella(11,RGB(240,240,0),RGB(0,100,100))
            If Nu(5) = y Then Call SetColoreCella(12,RGB(240,240,0),RGB(0,100,100))
            If aN(1) And Nu(1) = y Then Call SetColoreCella(2,RGB(255,204,0),RGB(0,100,100))
            If aN(2) And Nu(2) = y Then Call SetColoreCella(3,RGB(255,204,0),RGB(0,100,100))
            If aN(3) And Nu(3) = y Then Call SetColoreCella(4,RGB(255,204,0),RGB(0,100,100))
            If aN(4) And Nu(4) = y Then Call SetColoreCella(5,RGB(255,204,0),RGB(0,100,100))
            If aN(5) And Nu(5) = y Then Call SetColoreCella(6,RGB(255,204,0),RGB(0,100,100))
            If aN(1) = x Then Call SetColoreCella(2,RGB(240,0,240),RGB(230,230,230))
            If aN(2) = x Then Call SetColoreCella(3,RGB(240,0,240),RGB(230,230,230))
            If aN(3) = x Then Call SetColoreCella(4,RGB(240,0,240),RGB(230,230,230))
            If aN(4) = x Then Call SetColoreCella(5,RGB(240,0,240),RGB(230,230,230))
            If aN(5) = x Then Call SetColoreCella(6,RGB(240,0,240),RGB(230,230,230))
         Next
         Call SetColoreCella(1,RGB(59,159,182),0)
         Call SetColoreCella(7,RGB(59,159,182),0)
         Call SetColoreCella(13,RGB(59,159,182),0)
         Call SetColoreCella(14,RGB(59,159,182),0)
      Next
      CreaTabella
      T = Array(T,Replace(DataEstrazione(es),"/",".")," I "," II "," III "," IV "," V ","  "," I "," II "," III "," IV "," V ","  ")
      '
      Call InitTabella(T,RGB(59,159,182),"center",5,Nero_,"WIDE LATIN")
      For Ruota = 1 To 12
         If Ruota = 11 Then Ruota = 12 End If
         For p = 1 To 5
            aN(p) = Estratto(es,Ruota,p)
            Nu(p) = Figura(Estratto(es,Ruota,p))
         Next
         '-----------------------------------------------
         '
         T = Array(T,SiglaRuota(Ruota),aN(1),aN(2),aN(3),aN(4),aN(5),SiglaRuota(Ruota),Nu(1),Nu(2),Nu(3),Nu(4),Nu(5),SiglaRuota(Ruota))
         Call AddRigaTabella(T,Bianco_,"center",5,,"WIDE LATIN")
         For y = 3 To 90 Step 9
            'x = 2
            If Nu(1) = y Then Call SetColoreCella(8,RGB(240,240,0),RGB(0,100,100))
            If Nu(2) = y Then Call SetColoreCella(9,RGB(240,240,0),RGB(0,100,100))
            If Nu(3) = y Then Call SetColoreCella(10,RGB(240,240,0),RGB(0,100,100))
            If Nu(4) = y Then Call SetColoreCella(11,RGB(240,240,0),RGB(0,100,100))
            If Nu(5) = y Then Call SetColoreCella(12,RGB(240,240,0),RGB(0,100,100))
            If aN(1) And Nu(1) = y Then Call SetColoreCella(2,RGB(255,204,0),RGB(0,100,100))
            If aN(2) And Nu(2) = y Then Call SetColoreCella(3,RGB(255,204,0),RGB(0,100,100))
            If aN(3) And Nu(3) = y Then Call SetColoreCella(4,RGB(255,204,0),RGB(0,100,100))
            If aN(4) And Nu(4) = y Then Call SetColoreCella(5,RGB(255,204,0),RGB(0,100,100))
            If aN(5) And Nu(5) = y Then Call SetColoreCella(6,RGB(255,204,0),RGB(0,100,100))
            If aN(1) = x Then Call SetColoreCella(2,RGB(240,0,240),RGB(230,230,230))
            If aN(2) = x Then Call SetColoreCella(3,RGB(240,0,240),RGB(230,230,230))
            If aN(3) = x Then Call SetColoreCella(4,RGB(240,0,240),RGB(230,230,230))
            If aN(4) = x Then Call SetColoreCella(5,RGB(240,0,240),RGB(230,230,230))
            If aN(5) = x Then Call SetColoreCella(6,RGB(240,0,240),RGB(230,230,230))
         Next
         Call SetColoreCella(1,RGB(59,159,182),0)
         Call SetColoreCella(7,RGB(59,159,182),0)
         Call SetColoreCella(13,RGB(59,159,182),0)
         Call SetColoreCella(14,RGB(59,159,182),0)
      Next
      CreaTabella
      T = Array(T,Replace(DataEstrazione(es),"/",".")," I "," II "," III "," IV "," V ","  "," I "," II "," III "," IV "," V ","  ")
      '
      Call InitTabella(T,RGB(59,159,182),"center",5,Nero_,"WIDE LATIN")
      For Ruota = 1 To 12
         If Ruota = 11 Then Ruota = 12 End If
         For p = 1 To 5
            aN(p) = Estratto(es,Ruota,p)
            Nu(p) = Figura(Estratto(es,Ruota,p))
         Next
         '-----------------------------------------------
         '
         T = Array(T,SiglaRuota(Ruota),aN(1),aN(2),aN(3),aN(4),aN(5),SiglaRuota(Ruota),Nu(1),Nu(2),Nu(3),Nu(4),Nu(5),SiglaRuota(Ruota))
         Call AddRigaTabella(T,Bianco_,"center",5,,"WIDE LATIN")
         For y = 4 To 90 Step 9
            'x = 2
            If Nu(1) = y Then Call SetColoreCella(8,RGB(240,240,0),RGB(0,100,100))
            If Nu(2) = y Then Call SetColoreCella(9,RGB(240,240,0),RGB(0,100,100))
            If Nu(3) = y Then Call SetColoreCella(10,RGB(240,240,0),RGB(0,100,100))
            If Nu(4) = y Then Call SetColoreCella(11,RGB(240,240,0),RGB(0,100,100))
            If Nu(5) = y Then Call SetColoreCella(12,RGB(240,240,0),RGB(0,100,100))
            If aN(1) And Nu(1) = y Then Call SetColoreCella(2,RGB(255,204,0),RGB(0,100,100))
            If aN(2) And Nu(2) = y Then Call SetColoreCella(3,RGB(255,204,0),RGB(0,100,100))
            If aN(3) And Nu(3) = y Then Call SetColoreCella(4,RGB(255,204,0),RGB(0,100,100))
            If aN(4) And Nu(4) = y Then Call SetColoreCella(5,RGB(255,204,0),RGB(0,100,100))
            If aN(5) And Nu(5) = y Then Call SetColoreCella(6,RGB(255,204,0),RGB(0,100,100))
            If aN(1) = x Then Call SetColoreCella(2,RGB(240,0,240),RGB(230,230,230))
            If aN(2) = x Then Call SetColoreCella(3,RGB(240,0,240),RGB(230,230,230))
            If aN(3) = x Then Call SetColoreCella(4,RGB(240,0,240),RGB(230,230,230))
            If aN(4) = x Then Call SetColoreCella(5,RGB(240,0,240),RGB(230,230,230))
            If aN(5) = x Then Call SetColoreCella(6,RGB(240,0,240),RGB(230,230,230))
         Next
         Call SetColoreCella(1,RGB(59,159,182),0)
         Call SetColoreCella(7,RGB(59,159,182),0)
         Call SetColoreCella(13,RGB(59,159,182),0)
         Call SetColoreCella(14,RGB(59,159,182),0)
      Next
      CreaTabella
      T = Array(T,Replace(DataEstrazione(es),"/",".")," I "," II "," III "," IV "," V ","  "," I "," II "," III "," IV "," V ","  ")
      '
      Call InitTabella(T,RGB(59,159,182),"center",5,Nero_,"WIDE LATIN")
      For Ruota = 1 To 12
         If Ruota = 11 Then Ruota = 12 End If
         For p = 1 To 5
            aN(p) = Estratto(es,Ruota,p)
            Nu(p) = Figura(Estratto(es,Ruota,p))
         Next
         '-----------------------------------------------
         '
         T = Array(T,SiglaRuota(Ruota),aN(1),aN(2),aN(3),aN(4),aN(5),SiglaRuota(Ruota),Nu(1),Nu(2),Nu(3),Nu(4),Nu(5),SiglaRuota(Ruota))
         Call AddRigaTabella(T,Bianco_,"center",5,,"WIDE LATIN")
         For y = 5 To 90 Step 9
            'x = 2
            If Nu(1) = y Then Call SetColoreCella(8,RGB(240,240,0),RGB(0,100,100))
            If Nu(2) = y Then Call SetColoreCella(9,RGB(240,240,0),RGB(0,100,100))
            If Nu(3) = y Then Call SetColoreCella(10,RGB(240,240,0),RGB(0,100,100))
            If Nu(4) = y Then Call SetColoreCella(11,RGB(240,240,0),RGB(0,100,100))
            If Nu(5) = y Then Call SetColoreCella(12,RGB(240,240,0),RGB(0,100,100))
            If aN(1) And Nu(1) = y Then Call SetColoreCella(2,RGB(255,204,0),RGB(0,100,100))
            If aN(2) And Nu(2) = y Then Call SetColoreCella(3,RGB(255,204,0),RGB(0,100,100))
            If aN(3) And Nu(3) = y Then Call SetColoreCella(4,RGB(255,204,0),RGB(0,100,100))
            If aN(4) And Nu(4) = y Then Call SetColoreCella(5,RGB(255,204,0),RGB(0,100,100))
            If aN(5) And Nu(5) = y Then Call SetColoreCella(6,RGB(255,204,0),RGB(0,100,100))
            If aN(1) = x Then Call SetColoreCella(2,RGB(240,0,240),RGB(230,230,230))
            If aN(2) = x Then Call SetColoreCella(3,RGB(240,0,240),RGB(230,230,230))
            If aN(3) = x Then Call SetColoreCella(4,RGB(240,0,240),RGB(230,230,230))
            If aN(4) = x Then Call SetColoreCella(5,RGB(240,0,240),RGB(230,230,230))
            If aN(5) = x Then Call SetColoreCella(6,RGB(240,0,240),RGB(230,230,230))
         Next
         Call SetColoreCella(1,RGB(59,159,182),0)
         Call SetColoreCella(7,RGB(59,159,182),0)
         Call SetColoreCella(13,RGB(59,159,182),0)
         Call SetColoreCella(14,RGB(59,159,182),0)
      Next
      CreaTabella
      T = Array(T,Replace(DataEstrazione(es),"/",".")," I "," II "," III "," IV "," V ","  "," I "," II "," III "," IV "," V ","  ")
      '
      Call InitTabella(T,RGB(59,159,182),"center",5,Nero_,"WIDE LATIN")
      For Ruota = 1 To 12
         If Ruota = 11 Then Ruota = 12 End If
         For p = 1 To 5
            aN(p) = Estratto(es,Ruota,p)
            Nu(p) = Figura(Estratto(es,Ruota,p))
         Next
         '-----------------------------------------------
         '
         T = Array(T,SiglaRuota(Ruota),aN(1),aN(2),aN(3),aN(4),aN(5),SiglaRuota(Ruota),Nu(1),Nu(2),Nu(3),Nu(4),Nu(5),SiglaRuota(Ruota))
         Call AddRigaTabella(T,Bianco_,"center",5,,"WIDE LATIN")
         For y = 6 To 90 Step 9
            'x = 2
            If Nu(1) = y Then Call SetColoreCella(8,RGB(240,240,0),RGB(0,100,100))
            If Nu(2) = y Then Call SetColoreCella(9,RGB(240,240,0),RGB(0,100,100))
            If Nu(3) = y Then Call SetColoreCella(10,RGB(240,240,0),RGB(0,100,100))
            If Nu(4) = y Then Call SetColoreCella(11,RGB(240,240,0),RGB(0,100,100))
            If Nu(5) = y Then Call SetColoreCella(12,RGB(240,240,0),RGB(0,100,100))
            If aN(1) And Nu(1) = y Then Call SetColoreCella(2,RGB(255,204,0),RGB(0,100,100))
            If aN(2) And Nu(2) = y Then Call SetColoreCella(3,RGB(255,204,0),RGB(0,100,100))
            If aN(3) And Nu(3) = y Then Call SetColoreCella(4,RGB(255,204,0),RGB(0,100,100))
            If aN(4) And Nu(4) = y Then Call SetColoreCella(5,RGB(255,204,0),RGB(0,100,100))
            If aN(5) And Nu(5) = y Then Call SetColoreCella(6,RGB(255,204,0),RGB(0,100,100))
            If aN(1) = x Then Call SetColoreCella(2,RGB(240,0,240),RGB(230,230,230))
            If aN(2) = x Then Call SetColoreCella(3,RGB(240,0,240),RGB(230,230,230))
            If aN(3) = x Then Call SetColoreCella(4,RGB(240,0,240),RGB(230,230,230))
            If aN(4) = x Then Call SetColoreCella(5,RGB(240,0,240),RGB(230,230,230))
            If aN(5) = x Then Call SetColoreCella(6,RGB(240,0,240),RGB(230,230,230))
         Next
         Call SetColoreCella(1,RGB(59,159,182),0)
         Call SetColoreCella(7,RGB(59,159,182),0)
         Call SetColoreCella(13,RGB(59,159,182),0)
         Call SetColoreCella(14,RGB(59,159,182),0)
      Next
      CreaTabella
      T = Array(T,Replace(DataEstrazione(es),"/",".")," I "," II "," III "," IV "," V ","  "," I "," II "," III "," IV "," V ","  ")
      '
      Call InitTabella(T,RGB(59,159,182),"center",5,Nero_,"WIDE LATIN")
      For Ruota = 1 To 12
         If Ruota = 11 Then Ruota = 12 End If
         For p = 1 To 5
            aN(p) = Estratto(es,Ruota,p)
            Nu(p) = Figura(Estratto(es,Ruota,p))
         Next
         '-----------------------------------------------
         '
         T = Array(T,SiglaRuota(Ruota),aN(1),aN(2),aN(3),aN(4),aN(5),SiglaRuota(Ruota),Nu(1),Nu(2),Nu(3),Nu(4),Nu(5),SiglaRuota(Ruota))
         Call AddRigaTabella(T,Bianco_,"center",5,,"WIDE LATIN")
         For y = 7 To 90 Step 9
            'x = 2
            If Nu(1) = y Then Call SetColoreCella(8,RGB(240,240,0),RGB(0,100,100))
            If Nu(2) = y Then Call SetColoreCella(9,RGB(240,240,0),RGB(0,100,100))
            If Nu(3) = y Then Call SetColoreCella(10,RGB(240,240,0),RGB(0,100,100))
            If Nu(4) = y Then Call SetColoreCella(11,RGB(240,240,0),RGB(0,100,100))
            If Nu(5) = y Then Call SetColoreCella(12,RGB(240,240,0),RGB(0,100,100))
            If aN(1) And Nu(1) = y Then Call SetColoreCella(2,RGB(255,204,0),RGB(0,100,100))
            If aN(2) And Nu(2) = y Then Call SetColoreCella(3,RGB(255,204,0),RGB(0,100,100))
            If aN(3) And Nu(3) = y Then Call SetColoreCella(4,RGB(255,204,0),RGB(0,100,100))
            If aN(4) And Nu(4) = y Then Call SetColoreCella(5,RGB(255,204,0),RGB(0,100,100))
            If aN(5) And Nu(5) = y Then Call SetColoreCella(6,RGB(255,204,0),RGB(0,100,100))
            If aN(1) = x Then Call SetColoreCella(2,RGB(240,0,240),RGB(230,230,230))
            If aN(2) = x Then Call SetColoreCella(3,RGB(240,0,240),RGB(230,230,230))
            If aN(3) = x Then Call SetColoreCella(4,RGB(240,0,240),RGB(230,230,230))
            If aN(4) = x Then Call SetColoreCella(5,RGB(240,0,240),RGB(230,230,230))
            If aN(5) = x Then Call SetColoreCella(6,RGB(240,0,240),RGB(230,230,230))
         Next
         Call SetColoreCella(1,RGB(59,159,182),0)
         Call SetColoreCella(7,RGB(59,159,182),0)
         Call SetColoreCella(13,RGB(59,159,182),0)
         Call SetColoreCella(14,RGB(59,159,182),0)
      Next
      CreaTabella
      T = Array(T,Replace(DataEstrazione(es),"/",".")," I "," II "," III "," IV "," V ","  "," I "," II "," III "," IV "," V ","  ")
      '
      Call InitTabella(T,RGB(59,159,182),"center",5,Nero_,"WIDE LATIN")
      For Ruota = 1 To 12
         If Ruota = 11 Then Ruota = 12 End If
         For p = 1 To 5
            aN(p) = Estratto(es,Ruota,p)
            Nu(p) = Figura(Estratto(es,Ruota,p))
         Next
         '-----------------------------------------------
         '
         T = Array(T,SiglaRuota(Ruota),aN(1),aN(2),aN(3),aN(4),aN(5),SiglaRuota(Ruota),Nu(1),Nu(2),Nu(3),Nu(4),Nu(5),SiglaRuota(Ruota))
         Call AddRigaTabella(T,Bianco_,"center",5,,"WIDE LATIN")
         For y = 8 To 90 Step 9
            'x = 2
            If Nu(1) = y Then Call SetColoreCella(8,RGB(240,240,0),RGB(0,100,100))
            If Nu(2) = y Then Call SetColoreCella(9,RGB(240,240,0),RGB(0,100,100))
            If Nu(3) = y Then Call SetColoreCella(10,RGB(240,240,0),RGB(0,100,100))
            If Nu(4) = y Then Call SetColoreCella(11,RGB(240,240,0),RGB(0,100,100))
            If Nu(5) = y Then Call SetColoreCella(12,RGB(240,240,0),RGB(0,100,100))
            If aN(1) And Nu(1) = y Then Call SetColoreCella(2,RGB(255,204,0),RGB(0,100,100))
            If aN(2) And Nu(2) = y Then Call SetColoreCella(3,RGB(255,204,0),RGB(0,100,100))
            If aN(3) And Nu(3) = y Then Call SetColoreCella(4,RGB(255,204,0),RGB(0,100,100))
            If aN(4) And Nu(4) = y Then Call SetColoreCella(5,RGB(255,204,0),RGB(0,100,100))
            If aN(5) And Nu(5) = y Then Call SetColoreCella(6,RGB(255,204,0),RGB(0,100,100))
            If aN(1) = x Then Call SetColoreCella(2,RGB(240,0,240),RGB(230,230,230))
            If aN(2) = x Then Call SetColoreCella(3,RGB(240,0,240),RGB(230,230,230))
            If aN(3) = x Then Call SetColoreCella(4,RGB(240,0,240),RGB(230,230,230))
            If aN(4) = x Then Call SetColoreCella(5,RGB(240,0,240),RGB(230,230,230))
            If aN(5) = x Then Call SetColoreCella(6,RGB(240,0,240),RGB(230,230,230))
         Next
         Call SetColoreCella(1,RGB(59,159,182),0)
         Call SetColoreCella(7,RGB(59,159,182),0)
         Call SetColoreCella(13,RGB(59,159,182),0)
         Call SetColoreCella(14,RGB(59,159,182),0)
      Next
      CreaTabella
      T = Array(T,Replace(DataEstrazione(es),"/",".")," I "," II "," III "," IV "," V ","  "," I "," II "," III "," IV "," V ","  ")
      '
      Call InitTabella(T,RGB(59,159,182),"center",5,Nero_,"WIDE LATIN")
      For Ruota = 1 To 12
         If Ruota = 11 Then Ruota = 12 End If
         For p = 1 To 5
            aN(p) = Estratto(es,Ruota,p)
            Nu(p) = Figura(Estratto(es,Ruota,p))
         Next
         '-----------------------------------------------
         '
         T = Array(T,SiglaRuota(Ruota),aN(1),aN(2),aN(3),aN(4),aN(5),SiglaRuota(Ruota),Nu(1),Nu(2),Nu(3),Nu(4),Nu(5),SiglaRuota(Ruota))
         Call AddRigaTabella(T,Bianco_,"center",5,,"WIDE LATIN")
         For y = 9 To 90 Step 9
            'x = 2
            If Nu(1) = y Then Call SetColoreCella(8,RGB(240,240,0),RGB(0,100,100))
            If Nu(2) = y Then Call SetColoreCella(9,RGB(240,240,0),RGB(0,100,100))
            If Nu(3) = y Then Call SetColoreCella(10,RGB(240,240,0),RGB(0,100,100))
            If Nu(4) = y Then Call SetColoreCella(11,RGB(240,240,0),RGB(0,100,100))
            If Nu(5) = y Then Call SetColoreCella(12,RGB(240,240,0),RGB(0,100,100))
            If aN(1) And Nu(1) = y Then Call SetColoreCella(2,RGB(255,204,0),RGB(0,100,100))
            If aN(2) And Nu(2) = y Then Call SetColoreCella(3,RGB(255,204,0),RGB(0,100,100))
            If aN(3) And Nu(3) = y Then Call SetColoreCella(4,RGB(255,204,0),RGB(0,100,100))
            If aN(4) And Nu(4) = y Then Call SetColoreCella(5,RGB(255,204,0),RGB(0,100,100))
            If aN(5) And Nu(5) = y Then Call SetColoreCella(6,RGB(255,204,0),RGB(0,100,100))
            If aN(1) = x Then Call SetColoreCella(2,RGB(240,0,240),RGB(230,230,230))
            If aN(2) = x Then Call SetColoreCella(3,RGB(240,0,240),RGB(230,230,230))
            If aN(3) = x Then Call SetColoreCella(4,RGB(240,0,240),RGB(230,230,230))
            If aN(4) = x Then Call SetColoreCella(5,RGB(240,0,240),RGB(230,230,230))
            If aN(5) = x Then Call SetColoreCella(6,RGB(240,0,240),RGB(230,230,230))
         Next
         Call SetColoreCella(1,RGB(59,159,182),0)
         Call SetColoreCella(7,RGB(59,159,182),0)
         Call SetColoreCella(13,RGB(59,159,182),0)
         Call SetColoreCella(14,RGB(59,159,182),0)
      Next
      CreaTabella
      '
   Next
End Sub

scarface ecco lo script
 
Ciao Alien, lasciamo stare che gia di problemi ce ne sono tanti,
ieri ho giocato il 7 90 a BA e stasera e uscito a VE ..e che vogliamo fare..
io non gioco a tutte ..ogni tanto gioco a tutte..e brava la lottomatica..
 
Codice: 
Sub Main
   Dim Na(30),Nu(5),aN(5),Ru(1)
   Dim Num1,Num2,Num3,Num4,Num5
   Dim x,y,k,z,s,r,es,Ruota,Nk
   Dim T
   x = InputBox("Quale numero vuoi evidenziare in tabella ?",,0)
   tv = InputBox("Quante estrazioni vuoi controllare ?",,0)
   ex = EstrazioneFin - tv
   For es = ex To ex
      For x = x To x
         Messaggio(es)
         T = Array(T,Replace(DataEstrazione(es),"/",".")," I "," II "," III "," IV "," V ","   "," I "," II "," III "," IV "," V ","  ")
         '
         Call InitTabella(T,RGB(59,159,182),"center",5,Nero_,"WIDE LATIN")
         For Ruota = 1 To 12
            If Ruota = 11 Then Ruota = 12 End If
            For p = 1 To 5
               aN(p) = Estratto(es,Ruota,p)
               Nu(p) = Figura(Estratto(es,Ruota,p))
            Next
            '-----------------------------------------------
            '
            T = Array(T,SiglaRuota(Ruota),aN(1),aN(2),aN(3),aN(4),aN(5),SiglaRuota(Ruota),Nu(1),Nu(2),Nu(3),Nu(4),Nu(5),SiglaRuota(Ruota))
            Call AddRigaTabella(T,Bianco_,"center",5,,"WIDE LATIN")
            For y = 1 To 90 Step 9
               'x = 2
               If Nu(1) = y Then Call SetColoreCella(8,RGB(240,240,0),RGB(0,100,100))
               If Nu(2) = y Then Call SetColoreCella(9,RGB(240,240,0),RGB(0,100,100))
               If Nu(3) = y Then Call SetColoreCella(10,RGB(240,240,0),RGB(0,100,100))
               If Nu(4) = y Then Call SetColoreCella(11,RGB(240,240,0),RGB(0,100,100))
               If Nu(5) = y Then Call SetColoreCella(12,RGB(240,240,0),RGB(0,100,100))
               If aN(1) And Nu(1) = y Then Call SetColoreCella(2,RGB(255,204,0),RGB(0,100,100))
               If aN(2) And Nu(2) = y Then Call SetColoreCella(3,RGB(255,204,0),RGB(0,100,100))
               If aN(3) And Nu(3) = y Then Call SetColoreCella(4,RGB(255,204,0),RGB(0,100,100))
               If aN(4) And Nu(4) = y Then Call SetColoreCella(5,RGB(255,204,0),RGB(0,100,100))
               If aN(5) And Nu(5) = y Then Call SetColoreCella(6,RGB(255,204,0),RGB(0,100,100))
               If aN(1) = x Then Call SetColoreCella(2,RGB(240,0,240),RGB(230,230,230))
               If aN(2) = x Then Call SetColoreCella(3,RGB(240,0,240),RGB(230,230,230))
               If aN(3) = x Then Call SetColoreCella(4,RGB(240,0,240),RGB(230,230,230))
               If aN(4) = x Then Call SetColoreCella(5,RGB(240,0,240),RGB(230,230,230))
               If aN(5) = x Then Call SetColoreCella(6,RGB(240,0,240),RGB(230,230,230))
            Next
            Call SetColoreCella(1,RGB(59,159,182),0)
            Call SetColoreCella(7,RGB(59,159,182),0)
            Call SetColoreCella(13,RGB(59,159,182),0)
            Call SetColoreCella(14,RGB(59,159,182),0)
         Next
         CreaTabella
         T = Array(T,Replace(DataEstrazione(es),"/",".")," I "," II "," III "," IV "," V ","  "," I "," II "," III "," IV "," V ","  ")
         '
         Call InitTabella(T,RGB(59,159,182),"center",5,Nero_,"WIDE LATIN")
         For Ruota = 1 To 12
            If Ruota = 11 Then Ruota = 12 End If
            For p = 1 To 5
               aN(p) = Estratto(es,Ruota,p)
               Nu(p) = Figura(Estratto(es,Ruota,p))
            Next
            '-----------------------------------------------
            '
            T = Array(T,SiglaRuota(Ruota),aN(1),aN(2),aN(3),aN(4),aN(5),SiglaRuota(Ruota),Nu(1),Nu(2),Nu(3),Nu(4),Nu(5),SiglaRuota(Ruota))
            Call AddRigaTabella(T,Bianco_,"center",5,,"WIDE LATIN")
            For y = 2 To 90 Step 9
               '
               If Nu(1) = y Then Call SetColoreCella(8,RGB(240,240,0),RGB(0,100,100))
               If Nu(2) = y Then Call SetColoreCella(9,RGB(240,240,0),RGB(0,100,100))
               If Nu(3) = y Then Call SetColoreCella(10,RGB(240,240,0),RGB(0,100,100))
               If Nu(4) = y Then Call SetColoreCella(11,RGB(240,240,0),RGB(0,100,100))
               If Nu(5) = y Then Call SetColoreCella(12,RGB(240,240,0),RGB(0,100,100))
               If aN(1) And Nu(1) = y Then Call SetColoreCella(2,RGB(255,204,0),RGB(0,100,100))
               If aN(2) And Nu(2) = y Then Call SetColoreCella(3,RGB(255,204,0),RGB(0,100,100))
               If aN(3) And Nu(3) = y Then Call SetColoreCella(4,RGB(255,204,0),RGB(0,100,100))
               If aN(4) And Nu(4) = y Then Call SetColoreCella(5,RGB(255,204,0),RGB(0,100,100))
               If aN(5) And Nu(5) = y Then Call SetColoreCella(6,RGB(255,204,0),RGB(0,100,100))
               If aN(1) = x Then Call SetColoreCella(2,RGB(240,0,240),RGB(230,230,230))
               If aN(2) = x Then Call SetColoreCella(3,RGB(240,0,240),RGB(230,230,230))
               If aN(3) = x Then Call SetColoreCella(4,RGB(240,0,240),RGB(230,230,230))
               If aN(4) = x Then Call SetColoreCella(5,RGB(240,0,240),RGB(230,230,230))
               If aN(5) = x Then Call SetColoreCella(6,RGB(240,0,240),RGB(230,230,230))
            Next
            Call SetColoreCella(1,RGB(59,159,182),0)
            Call SetColoreCella(7,RGB(59,159,182),0)
            Call SetColoreCella(13,RGB(59,159,182),0)
            Call SetColoreCella(14,RGB(59,159,182),0)
         Next
         CreaTabella
         T = Array(T,Replace(DataEstrazione(es),"/",".")," I "," II "," III "," IV "," V ","  "," I "," II "," III "," IV "," V ","  ")
         '
         Call InitTabella(T,RGB(59,159,182),"center",5,Nero_,"WIDE LATIN")
         For Ruota = 1 To 12
            If Ruota = 11 Then Ruota = 12 End If
            For p = 1 To 5
               aN(p) = Estratto(es,Ruota,p)
               Nu(p) = Figura(Estratto(es,Ruota,p))
            Next
            '-----------------------------------------------
            '
            T = Array(T,SiglaRuota(Ruota),aN(1),aN(2),aN(3),aN(4),aN(5),SiglaRuota(Ruota),Nu(1),Nu(2),Nu(3),Nu(4),Nu(5),SiglaRuota(Ruota))
            Call AddRigaTabella(T,Bianco_,"center",5,,"WIDE LATIN")
            For y = 3 To 90 Step 9
               'x = 2
               If Nu(1) = y Then Call SetColoreCella(8,RGB(240,240,0),RGB(0,100,100))
               If Nu(2) = y Then Call SetColoreCella(9,RGB(240,240,0),RGB(0,100,100))
               If Nu(3) = y Then Call SetColoreCella(10,RGB(240,240,0),RGB(0,100,100))
               If Nu(4) = y Then Call SetColoreCella(11,RGB(240,240,0),RGB(0,100,100))
               If Nu(5) = y Then Call SetColoreCella(12,RGB(240,240,0),RGB(0,100,100))
               If aN(1) And Nu(1) = y Then Call SetColoreCella(2,RGB(255,204,0),RGB(0,100,100))
               If aN(2) And Nu(2) = y Then Call SetColoreCella(3,RGB(255,204,0),RGB(0,100,100))
               If aN(3) And Nu(3) = y Then Call SetColoreCella(4,RGB(255,204,0),RGB(0,100,100))
               If aN(4) And Nu(4) = y Then Call SetColoreCella(5,RGB(255,204,0),RGB(0,100,100))
               If aN(5) And Nu(5) = y Then Call SetColoreCella(6,RGB(255,204,0),RGB(0,100,100))
               If aN(1) = x Then Call SetColoreCella(2,RGB(240,0,240),RGB(230,230,230))
               If aN(2) = x Then Call SetColoreCella(3,RGB(240,0,240),RGB(230,230,230))
               If aN(3) = x Then Call SetColoreCella(4,RGB(240,0,240),RGB(230,230,230))
               If aN(4) = x Then Call SetColoreCella(5,RGB(240,0,240),RGB(230,230,230))
               If aN(5) = x Then Call SetColoreCella(6,RGB(240,0,240),RGB(230,230,230))
            Next
            Call SetColoreCella(1,RGB(59,159,182),0)
            Call SetColoreCella(7,RGB(59,159,182),0)
            Call SetColoreCella(13,RGB(59,159,182),0)
            Call SetColoreCella(14,RGB(59,159,182),0)
         Next
         CreaTabella
         T = Array(T,Replace(DataEstrazione(es),"/",".")," I "," II "," III "," IV "," V ","  "," I "," II "," III "," IV "," V ","  ")
         '
         Call InitTabella(T,RGB(59,159,182),"center",5,Nero_,"WIDE LATIN")
         For Ruota = 1 To 12
            If Ruota = 11 Then Ruota = 12 End If
            For p = 1 To 5
               aN(p) = Estratto(es,Ruota,p)
               Nu(p) = Figura(Estratto(es,Ruota,p))
            Next
            '-----------------------------------------------
            '
            T = Array(T,SiglaRuota(Ruota),aN(1),aN(2),aN(3),aN(4),aN(5),SiglaRuota(Ruota),Nu(1),Nu(2),Nu(3),Nu(4),Nu(5),SiglaRuota(Ruota))
            Call AddRigaTabella(T,Bianco_,"center",5,,"WIDE LATIN")
            For y = 4 To 90 Step 9
               'x = 2
               If Nu(1) = y Then Call SetColoreCella(8,RGB(240,240,0),RGB(0,100,100))
               If Nu(2) = y Then Call SetColoreCella(9,RGB(240,240,0),RGB(0,100,100))
               If Nu(3) = y Then Call SetColoreCella(10,RGB(240,240,0),RGB(0,100,100))
               If Nu(4) = y Then Call SetColoreCella(11,RGB(240,240,0),RGB(0,100,100))
               If Nu(5) = y Then Call SetColoreCella(12,RGB(240,240,0),RGB(0,100,100))
               If aN(1) And Nu(1) = y Then Call SetColoreCella(2,RGB(255,204,0),RGB(0,100,100))
               If aN(2) And Nu(2) = y Then Call SetColoreCella(3,RGB(255,204,0),RGB(0,100,100))
               If aN(3) And Nu(3) = y Then Call SetColoreCella(4,RGB(255,204,0),RGB(0,100,100))
               If aN(4) And Nu(4) = y Then Call SetColoreCella(5,RGB(255,204,0),RGB(0,100,100))
               If aN(5) And Nu(5) = y Then Call SetColoreCella(6,RGB(255,204,0),RGB(0,100,100))
               If aN(1) = x Then Call SetColoreCella(2,RGB(240,0,240),RGB(230,230,230))
               If aN(2) = x Then Call SetColoreCella(3,RGB(240,0,240),RGB(230,230,230))
               If aN(3) = x Then Call SetColoreCella(4,RGB(240,0,240),RGB(230,230,230))
               If aN(4) = x Then Call SetColoreCella(5,RGB(240,0,240),RGB(230,230,230))
               If aN(5) = x Then Call SetColoreCella(6,RGB(240,0,240),RGB(230,230,230))
            Next
            Call SetColoreCella(1,RGB(59,159,182),0)
            Call SetColoreCella(7,RGB(59,159,182),0)
            Call SetColoreCella(13,RGB(59,159,182),0)
            Call SetColoreCella(14,RGB(59,159,182),0)
         Next
         CreaTabella
         T = Array(T,Replace(DataEstrazione(es),"/",".")," I "," II "," III "," IV "," V ","  "," I "," II "," III "," IV "," V ","  ")
         '
         Call InitTabella(T,RGB(59,159,182),"center",5,Nero_,"WIDE LATIN")
         For Ruota = 1 To 12
            If Ruota = 11 Then Ruota = 12 End If
            For p = 1 To 5
               aN(p) = Estratto(es,Ruota,p)
               Nu(p) = Figura(Estratto(es,Ruota,p))
            Next
            '-----------------------------------------------
            '
            T = Array(T,SiglaRuota(Ruota),aN(1),aN(2),aN(3),aN(4),aN(5),SiglaRuota(Ruota),Nu(1),Nu(2),Nu(3),Nu(4),Nu(5),SiglaRuota(Ruota))
            Call AddRigaTabella(T,Bianco_,"center",5,,"WIDE LATIN")
            For y = 5 To 90 Step 9
               'x = 2
               If Nu(1) = y Then Call SetColoreCella(8,RGB(240,240,0),RGB(0,100,100))
               If Nu(2) = y Then Call SetColoreCella(9,RGB(240,240,0),RGB(0,100,100))
               If Nu(3) = y Then Call SetColoreCella(10,RGB(240,240,0),RGB(0,100,100))
               If Nu(4) = y Then Call SetColoreCella(11,RGB(240,240,0),RGB(0,100,100))
               If Nu(5) = y Then Call SetColoreCella(12,RGB(240,240,0),RGB(0,100,100))
               If aN(1) And Nu(1) = y Then Call SetColoreCella(2,RGB(255,204,0),RGB(0,100,100))
               If aN(2) And Nu(2) = y Then Call SetColoreCella(3,RGB(255,204,0),RGB(0,100,100))
               If aN(3) And Nu(3) = y Then Call SetColoreCella(4,RGB(255,204,0),RGB(0,100,100))
               If aN(4) And Nu(4) = y Then Call SetColoreCella(5,RGB(255,204,0),RGB(0,100,100))
               If aN(5) And Nu(5) = y Then Call SetColoreCella(6,RGB(255,204,0),RGB(0,100,100))
               If aN(1) = x Then Call SetColoreCella(2,RGB(240,0,240),RGB(230,230,230))
               If aN(2) = x Then Call SetColoreCella(3,RGB(240,0,240),RGB(230,230,230))
               If aN(3) = x Then Call SetColoreCella(4,RGB(240,0,240),RGB(230,230,230))
               If aN(4) = x Then Call SetColoreCella(5,RGB(240,0,240),RGB(230,230,230))
               If aN(5) = x Then Call SetColoreCella(6,RGB(240,0,240),RGB(230,230,230))
            Next
            Call SetColoreCella(1,RGB(59,159,182),0)
            Call SetColoreCella(7,RGB(59,159,182),0)
            Call SetColoreCella(13,RGB(59,159,182),0)
            Call SetColoreCella(14,RGB(59,159,182),0)
         Next
         CreaTabella
         T = Array(T,Replace(DataEstrazione(es),"/",".")," I "," II "," III "," IV "," V ","  "," I "," II "," III "," IV "," V ","  ")
         '
         Call InitTabella(T,RGB(59,159,182),"center",5,Nero_,"WIDE LATIN")
         For Ruota = 1 To 12
            If Ruota = 11 Then Ruota = 12 End If
            For p = 1 To 5
               aN(p) = Estratto(es,Ruota,p)
               Nu(p) = Figura(Estratto(es,Ruota,p))
            Next
            '-----------------------------------------------
            '
            T = Array(T,SiglaRuota(Ruota),aN(1),aN(2),aN(3),aN(4),aN(5),SiglaRuota(Ruota),Nu(1),Nu(2),Nu(3),Nu(4),Nu(5),SiglaRuota(Ruota))
            Call AddRigaTabella(T,Bianco_,"center",5,,"WIDE LATIN")
            For y = 6 To 90 Step 9
               'x = 2
               If Nu(1) = y Then Call SetColoreCella(8,RGB(240,240,0),RGB(0,100,100))
               If Nu(2) = y Then Call SetColoreCella(9,RGB(240,240,0),RGB(0,100,100))
               If Nu(3) = y Then Call SetColoreCella(10,RGB(240,240,0),RGB(0,100,100))
               If Nu(4) = y Then Call SetColoreCella(11,RGB(240,240,0),RGB(0,100,100))
               If Nu(5) = y Then Call SetColoreCella(12,RGB(240,240,0),RGB(0,100,100))
               If aN(1) And Nu(1) = y Then Call SetColoreCella(2,RGB(255,204,0),RGB(0,100,100))
               If aN(2) And Nu(2) = y Then Call SetColoreCella(3,RGB(255,204,0),RGB(0,100,100))
               If aN(3) And Nu(3) = y Then Call SetColoreCella(4,RGB(255,204,0),RGB(0,100,100))
               If aN(4) And Nu(4) = y Then Call SetColoreCella(5,RGB(255,204,0),RGB(0,100,100))
               If aN(5) And Nu(5) = y Then Call SetColoreCella(6,RGB(255,204,0),RGB(0,100,100))
               If aN(1) = x Then Call SetColoreCella(2,RGB(240,0,240),RGB(230,230,230))
               If aN(2) = x Then Call SetColoreCella(3,RGB(240,0,240),RGB(230,230,230))
               If aN(3) = x Then Call SetColoreCella(4,RGB(240,0,240),RGB(230,230,230))
               If aN(4) = x Then Call SetColoreCella(5,RGB(240,0,240),RGB(230,230,230))
               If aN(5) = x Then Call SetColoreCella(6,RGB(240,0,240),RGB(230,230,230))
            Next
            Call SetColoreCella(1,RGB(59,159,182),0)
            Call SetColoreCella(7,RGB(59,159,182),0)
            Call SetColoreCella(13,RGB(59,159,182),0)
            Call SetColoreCella(14,RGB(59,159,182),0)
         Next
         CreaTabella
         T = Array(T,Replace(DataEstrazione(es),"/",".")," I "," II "," III "," IV "," V ","  "," I "," II "," III "," IV "," V ","  ")
         '
         Call InitTabella(T,RGB(59,159,182),"center",5,Nero_,"WIDE LATIN")
         For Ruota = 1 To 12
            If Ruota = 11 Then Ruota = 12 End If
            For p = 1 To 5
               aN(p) = Estratto(es,Ruota,p)
               Nu(p) = Figura(Estratto(es,Ruota,p))
            Next
            '-----------------------------------------------
            '
            T = Array(T,SiglaRuota(Ruota),aN(1),aN(2),aN(3),aN(4),aN(5),SiglaRuota(Ruota),Nu(1),Nu(2),Nu(3),Nu(4),Nu(5),SiglaRuota(Ruota))
            Call AddRigaTabella(T,Bianco_,"center",5,,"WIDE LATIN")
            For y = 7 To 90 Step 9
               'x = 2
               If Nu(1) = y Then Call SetColoreCella(8,RGB(240,240,0),RGB(0,100,100))
               If Nu(2) = y Then Call SetColoreCella(9,RGB(240,240,0),RGB(0,100,100))
               If Nu(3) = y Then Call SetColoreCella(10,RGB(240,240,0),RGB(0,100,100))
               If Nu(4) = y Then Call SetColoreCella(11,RGB(240,240,0),RGB(0,100,100))
               If Nu(5) = y Then Call SetColoreCella(12,RGB(240,240,0),RGB(0,100,100))
               If aN(1) And Nu(1) = y Then Call SetColoreCella(2,RGB(255,204,0),RGB(0,100,100))
               If aN(2) And Nu(2) = y Then Call SetColoreCella(3,RGB(255,204,0),RGB(0,100,100))
               If aN(3) And Nu(3) = y Then Call SetColoreCella(4,RGB(255,204,0),RGB(0,100,100))
               If aN(4) And Nu(4) = y Then Call SetColoreCella(5,RGB(255,204,0),RGB(0,100,100))
               If aN(5) And Nu(5) = y Then Call SetColoreCella(6,RGB(255,204,0),RGB(0,100,100))
               If aN(1) = x Then Call SetColoreCella(2,RGB(240,0,240),RGB(230,230,230))
               If aN(2) = x Then Call SetColoreCella(3,RGB(240,0,240),RGB(230,230,230))
               If aN(3) = x Then Call SetColoreCella(4,RGB(240,0,240),RGB(230,230,230))
               If aN(4) = x Then Call SetColoreCella(5,RGB(240,0,240),RGB(230,230,230))
               If aN(5) = x Then Call SetColoreCella(6,RGB(240,0,240),RGB(230,230,230))
            Next
            Call SetColoreCella(1,RGB(59,159,182),0)
            Call SetColoreCella(7,RGB(59,159,182),0)
            Call SetColoreCella(13,RGB(59,159,182),0)
            Call SetColoreCella(14,RGB(59,159,182),0)
         Next
         CreaTabella
         T = Array(T,Replace(DataEstrazione(es),"/",".")," I "," II "," III "," IV "," V ","  "," I "," II "," III "," IV "," V ","  ")
         '
         Call InitTabella(T,RGB(59,159,182),"center",5,Nero_,"WIDE LATIN")
         For Ruota = 1 To 12
            If Ruota = 11 Then Ruota = 12 End If
            For p = 1 To 5
               aN(p) = Estratto(es,Ruota,p)
               Nu(p) = Figura(Estratto(es,Ruota,p))
            Next
            '-----------------------------------------------
            '
            T = Array(T,SiglaRuota(Ruota),aN(1),aN(2),aN(3),aN(4),aN(5),SiglaRuota(Ruota),Nu(1),Nu(2),Nu(3),Nu(4),Nu(5),SiglaRuota(Ruota))
            Call AddRigaTabella(T,Bianco_,"center",5,,"WIDE LATIN")
            For y = 8 To 90 Step 9
               'x = 2
               If Nu(1) = y Then Call SetColoreCella(8,RGB(240,240,0),RGB(0,100,100))
               If Nu(2) = y Then Call SetColoreCella(9,RGB(240,240,0),RGB(0,100,100))
               If Nu(3) = y Then Call SetColoreCella(10,RGB(240,240,0),RGB(0,100,100))
               If Nu(4) = y Then Call SetColoreCella(11,RGB(240,240,0),RGB(0,100,100))
               If Nu(5) = y Then Call SetColoreCella(12,RGB(240,240,0),RGB(0,100,100))
               If aN(1) And Nu(1) = y Then Call SetColoreCella(2,RGB(255,204,0),RGB(0,100,100))
               If aN(2) And Nu(2) = y Then Call SetColoreCella(3,RGB(255,204,0),RGB(0,100,100))
               If aN(3) And Nu(3) = y Then Call SetColoreCella(4,RGB(255,204,0),RGB(0,100,100))
               If aN(4) And Nu(4) = y Then Call SetColoreCella(5,RGB(255,204,0),RGB(0,100,100))
               If aN(5) And Nu(5) = y Then Call SetColoreCella(6,RGB(255,204,0),RGB(0,100,100))
               If aN(1) = x Then Call SetColoreCella(2,RGB(240,0,240),RGB(230,230,230))
               If aN(2) = x Then Call SetColoreCella(3,RGB(240,0,240),RGB(230,230,230))
               If aN(3) = x Then Call SetColoreCella(4,RGB(240,0,240),RGB(230,230,230))
               If aN(4) = x Then Call SetColoreCella(5,RGB(240,0,240),RGB(230,230,230))
               If aN(5) = x Then Call SetColoreCella(6,RGB(240,0,240),RGB(230,230,230))
            Next
            Call SetColoreCella(1,RGB(59,159,182),0)
            Call SetColoreCella(7,RGB(59,159,182),0)
            Call SetColoreCella(13,RGB(59,159,182),0)
            Call SetColoreCella(14,RGB(59,159,182),0)
         Next
         CreaTabella
         T = Array(T,Replace(DataEstrazione(es),"/",".")," I "," II "," III "," IV "," V ","  "," I "," II "," III "," IV "," V ","  ")
         '
         Call InitTabella(T,RGB(59,159,182),"center",5,Nero_,"WIDE LATIN")
         For Ruota = 1 To 12
            If Ruota = 11 Then Ruota = 12 End If
            For p = 1 To 5
               aN(p) = Estratto(es,Ruota,p)
               Nu(p) = Figura(Estratto(es,Ruota,p))
            Next
            '-----------------------------------------------
            '
            T = Array(T,SiglaRuota(Ruota),aN(1),aN(2),aN(3),aN(4),aN(5),SiglaRuota(Ruota),Nu(1),Nu(2),Nu(3),Nu(4),Nu(5),SiglaRuota(Ruota))
            Call AddRigaTabella(T,Bianco_,"center",5,,"WIDE LATIN")
            For y = 9 To 90 Step 9
               'x = 2
               If Nu(1) = y Then Call SetColoreCella(8,RGB(240,240,0),RGB(0,100,100))
               If Nu(2) = y Then Call SetColoreCella(9,RGB(240,240,0),RGB(0,100,100))
               If Nu(3) = y Then Call SetColoreCella(10,RGB(240,240,0),RGB(0,100,100))
               If Nu(4) = y Then Call SetColoreCella(11,RGB(240,240,0),RGB(0,100,100))
               If Nu(5) = y Then Call SetColoreCella(12,RGB(240,240,0),RGB(0,100,100))
               If aN(1) And Nu(1) = y Then Call SetColoreCella(2,RGB(255,204,0),RGB(0,100,100))
               If aN(2) And Nu(2) = y Then Call SetColoreCella(3,RGB(255,204,0),RGB(0,100,100))
               If aN(3) And Nu(3) = y Then Call SetColoreCella(4,RGB(255,204,0),RGB(0,100,100))
               If aN(4) And Nu(4) = y Then Call SetColoreCella(5,RGB(255,204,0),RGB(0,100,100))
               If aN(5) And Nu(5) = y Then Call SetColoreCella(6,RGB(255,204,0),RGB(0,100,100))
               If aN(1) = x Then Call SetColoreCella(2,RGB(240,0,240),RGB(230,230,230))
               If aN(2) = x Then Call SetColoreCella(3,RGB(240,0,240),RGB(230,230,230))
               If aN(3) = x Then Call SetColoreCella(4,RGB(240,0,240),RGB(230,230,230))
               If aN(4) = x Then Call SetColoreCella(5,RGB(240,0,240),RGB(230,230,230))
               If aN(5) = x Then Call SetColoreCella(6,RGB(240,0,240),RGB(230,230,230))
            Next
            Call SetColoreCella(1,RGB(59,159,182),0)
            Call SetColoreCella(7,RGB(59,159,182),0)
            Call SetColoreCella(13,RGB(59,159,182),0)
            Call SetColoreCella(14,RGB(59,159,182),0)
         Next
         CreaTabella
         '
      Next
   Next
End Sub

scarface mi sono dimenticato in tabella si puo anche evidenziare un numero a scelta
esempio vuoi evidenziare il 90 scrivi in inputbox il 90 se no non scrivere niente
 
buona domenica
grazie Pandit,Alien, lo so che siete entusiasti delle mie tabelle daltronde ce la mia super visione nello script..
e si nota la differenza nella tabella e cosi in tutti gli altri miei script..ma non avete visto ancora altre mie tabelle..
 
Ultima modifica:
9294.PNG

Numeri in gioco 57 su GE TO per Estratto
[GE] [.. .. .. .. 57] C.1 Estratto 02410 [12/10/2024] [06.79.21.30.57]

Numeri in gioco 57.57.80.15.64 su TT NZ per Ambo
[NZ] [57 .. .. .. 64] C.1 Ambo 02410 [12/10/2024] [57.33.85.74.64]

queste tabelle non le avete mai viste nel forum
ambata contata
in giallo sono i numeri estratti
in verde sono gli algoritmi della tabella delle estrazioni
in blu sono i numeri di calcolo
ho realizzato piu di cinquanta tabelle con la versione ambata contata e questa e una variante di gioco
 
9295.PNG

grazie Suriciumalignu,
vorrei dimensionarle un po in altezza la tabella
forse un giorno vi spiego i miei studi sull'ambata contata
ho diverse versioni sull'ambata contata e sto seguendo queste tabelle..
considerate che i numeri estratti sono sovrapposti ai numeri degli algoritmi
 
Ultima modifica:
Tabella Ambata contata1.png

questa e la tabella degli algoritmi ma segue un altra tabella
adesso i numeri estratti si sommano con questi numeri ma spiegare queste cose
non e semplice perche come vi ho detto ci sono diversi studi sull'ambata contata
 
Ultima modifica:
Stato
Chiusa ad ulteriori risposte.

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 12 aprile 2025
    Bari
    47
    07
    11
    43
    61
    Cagliari
    34
    14
    81
    89
    79
    Firenze
    81
    16
    28
    03
    21
    Genova
    85
    04
    45
    60
    29
    Milano
    69
    30
    06
    13
    55
    Napoli
    12
    03
    48
    31
    24
    Palermo
    48
    06
    68
    66
    28
    Roma
    69
    25
    09
    48
    86
    Torino
    29
    85
    52
    54
    62
    Venezia
    90
    61
    34
    79
    37
    Nazionale
    18
    14
    88
    10
    27
    Estrazione Simbolotto
    Genova
    39
    20
    02
    13
    26
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto