Vi invito a provare questo script ;)

[antonio65]

Vi invito a provare questo script da me ideato...programmato per spaziometria...al'interno trovate l'autore dello script...
ricava molte ambate e ambi ....
Sub Main
Dim Nu(5),aN(5),aNum(1),Ru(1),T,V
Dim dec(10),cad(9)
Ini = EstrazioneFin - 280
fin = EstrazioneFin
Scrivi "*** Metodo Antonio65 **** Script in Tabella By Mike58 *** By Spaziometria ****",1,,,1,3,,1
Scrivi
r = InputBox("Scelta Ruota di Ricerca",,1)
ReDim Rg(0)
rr = ScegliRuote(Rg) 'InputBox("Scelta Ruota di Gioco",,1)
Scrivi "Ruota di Ricerca : " & NomeRuota(r) & Space(45) & " Ruote di Gioco : " & StringaRuote(Rg),1
Ind = CInt(InputBox("Scegli indice Mensile",,1))
T = Array(T,"Casi","infoData","Ruota","Estratti","Numeri Ricavati","Somma Num Ricavati","Esito Somma","clp","cad 1","Esito cad1","Clp","cad 2","Esito cad2","clp")
Call InitTabella(T,6)
For es = Ini To fin
If IndiceMensile(es) = Ind Then
Ru(1) = r
'ReDim Rg()
rr = Rg
k = k + 1
For p = 1 To 5
Nu(p) = Estratto(es,r,p)
Next
aN(1) = Decina(Nu(1)) + Cadenza(Nu(1))
aN(2) = Decina(Nu(2)) + Cadenza(Nu(2))
aN(3) = Decina(Nu(3)) + Cadenza(Nu(3))
aN(4) = Decina(Nu(4)) + Cadenza(Nu(4))
aN(5) = Decina(Nu(5)) + Cadenza(Nu(5))
som = aN(1) + aN(2) + aN(3) + aN(4) + aN(5)
aNum(1) = som
For dc = 0 To 8
dec(dc) = Decina(som) +(dc*10)
Next
For cd = 0 To 8
cad(cd) = Cadenza(som) +(cd*10)
Next
Call VerificaEsito(aNum,Rg,es + 1,1,13,,esito,clp,es1,id1)
Call VerificaEsito(dec,Rg,es + 1,2,13,,esitoA,clpA,esA,idA)
Call VerificaEsito(cad,Rg,es + 1,2,13,,esitoB,clpB,esB,IdB)
V = Array(V,k,GetInfoEstrazione(es),SiglaRuota(r),StringaEstratti(es,r),StringaNumeri(aN,,1),som,es1,clp,StringaNumeri(dec,,1),esA,clpA,StringaNumeri(cad),esB,clpB)
Call AddRigaTabella(V)
For x = 1 To 13
If Gemello(som) Then Call SetColoreCella((x),2,4)
Next
End If
Next
Call SetTableWidth("100%")
CreaTabella
End Sub