Chiedo gentilmente uno script

[Ufrenk]

Buongiorno a tutti
mi affido a chi e' esperto in script ,io non ne sono capace.
Mi farebbe comodo uno script che:
1) possa inserire 3 numeri a mia scelta
2) possa verificare esito di ambo e terno su tutte le ruote ( e magari su ogni ruota che e' o sono sortiti)
3) mi rilasci una lista che in ordine cronologico mi faccia vedere gli esiti
4) la ricerca non ho bisogno che parta dal lontano 1871,mi basterebbe che sia fatta negli ultimi 5 anni
non so se sono stato chiaro
Ringrazio vivamente chi riesca a farlo

 

[Pandit]

Se Ti va bene, qui puoi scegliere Numeri, estrazioni, colpi di gioco e Ruote..

Anticipazione (Spoiler)

Sub Main
Dim posta(5),ini,fin,n1(6),nr
ReDim n(90)
Call ScegliNumeri
nr = UBound
Scrivi "Numeri Richiesti : ",1
Scrivi StringaNumeri(n,".") & " Tot.n." & qn,1,2,4
x = CInt(InputBox("Quante estrazioni d'analisi?",,700))'
x1 = CInt(InputBox("Quanti colpi di gioco?",,12))
ReDim aRuote(11),rt(12)
If ScegliRuote(aRuote) > 0 Then
For k = 1 To UBound(aRuote)
If aRuote(k) > 0 Then
kn = kn + 1
rt(kn) = aRuote(k)
End If
'Metodo Ricerca proposto da Ufrenk --------
posta(2) = 1
posta(3) = 0.5
'posta(4) = 0.5
ini = EstrazioneFin - x
fin = EstrazioneFin
co = 0
k = x1
For es = ini To fin
Messaggio es
Call AvanzamentoElab(ini,fin,es)
ImpostaGiocata 1,n,aRuote,posta,k',2
Gioca es,1
Scrivi String(100,"-") : ColoreTesto 1
Next
Next
End If
ColoreTesto 1
Scrivi " by Pandit"
ScriviResoconto
End Sub

 

[Ufrenk]

Ciao Pandit
ti ringrazio di cuore,funziona bene ,l'unico inconveniente per me e' che spaziometria ora non mi aggiorna piu' le estrazioni fino all'ultima ma fino a luglio,non so come fare ,ho provato anche via web ma e' peggio che andare di notte

 

[Missione Impossibile2]

Se Ti va bene, qui puoi scegliere Numeri, estrazioni, colpi di gioco e Ruote..

Anticipazione (Spoiler)

Sub Main
Dim posta(5),ini,fin,n1(6),nr
ReDim n(90)
Call ScegliNumeri
nr = UBound
Scrivi "Numeri Richiesti : ",1
Scrivi StringaNumeri(n,".") & " Tot.n." & qn,1,2,4
x = CInt(InputBox("Quante estrazioni d'analisi?",,700))'
x1 = CInt(InputBox("Quanti colpi di gioco?",,12))
ReDim aRuote(11),rt(12)
If ScegliRuote(aRuote) > 0 Then
For k = 1 To UBound(aRuote)
If aRuote(k) > 0 Then
kn = kn + 1
rt(kn) = aRuote(k)
End If
'Metodo Ricerca proposto da Ufrenk --------
posta(2) = 1
posta(3) = 0.5
'posta(4) = 0.5
ini = EstrazioneFin - x
fin = EstrazioneFin
co = 0
k = x1
For es = ini To fin
Messaggio es
Call AvanzamentoElab(ini,fin,es)
ImpostaGiocata 1,n,aRuote,posta,k',2
Gioca es,1
Scrivi String(100,"-") : ColoreTesto 1
Next
Next
End If
ColoreTesto 1
Scrivi " by Pandit"
ScriviResoconto
End Sub

Ciao Pandit
Riesci a farmelo solo mensile per il 1° del mese, senza ambi e terni e tutte le scelte le faccio io.Grazie