xRicerca stessoNumerosu due estrazioniConsecutive

[i legend]

Ciao controllare eventuali errori

' lo script salvo errore evidenzia le ruote su cui si sono ripetuti degli estratti in due estrazioni consectutive
Option Explicit
Sub Main
    Dim Ini,Fin,Estr
    Dim a,b,r,p,p1,caso
    Dim nEstrazioni,qestrazioni
    nEstrazioni = CInt(InputBox("Inserisci quante estrazioni vuoi esaminare","Numero Estrazioni",18))
    If nEstrazioni >= 1 Then
        qestrazioni = nEstrazioni
    Else
        Exit Sub
    End If
    Ini = EstrazioneFin - qestrazioni
    Fin = EstrazioneFin
    caso = 0
    For Estr = Ini To Fin
        For r = 1 To 12
            If r = 11 Then r = 12
            For p = 1 To 5
                For p1 = 1 To 5
                    a = Estratto(Estr,r,p)
                    b = Estratto(Estr + 1,r,p1)
                    If a = b Then
                        caso = caso + 1
                        Scrivi "num caso = " & caso
                        Scrivi DataEstrazione(Estr) & "-" & SiglaRuota(r) & "-" & StringaEstratti(Estr,r) & "  Pos:" & p
                        Scrivi DataEstrazione(Estr + 1) & "-" & SiglaRuota(r) & "-" & StringaEstratti(Estr + 1,r) & "  Pos:" & p1
                    End If
                Next
            Next
        Next
    Next
End Sub

Controllare se puo andare bene

 

[roy]

ciao LEGEND,IO HO PROVATO ANCHE A MODIFICARE QUESTO....MA FACCIO PASSO..
MI POTRESTI FARE UNO SCRIPT CHE PORTA LA RICERCA DI UN SUPER FREQUENTE SU RUOTA UNICA IN MAX 5 ESTRAZIONI?(O SE POSSIBILE TRAMITE INPUTBOX SCEGLIERE IN QUANTE ESTRAZIONI), CON UN'INPUTBOX DELLA SCELTA DI QUALE FREQUENZA? 3 O 4...

MI DOVREBBE TROVARE TUTTE LE VOLTE CHE CAPITI L'EVENTO NEL PERIODO DI RICERCA DI QUALSIASI ESTRATTO FREQUENTE E RIMETTERLO IN GIOCO.....

IN ATTESA RINGRAZIO ANTICIPATAMENTE CHI INTERVERRà...GRAZIE.

 

[i legend]

ciao roy , credo che mike abbia gia fatto uno script del genere sulle frequenze, sul fatto di rimettere i numeri in gioco non saprei, mi dispiace, ciao e buona serata.