Richiesta Script lotto

[Xeroxs]

Buongiorno a Tutti.

Volevo chiedere se qualcuno può aiutarmi a creare uno script
che tramite input mi permette di scegliere due numeri che per me è un ambo messo in verticale ed Isotopo
come ad esempio per spiegare la scelta ho preso l'estrazione del 20 Gennaio 2020 dove ho scelto 1 e 9 come numeri
che sono isotopi tra le Ruote di Bari e Milano in prima posizione

23/01/2020 BA 1 75 4 87 81
23/01/2020 MI 9 4 18 12 52

Fatto questo lo script dovrebbe restituire sia per Bari che per Milano
l'elenco degli estratti per Numero di estrazioni successive se possibile con input ad esempio imposto 10
così avrò per le due ruote un elenco simile a quello sotto.
Se possibile evidenziare i numeri che risultano duplicati

Bari
25/01/2020 85 40 90 80 67
28/01/2020 41 2 9 49 68
30/01/2020 41 43 11 44 4
01/02/2020 59 74 78 43 66
04/02/2020 49 75 87 46 86
06/02/2020 52 13 79 43 8
08/02/2020 70 61 48 1 14
11/02/2020 76 18 87 64 15
13/02/2020 50 84 43 72 11
15/02/2020 30 83 35 44 75


Milano

25/01/2020 62 15 19 87 44
28/01/2020 15 87 58 13 1
30/01/2020 46 40 31 83 50
01/02/2020 69 21 79 6 1
04/02/2020 48 66 82 4 50
06/02/2020 72 48 82 40 74
08/02/2020 63 78 36 51 88
11/02/2020 30 78 36 15 66
13/02/2020 51 14 69 78 33
15/02/2020 37 42 17 71 51


Grazie, Fin Da ora a chi vuole aiutarmi.

 

[Xeroxs]

Nessuno riesce a dare una mano?
Grazie

 

[Master]

Buongiorno
Ne ho uno che fa al caso suo,

' Ambate + freq dopo 2 numeri spia isotopi su 2 Ruote con ricerca n. casi
Sub Main()
   Dim mt(90,5),n(2),ru(2)
   a = InputBox("Digita 1°  Numero Spia "," SPIA","1")
   b = InputBox("Digita 2°  Numero Spia "," SPIA","9")
   r = CInt(InputBox("Su che Ruota è uscito la spia ?","RUOTA 1",1))
   r1 = CInt(InputBox("Su che Ruota è uscito la spia ?","RUOTA 2",5))
   cl = CInt(InputBox("Per quanti colpi ?","COLPI",10))'colpi
   ca = CInt(InputBox("QUANTI CASI ESAMINO ?","CASI",3))
   ru(1) = r
   ru(2) = r1
   caso = 0
   ini = EstrazioneFin - ca
   fin = EstrazioneFin
   cc = 0
   For es = ini To 1 Step - 1
      If(Posizione(es,r,a) > 0 And Posizione(es,r1,b) > 0)Or(Posizione(es,r,b) > 0 And Posizione(es,r1,a) > 0) Then
         If(Posizione(es,r,a) = Posizione(es,r1,b)) Then
            If(Posizione(es,r,b) = Posizione(es,r1,a)) Then
               caso = caso + 1
               If caso < ca + 1 Then
                  cc = cc + 1
                  co = 0
                  For i = 1 To 90
                     n(1) = i
                     co = co + 1
                     mt(co,1) = co
                     mt(co,2) = n(1)
                     mt(co,3) = NomeRuota(r)
                     mt(co,4) = NomeRuota(r1)
                     fr = SerieFreq(es + 1,es + cl,n,ru,1)
                     mt(co,5) = mt(co,5) + fr
                  Next
                  ColoreTesto 2
                  Scrivi DataEstrazione(es,,,"/") & "  " & es & " " & NomeRuota(r) & "  " & StringaEstratti(es,r," ") & "    " & NomeRuota(r1) & "  " & StringaEstratti(es,r1," "),1
                  For z = es + 1 To es + cl
                     ColoreTesto 0
                     Scrivi DataEstrazione(z,,,"/") & "  " & z & " " & NomeRuota(r) & "  " & StringaEstratti(z,r," ") & "    " & NomeRuota(r1) & "  " & StringaEstratti(z,r1," ")
                  Next
                  Scrivi" "
               End If
            End If
         End If
      End If
   Next
   OrdinaMatrice mt,- 1,5
   Scrivi " "
   Scrivi" N       RUOTA      RUOTA     Tot"
   For xx = 1 To 20
      Scrivi Format2(mt(xx,2)) & "         " & SiglaRuota(r) & "         " & SiglaRuota(r1) & "      " & mt(xx,5)
   Next
   ColoreTesto 0
End Sub

 

[Xeroxs]

Che Dire, Perfetto. Master Ti Ringrazio davvero Tanto