è possibile modificare solo questa riga per analizzare il numero su piu ruote unite

[i legend]

Ciao tom , statistica formazione turbo permette anche di verificare la posizione

 

[joe]

Option Explicit
Sub Main()
     ' Quadrivalenti By Joe
     Dim N,Es,Ru,Nu(1),P
     Ru = Array(1,2,3,4,5,6,7,8,9,10)
     For Es = EstrazioneFin - 15 To EstrazioneFin
          For N = 1 To 90 : Nu(1) = N
               P = PresenzeInEstrazione(Es,Nu,Ru)
               If P = 4  Then
                    Scrivi DataEstrazione(Es) & " " & Format2(N) & " " & P
               End If
          Next
     Next
End Sub
Function PresenzeInEstrazione(Es,Nu,Ru) 'By Joe
     PresenzeInEstrazione = SerieFreq(Es,Es,Nu,Ru,1)
End Function

Naturalmente il consiglio di Ilegend che sa sfruttare MOLTO bene le varie istruzioni,

andrebbe considerato come valido ed alternativo allo scrivere una funzione apposita.

 

[lotto_tom75]

Ottimo Joe Grazie!
Grazie anche al suggerimento del mitico ilegend