Follow along with the video below to see how to install our site as a web app on your home screen.
Nota: This feature may not be available in some browsers.
Ciao buonasera,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