Per Joe91 o chi per lui una cortesia

[cartomantedaniel]

Ciao Joe91 , ti chiedo una cortesia se possibile uno script che mi vada a ricercare un'ambo ripetuto su ruota unica anche di 5 estrazioni a ritroso anche non isotopo .

Complimenti sinceri a te e a tutti gli altri bravi scriptologi !

 

[Joe91]

Ciao ... prova questo :

Sub Main
 Dim Nu(2),Ru(1) : Fin = EstrazioneFin : Ini = EstrazioneFin - 4
 For A = 1 To 89
  For B = A + 1 To 90
   Nu(1) = A : Nu(2) = B
   For R = 1 To 12 : If R = 11 Then R = 12
   Ru(1) = R
   If SerieFreq(Ini,Fin,Nu,Ru,2) > 1 Then
    Scrivi SiglaRuota(R) & " " & Format2(A) & "." & Format2(B),1
   End If
  Next
 Next
Next
End Sub

 

[cartomantedaniel]

Grazie mille, era proprio come lo volevo ....