Ciao ragazzi, ho questo script sommativo in cui mi effettua la somma con 90 n.ri consecutivi, ora vorrei che mi venissero raggruppati tutti gli esiti (anche per estratto) per ogni singolo numero da 1 a 90 per evitare di scorrere l'intero resoconto ed annotarli uno ad uno. Avevo pensato a tal scopo alla creazione di una tabella ad ok, ma non e nelle mie capacità. Un ringraziamento già da ora a chi esaudirà la richiesta.
Codice:
Sub Main
TestoInBandaPassante "°°°°°°°°°°°°°Sommativo Superenalotto°°°°°°°°°°°°°",1,5,1
Dim n(18)
Ini = EstrazioniArchivioSE - 150
fin = EstrazioniArchivioSE
For x = 1 To 90
For es = Ini To fin
Messaggio es
AvanzamentoElab Ini,fin,es
If IndiceMensileSE(es) = 12 Then
n(01) = Fuori90(x + EstrattoSE(es - 1,1) + 0)
n(02) = Fuori90(x + EstrattoSE(es - 1,2) + 86)
n(03) = Fuori90(x + EstrattoSE(es - 1,3) + 63)
n(04) = Fuori90(x + EstrattoSE(es - 1,4) + 13)
n(05) = Fuori90(x + EstrattoSE(es - 1,5) + 37)
n(06) = Fuori90(x + EstrattoSE(es - 1,6) + 66)
n(07) = Fuori90(x + EstrattoSE(es - 2,1) + 5)
n(08) = Fuori90(x + EstrattoSE(es - 2,2) + 72)
n(09) = Fuori90(x + EstrattoSE(es - 2,3) + 87)
n(10) = Vert(Fuori90(x + EstrattoSE(es - 1,1) + 89))
n(11) = Vert(Fuori90(x + EstrattoSE(es - 1,2) + 0))
n(12) = Vert(Fuori90(x + EstrattoSE(es - 1,3) + 74))
n(13) = Vert(Fuori90(x + EstrattoSE(es - 1,4) + 29))
n(14) = Vert(Fuori90(x + EstrattoSE(es - 1,5) + 67))
n(15) = Vert(Fuori90(x + EstrattoSE(es - 1,6) + 10))
n(16) = Vert(Fuori90(x + EstrattoSE(es - 2,1) + 0))
n(17) = Vert(Fuori90(x + EstrattoSE(es - 2,2) + 70))
n(18) = Vert(Fuori90(x + EstrattoSE(es - 2,3) + 53))
OrdinaMatrice n,1
rip = 0
If NumeriRipetuti(n) Then
If NumeriRipetuti(n) Then Scrivi " NELLA GIOCATA SONO PRESENTI DEI NUMERI RIPETUTI" & " - " & Format2(n(01)) & " . " & Format2(n(02)) & " . " & Format2(n(03)) & " . " & Format2(n(04)) & " . " & Format2(n(05)) & " . " & Format2(n(06))_
& " . " & Format2(n(07)) & " . " & Format2(n(08)) & " . " & Format2(n(09)) & " . " & Format2(n(10)) & " . " & Format2(n(11)) & " . " & Format2(n(12)) & " . " & Format2(n(13)) & " . " & Format2(n(14)) & " . " & Format2(n(15)) & " . " & Format2(n(16)) & " . " & Format2(n(17)) & " . " & Format2(n(18)),1,1,6
rip = 1
While NumeriRipetuti(n)
For z = 01 To 17
For y = z + 01 To 18
If n(z) = n(y) Then n(y) = Fuori90(n(y) + 01)
Next
Next
Wend
End If
If rip = 1 Then Scrivi " SONO PRESENTI NUMERI RIPETUTI, I NUMERI RIPETUTI VENGONO AUMENTATI DI UNA UNITA",1,1,3
Scrivi " NUMERI GIRANTI : " & Format2(n(01)) & " . " & Format2(n(02)) & " . " & Format2(n(03)) & " . " & Format2(n(04)) & " . " & Format2(n(05)) & " . " & Format2(n(06))_
& " . " & Format2(n(07)) & " . " & Format2(n(08)) & " . " & Format2(n(09)) & " . " & Format2(n(10)) & " . " & Format2(n(11)) & " . " & Format2(n(12)) & " . " & Format2(n(13)) & " . " & Format2(n(14)) & " . " & Format2(n(15)) & " . " & Format2(n(16)) & " . " & Format2(n(17)) & " . " & Format2(n(18)) & " -------> " & x,1,1,1,6
End If
Call ImpostaGiocataSE(es,n,1)
Call GiocaSE(es)
Next
Next
ScriviResocontoSE
End Sub