ricerca su estrazioni

[lottomoney]

Buonasera, desideravo sapere se è possibile avere uno script in cui vengano ricercati, per ogni singola estrazione, 2 numeri in posizione isotopa, anche non ruote consecutive e in diametrale in decina fra di loro. Esempio:
estrazione del 05/07/2016: coppia diametrale in decina: 8-3 sulle ruote di Bari e Genova come 3° estratto, oppure
estrazione del 19/07/2016: coppia diametrale in decina: 23-28 sulle ruote di Genova e Palermo come 5° estratto.

Mi basta solo l'evidenziazione di questo tipo di numeri.

Grazie anticipate a chi vorrà cimentarsi.

lottomonoey


P.S.: ho fatto una ricerca fra gli script e non mi sembra ci sia un tipo di calcolo del genere. Grazie.

[Master]

Buongiorno
Le metto lo script per la ricerca

Codice: Seleziona tutto

Sub Main()
ini = CInt(InputBox("INIZIO ?",,9100))
fin = EstrazioneFin
For es = ini To fin
Call AvanzamentoElab(Ini,fin,es)
For r1 = 1 To 10
For P = 1 To 5
n1 = Estratto(es,r1,P)
For r2 = r1 + 1 To 12
If r2 = 11 Then r2 = 12
n2 = Estratto(es,r2,P)
If n1 = DiametraleD(n2) Then
co = co + 1:Scrivi String(50,"=") & " Caso n°" & Format2(co),1
Scrivi DataEstrazione(es) & "  " & SiglaRuota(r1) & "  " & StringaEstratti(es,r1) & "  " & Format2(n1) & "  " & p & "^p",1
Scrivi DataEstrazione(es) & "  " & SiglaRuota(r2) & "  " & StringaEstratti(es,r2) & "  " & Format2(n2) & "  " & p & "^p",1
End If
Next
Next
Next
Next
End Sub

[lottomoney]

Fantastico!!!
Grazie mille