potresti in questo tuo script far si che l'out put faccia vedere solo i casi in cui c'è presente una delle 2 somme indicate. Al momento fa vedere anche le coppie di ruote in cui nessuna delle 2 somma selezionate c'è
HTML:
Option Explicit
Sub Main
Dim FIn,Es,Ini,Clp,Salvo50,Sp,R1,R2,P1,Caso,Casi
Dim A(5),B(5),AB(5),k1,E1,C,D
Sp = " "
C = 71 : D = 81
FIn = EstrazioneFin
Ini = FIn - 18
R1 = CInt(InputBox("INSERISCI IL NUMERO DELLA RUOTA",Salvo50,1))
C = CInt(InputBox("INSERISCI LA PRIMA SOMMA CHE VUOI EVIDENZIARE",Salvo50,59))
D = CInt(InputBox("INSERISCI LA SECONDA SOMMA CHE VUOI EVIDENZIARE",Salvo50,71))
Call ScegliRange(Ini,FIn,Ini,FIn)
Scrivi Space(12) & "PER BYRON -SOMME ISOTOPE - SCRIPT SALVO50",1,,4,,3,,1
For Es = Ini To FIn
Caso = 0
Messaggio Es
AvanzamentoElab Ini,FIn,Es
For R2 = 1 To 12
If R2 = 11 Then R2 = 12
If R2 <> R1 Then
For P1 = 1 To 5
A(P1) = Estratto(Es,R1,P1)
B(P1) = Estratto(Es,R2,P1)
AB(P1) = Fuori90(A(P1) + B(P1))
Next
Caso = Caso + 1
Casi = Casi + 1
Scrivi String(89,"o") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,1
Scrivi String(80,"o") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,2
Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
Scrivi " " & SiglaRuota(R1) & " " & StringaEstratti(Es,R1),1,,,1
Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
Scrivi " " & SiglaRuota(R2) & " " & StringaEstratti(Es,R2),1,,,1
Scrivi
Scrivi Space(13) & " Somma estratti isotopi ",1,0
For k1 = 1 To 5
E1 = AB(k1)
If E1 = C Or E1 = D Then
ColoreTesto 2
Else
ColoreTesto 0
End If
Scrivi Format2(E1) & " ",1,0
ColoreTesto 0
Next
Scrivi
End If
Next
If ScriptInterrotto Then Exit Sub
Next
End Sub
