C'è qualche buon anima che mi .......

[Y10]

....possa fare uno script del ritardo cronologico di tutti gli ambi a tutte ?. Grazie anticipate.

 

[Mike58]

Ciao Y10, ti posso aiutare fino ad un certo punto, gli ambi sono davvero tanti 4005 se non erro ed il calcolo in termini di tempo è eccessivo.
Io ti posto uno script creato per mie esigenze che trova gli 100 ambi + frequenti con tutti i dati statistici correlati.

Se vuoi puoi modificare alle tue esigenze l'estrazione di inizio
Ini = EstrazioneFin - 300 ' riga di partenza

ed il numero di ambi ordinati per rispettiva colonna nel tuo caso la 4
la riga è questa modifica il numero di colonna e la quantità e vedi i tempi per elaborare il tutto.

Call CreaTabella(7,,,100) ' riga x ordinamento tabella

P.S. lo script gira solo su spaziometria.....
'-----------------script-----------------------

Sub Main
 Dim n1,n2,anum(2)
 Dim ruote(1)
 r = InputBox("Quale Ruota",,11)
 ruote(1) = r
 ReDim atitoli(10)
 atitoli(1) = " Data "
 atitoli(2) = " Ruota "
 atitoli(3) = " Numero "
 atitoli(4) = " Ritardo "
 atitoli(5) = " Rit Max "
 atitoli(6) = " incr Max "
 atitoli(7) = " frequenza "
 atitoli(8) = " usciti ult. 10 estraz. "
 atitoli(9) = " Usciti ultima "
 atitoli(10) = " RP1 "
 Call InitTabella(atitoli,1,,3,5)
 Ini = EstrazioneFin - 300 ' riga di partenza
 fin = EstrazioneFin
 df = fin - Ini
 Scrivi"Dalla data..." & DataEstrazione(Ini) & " alla data..." & DataEstrazione(fin) & " Totali estraz. " & df,1,- 1,3
 Scrivi
 For x = 1 To 89
  n1 = x
  For n2 = n1 + 1 To 90
   If n1 <> n2 Then
    anum(1) = n1
    anum(2) = n2
    Messaggio "elaboro... ruota di  " & NomeRuota(r) & "  " & n1 & "-" & n2
    Call AvanzamentoElab(1,11,r)
    Call StatAmbo(ruote(1),n1,n2,rit,ritmax,Incrmax,freq,Ini,fin)
    ReDim avalori(10)
    avalori(1) = DataEstrazione(fin)
    avalori(2) = NomeRuota(r)
    avalori(3) = n1 & "-" & n2
    avalori(4) = rit
    avalori(5) = ritmax
    avalori(6) = Incrmax
    avalori(7) = freq
    If avalori(4) < 11 Then
     avalori(8) = n1 & "-" & n2
    Else
     avalori(8) = " - "
    End If
    If avalori(4) = 0 Then
     avalori(9) = n1 & "-" & n2
    Else
     avalori(9) = " - "
    End If
    rp1 = SerieRitardo(Ini,fin - 1,anum,ruote,2)
    If rit = 0 Then
     avalori(10) = rp1
    Else
     avalori(10) = " - "
    End If
    Call AddRigaTabella(avalori,,,3)
    Call SetColoreCella(4,vbMagenta)
    Call SetColoreCella(3,,1)
    Call SetColoreCella(7,vbGreen)
    If avalori(6) > 0 Then Call SetColoreCella(6,2)
   End If
  Next
 Next
 Call CreaTabella(7,,,100) ' riga x ordinamento tabella
 Scrivi"     Tabella by Mike58       ",1,- 1,6
 'Next
End Sub

 

[Y10]

Grazie Mike , per me è già un buon passo avanti. Buona giornata.