Buongiorno chi se la sente

[mastrogino]

Salve
Avevo un listato in cui mi dava la somma dei cinque estratti , e il numero si trova in quei 5 estratti,sia singolo che in coppia di ambo ,ma non la trovo,o forse nn lo salvato.
Se qualcuno farebbe questo favore lo ringrazierei

 

[joe]

Ciao ...

... prova questo.

Ma considera che, gli estratti non sono Numeri, dunque non rispettano le regole dell'algebra.

Option Explicit
Sub Main
   Dim Ini,Fin,Es,R,P,S,E
   Ini = EstrazioneFin - 200
   Fin = EstrazioneFin
   For Es = Ini To Fin
      For R = 1 To 12 : If R = 11 Then R = 12
         S = StringaEstratti(Es,R)
         E = Format2(Fuori90(SommaEstratti(Es,R)))
         P = InStr(S,E)
         If P > 0 Then Scrivi DataEstrazione(Es) & " " & SiglaRuota(R) & " " & S & " " & E
      Next
   Next
End Sub

 

[mastrogino]

grazie 1000, va benissimo