Si può avere uno script di 2 ambi di figura uguale su 2 ruote?

[Juri]

Ciao a tutti.

Si può avere uno script di 2 ambi di figura uguale su 2 ruote anche a distanza di 5 estrazioni?

Questo penso sia facile da fare.

Grazie mille.

Buona Pasqua.

 

[Rubino]

per il momento mi è venuto così

cerca nelle ultime 5 estrazioni tutti gli ambi di figura usciti sulle 10 ruote da BARI-VENEZIA

Option Explicit
Sub Main
Dim nr(5)
Dim e,fine,Inizio,r,p,f,q
fine = InputBox("Estraz.n.",,EstrazioneFin)
Inizio = fine - 5
''''
For Inizio = Inizio + 1 To fine
Scrivi "--------------------------------------------",1
For r = 1 To 10
'''carico 5 numeri estratti dell'estrazione (x)
ReDim fig(9,2)
For p = 1 To 5
nr(p) = Estratto(Inizio,r,p)
f = Figura(nr(p))
fig(f,1) = fig(f,1) + 1
fig(f,2) = fig(f,2) & Format2(nr(p)) & "."
Next
'''elenca solo quelle con 2 nr.di medesima figura
For q = 1 To 9
If fig(q,1) > 1 Then
Scrivi SiglaRuota(r) & "...estraz.n." & Inizio & "/" & DataEstrazione(Inizio) & "..." & fig(q,2)
End If
Next
Next
Next
End Sub

 

[Juri]

Grazie mille.

Tu sei esperto di script visto che nè ho uno che non capisco perchè non vedo tutti i casi?Parlo di un'altra cosa.

Grazie ancora.