Ramco se hai tempo e voglia dal tuo script potresti unire i numeri generati nelle varie posizioni e verificare le sorti per ambo e superiori ....mi sembra tu abbia preso una strada tortuosa, nella compilazione dello script...
ti metto qui una soluzione al volo, giusto per limitare la lunga digitazione (ed evitare errori)
Un caro saluto
Codice:Option Explicit 'Analisi esito direttrice estrazionale 'Ramco 20/01/2024 Sub Main() Dim rt(1),nu(3),pt(1),clp,ru,Ini,fin,es,r,co,a,b,c,p,tmp ru = ScegliRuota pt(1) = 1: clp = InputBox("Per quanti colpi vuoi analizzare il gioco?","COLPI di GIOCO",36) tmp = InputBox("Quante estrazioni esaminiamo?","ESTRAZIONI",60) Ini = EstrazioneFin - tmp fin = EstrazioneFin For es = Ini To fin For r = 1 To 11 If r = 11 Then r = 12 If r = ru Then rt(1) = r co = 0 For p = 1 To 5 a = Estratto(es,r,p): b = Fuori90(a + 1): c = Fuori90(a + 89) If Cadenza(a) = 1 Then c = 0 If Cadenza(a) = 0 Then b = 0 nu(1) = a: nu(2) = b: nu(3) = c co = co + 1 Scrivi: Scrivi "Data " & DataEstrazione(es) & " " & SiglaRuota(r) & " " & StringaEstratti(es,r) & " analisi " & p & "° estratto " & a OrdinaMatrice nu,1 ImpostaGiocata co,nu,rt,pt,clp Gioca es Next Scrivi String(100,"="): Scrivi End If Next Next ScriviResoconto End Sub
Ciao Eugenio