Cerco script

[Antonio Pagano]

Premetto che c'è nel forum ma non l'ho rintracciato. Parlo dello script che cerca un numero ripetuto in due estrazioni consecutive. Ringrazio a chi lo può allegare.Grazie

 

[lotto_tom75]

Premetto che c'è nel forum ma non l'ho rintracciato. Parlo dello script che cerca un numero ripetuto in due estrazioni consecutive. Ringrazio a chi lo può allegare.Grazie

Discussione 'xRicerca stessoNumerosu due estrazioniConsecutive'

2 Febbraio 2015

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...

• i legend
• Risposte: 2
• Forum: Area Download

E' bastato mettere la tua richiesta su google con lottoced accanto . Tra i primi se non il primo risultato di ricerca è stato questo del grandissimo ilegend che saluto e che spero tornerà prima o poi a partecipare su questo forum. @i legend torna!

 

[Antonio Pagano]

lotto_tom75 grazie mille.​