Buonasera Boris
Dai suoi esempi credo che si va alla ricerca di somme 90 e distanze 45...
Provi questo script..fa la ricerca di entrambe le condizioni..
Sub Main()
Scrivi " Distanze in rosso - Somme In nero " : Scrivi
rs = CInt(InputBox("Quante estrazioni vuoi esaminare ?","Estrazioni",30))
sm = CInt(InputBox("Quale somma cerco?","SOMMA ",90))
di = CInt(InputBox("Quale distanza cerco?","DISTANZA ",45))
casi = 0
fin = EstrazioneFin
ini = fin - rs
For es = ini To fin
Messaggio "elab. n° " & es & " del " & DataEstrazione(es) & ""
For r1 = 1 To 11
If r1 = 11 Then r1 = 12
For p1 = 1 To 4 : For p2 = p1 + 1 To 5
a = Estratto(es,r1,p1) :b = Estratto(es,r1,p2)
dist = Distanza(a,b) : so = Fuori90(a + b)
riga = " "
If dist = di Or so = sm Then
If dist = di Then ColoreTesto 2 : riga = "Dis.": x1 = dist Else ColoreTesto 0 : riga = "Som." : x1 = so
casi = casi + 1 : Scrivi String(67,"-") '& casi,1
Scrivi DataEstrazione(es) & " [ " & SiglaRuota(r1) & " - " & StringaEstratti(es,r1) & " ] [ " & _
Format2(a) & "." & Format2(b) & " ] " & riga & " " & Format2(x1) & " in " &(p1) & "^/" &(p2) & "^ pos."
End If
ColoreTesto 0
Next
Next
Next
Scrivi
Scrivi String(67,"=")
Scrivi
Next
End Sub