Qualcuno.....

[Y10]

...potrebbe gentilmente farmi questo script ? :

Evidenziare due numeri isotopi che siano diametrali in decina su due ruote consecutive . Grazie anticipate.

 

[Thauk]

Ciao Y10, questo dovrebbe andare bene.

Sub main()

est=CInt(InputBox("Quante estrazioni controllo?","Estrazioni",100))
ini=EstrazioneFin-est
fin=EstrazioneFin

For es=ini To fin
Messaggio es
Call AvanzamentoElab(ini,fin,es)

For r1=1 To 9
For p=1 To 5
a=Estratto(es,r1,p)
r2=r1+1
b=Estratto(es,r2,p)
If DiametraleD(a)=b Then

casi=casi+1
Scrivi String(70,"=") & " Caso n°" & casi,1
Scrivi DataEstrazione(es)&"    "& SiglaRuota(r1)&" < "& StringaEstratti(es,r1)&" > "& Format2(a)&" (" &p&"° estratto)",1
Scrivi DataEstrazione(es)&"    "& SiglaRuota(r2)&" < "& StringaEstratti(es,r2)&" > "& Format2(b)&" (" &p&"° estratto)",1
Scrivi

End If
Next
Next
Next
End Sub

 

[Y10]

Grazie ad entrambi , era ciò che volevo.