Buona Sera, ...ecco lo script, by Tom su richiesta dell'amico Miki:
Option Explicit
Sub Main
'x miki55 rileva minimi rs per singola ruota per le formazioni e i range voluti by tom.
Dim es
Dim rit,ritmax,freq,Incmax
Dim rsmingen
ReDim numeri(0)
Dim Formazione
Dim ruota
Dim sortediricerca
Dim Classedisviluppo
Dim righesviluppate
Dim contarighe
Dim rigasviluppata
Dim aruota(1)
Dim Formazioneconrsmingen
rsmingen = EstrazioneFin
ScegliNumeri(numeri)
ruota = ScegliRuota
aruota(1) = ruota
sortediricerca = CInt(InputBox("scegli sorte di ricerca ",,2))
Classedisviluppo = CInt(InputBox("scegli classe di sviluppo ",,2))
Scrivi "Ricerca valori minimi di rs per la ruota voluta con archivio lotto aggiornato al " & GetInfoEstrazione(EstrazioneFin)
Scrivi "Analisi effettuata nel range temporale " & GetInfoEstrazione(EstrazioneIni) & " - " & GetInfoEstrazione(EstrazioneFin)
Scrivi
Scrivi "n. " & StringaNumeri(numeri)
Scrivi "r. " & NomeRuota(ruota)
Scrivi "s. " & NomeSorte(sortediricerca)
Scrivi "c. " & Classedisviluppo
Scrivi
Scrivi
righesviluppate = InitSviluppoIntegrale(numeri,Classedisviluppo)
If righesviluppate > 0 Then
Do While GetCombSviluppo(rigasviluppata) = True
contarighe = contarighe + 1
Call StatisticaFormazioneTurbo(rigasviluppata,aruota,sortediricerca,rit,ritmax,Incmax,freq,EstrazioneIni,EstrazioneFin)
Scrivi StringaNumeri(rigasviluppata,".") & " - " & NomeRuota(aruota(1)) & " - rit " & rit & " - ritmax " & ritmax & " - incmax " & Incmax & " - freq " & freq & " riga " & contarighe
If ritmax < rsmingen Then
rsmingen = ritmax
Formazioneconrsmingen = StringaNumeri(rigasviluppata)
End If
If ScriptInterrotto Then Exit Do
Messaggio "rs minimo per adesso... " & rsmingen & " x formazione " & Formazioneconrsmingen & " sulla ruota di " & NomeRuota(ruota)
Call AvanzamentoElab(1,righesviluppate,contarighe)
Loop
End If
Scrivi
Scrivi "formazione con rs min generale rilevato per la ruota di " & NomeRuota(ruota) & " : " & Formazioneconrsmingen & " con Valore di rs pari a " & rsmingen
Scrivi
Scrivi
Scrivi "Tempo trascorso per il rilevamento " & TempoTrascorso
End Sub
far restituire i dati in formato excel , per poter fare i filtri, sarebbe già un aiuto;
aggiungere la possibilità di trattare più ruote, ancora meglio

;
raggiungere le possibilità già trattate in precedenza (nruote x nformazioni) ..felicità


,...Ciao Inri, buonaserata