Per LuigiB o chi puo' modifica script

[cartomantedaniel]

Buongiorno , questo script (non suo), che gentilmente Baffoblu mi ha messo a disposizione....può vedere
tutti gli ambi uguali sortiti dal 1939
in avanti.

A me servirebbe una finestrella ( imput box) che mi permetta di inserire e quindi andare a ricercare a ritroso l'ambo rip.scelto.
Spero sia possibile .

Saluto e ringrazio fin da ora quell'anima generosa che mi fara' questo favore.

A buon rendere...

Sub Main
Dim idEstr
Dim CollAmbiTrovati
Dim sAmbo
Dim qEstrTrovate
Dim clsCoppia
idEstr = 3500
Do While qEstrTrovate < 10 And idEstr > 0
If GetAmbiUguali(idEstr,CollAmbiTrovati) > 3 Then
qEstrTrovate = qEstrTrovate + 1
Call Scrivi(DataEstrazione(idEstr),True)
Call DisegnaEstrazione(idEstr)
For Each clsCoppia In CollAmbiTrovati
sAmbo = ""
sAmbo = sAmbo & clsCoppia.clsNumero(1).numero & " - " & clsCoppia.clsNumero(2).numero & vbCrLf
sAmbo = sAmbo & "Ruota " & NomeRuota(clsCoppia.clsNumero(1).ruota) & " Num " & clsCoppia.clsNumero(1).numero & " in posizione " & clsCoppia.clsNumero(1).Posizione & vbCrLf
sAmbo = sAmbo & "Ruota " & NomeRuota(clsCoppia.clsNumero(2).ruota) & " Num " & clsCoppia.clsNumero(2).numero & " in posizione " & clsCoppia.clsNumero(2).Posizione & vbCrLf
sAmbo = sAmbo & "Ruota " & NomeRuota(clsCoppia.clsNumero(3).ruota) & " Num " & clsCoppia.clsNumero(3).numero & " in posizione " & clsCoppia.clsNumero(3).Posizione & vbCrLf
sAmbo = sAmbo & "Ruota " & NomeRuota(clsCoppia.clsNumero(4).ruota) & " Num " & clsCoppia.clsNumero(4).numero & " in posizione " & clsCoppia.clsNumero(4).Posizione & vbCrLf
Call Scrivi(sAmbo)
Next
End If
Call Messaggio("Estrazioni trovate : " & qEstrTrovate)
Call AvanzamentoElab(1,10,qEstrTrovate)
If ScriptInterrotto Then Exit Do
idEstr = idEstr - 1
Loop
End Sub

 

[Joe91]

Ho scritto questo, ma non so è quanto ti serve.

[SIZE=2][COLOR=#009500][SIZE=2][COLOR=#009500]'Ricerca Ambi Ripetuti By Joe  
Sub main()
Dim Nu(2), Ru(1), RT(1) : RT(1) = 11
Ini = EstrazioneIni : Fin = EstrazioneFin 
Nu(1) = CInt (InputBox("Inserisci un numero","PRIMO NUMERO",16))
Nu(2) = CInt (InputBox("Inserisci un numero","SECONDO NUMERO",51))
Scrivi "Ambo " & Format2(nu(1)) &"." & Format2(nu(2)),1 : Scrivi  
For Es = Ini To Fin :  Messaggio (es)
If SerieFreq  (Es,Es,Nu,RT,2) > 1 Then 
Scrivi DataEstrazione (Es) & "  ",1,0
For R = 1 To 10 : Ru(1)=R
If SerieFreq  (Es,Es,Nu,Ru,2) = 1 Then
Scrivi SiglaRuota  (R) & " ",1,0
End If 
Next 
Scrivi 
End If 
Next 
End Sub
[/COLOR][/SIZE]

[/COLOR][/SIZE]

Fammi sapere

 

[cartomantedaniel]

ti rispondo semplicemente che sei un grandeeeee!

E' perfetto...grazieeeee