gentilmente script !!

un buon natale a tutti !! gentilmente chi mi puņ fornire uno script che mi dia la somma degli estratti in orizzontale ruota x ruota, senza il fuori 90, che possa anche andare indietro con le estrazioni, cambiando indice mensile. grazie

Ciao va bene questo


Sub main()
Dim n1(12),nu1(10)
Dim ruote(10)
a1=0
a1=InputBox("Di Quanto Estrazioni Vuoi Andare Indietro ? "," Estrazioni",0)
ini=EstrazioneFin
For es=ini-a1 To EstrazioneFin-a1
AvanzamentoElab ini,fin,es
For r1=1 To 11
If r1=11 Then r1=12
n1(r1)=SommaEstratti(es,r1)
Scrivi DataEstrazione(es,1)&" < "&siglaRuota(r1)& " "& StringaEstratti(es,r1)&_
" > Pesi Somma < "&Format2(n1(r1))&" >"
Gioca es
Next:Next
Scrivi es
End Sub