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
Presentex Pandit,Scarface,Alien,Blacklotto, e chi volesse collaborare posso scrivere una nuova discussione
che tratta una tematica sull'ambata contata
in questo forum mi sembra che nessuno tratta questa tematica forse non sanno nemmeno come si
calcola una ambata contata
fatemi sapere se siete daccordo a questa iniziativa e vi spiegherò come si calcola una ambata contata
anche se sono un po indeciso se scrivere questa tematica sull'ambata contata su questo forum
considerato che qualcuno mi a risposto male..
Gentilissimo Sig. ZetrixVedi l'allegato 2291475
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