qualcuno esperto di script è realizzabile

Rafele ‘o Ruoss’ · 16 Settembre 2023

spero possiate rispondermi.

lo script che cerco deve

eseguire una ricerca negli anni a ritroso per trovare le cadenze

inserendo e sommando 3 numeri con il fuori 90

esempio 88+76+35 : 199 -90-90= 19 cadenza 9 nel mese di febbraio e cosi via

grazie

Mike58 · 17 Settembre 2023

Rafele o Ruoss ,Ruoss sta per grosso o rosso ?

Ciao Raf, giusto per non lasciare la richiesta senza risposte, io ti dico che quando si fa una richiesta è sempre meglio dare quante più specifiche e dettagli possibili.

Ora nelle tua richiesta i numeri devono
essere presi a carico utente e sommarli e stabilirne la cadenza della somma F90 ?
poi della Cadenza o del numero in cadenza cosa ne vuoi fare ?
posso capire che vuoi anche tutti i numeri in cadenza ma poi cosa vuoi sapere di questi numeri.

Francamente lo script cosi è semplice ma è veramente incompleto nelle specifiche richieste.

Ciao

Rafele ‘o Ruoss’ · 17 Settembre 2023

a me serve per fare un analisi delle cadenze mese anno.
il resto posso solo che farmelo a penna
è la ricerca che mi strema.
grazie dell'attenzione

Rafele ‘o Ruoss’ · 17 Settembre 2023

io parto nella mia semplicità da un idea base che spero possiate nella semplicità sviluppare

si potrebbe aggiungere quali numeri in quel mese con quella cadenza si sono ripetuti .

Mike58 · 17 Settembre 2023

Raf, purtroppo per fare uno script ci vogliono indicazioni chiare, d'accordo per la semplicità delle idee ma poi alla macchina computer vanno date istruzioni con linguaggio e codifica ben definite.

Range di analisi
Ruota in Esame
Numeri da scegliere o da trovare
Cadenza Numero o Numeri in Cadenza
Verifica di cosa e dove
Quale sorte
OutPut che si vorrebbe visualizzare.

Le cose sono tante ma devono essere ben definite, altrimenti ci sono i programmi che simulano in qualche maniera una ipotetica ricerca, ma mai definita ed ad oc come uno script con istruzioni ben definito.

Ciao

Rafele ‘o Ruoss’ · 17 Settembre 2023

a questo punto mi metto l'anima in pace grazie @Mike58
ciao

Mike58 · 17 Settembre 2023

Purtroppo Raf, non comprendo del perchè non vuoi sprecarti a scrivere due righe di dettagli in più.
Ti ripeto tutto è fattibile ma deve essere fattibile per lo scopo sia esso ricerca o statistica sia esso Rendiconto metodo.

Ciao

Rafele ‘o Ruoss’ · 17 Settembre 2023

ok provo @Mike58

Range di analisi: ultimi 10 anni o a scelta per anno singolarmente
Ruota in Esame : a scelta con output di scelta
Numeri da scegliere o da trovare : da poter selezionare con output numeri in genere sono quelli in 3 .4. 5 pos di ogni ruota
Cadenza Numero o Numeri in Cadenza se ad esempio il risultato dei 3 numeri sommati mi da il 59 andro' a considerare il 9
Verifica di cosa e dove : verifica quante volte si ripete un numero all'uscita di quella cadenza in un mese specifico 1.gennaio 2.febbraio etc
Quale sorte: la sorte non ha importanza a me interessa poter verificare quali numeri si ripetono in quel mese in quel determinato anno a ritroso nel tempo
OutPut che si vorrebbe visualizzare. anno , mese e poter selezionare i numeri da generare la cadenza con il fuori 90

Mike58 · 17 Settembre 2023

Ciao, bene alcune spiegazioni, poco chiare altre.
Comunque ci penso vedo cosa posso fare....

Mike58 · 17 Settembre 2023

Raf, sicuramente non è quello che chiedi,ma purtroppo senza dati di prelievo da un archivio, mancano le ancore da dove partire.
Comunque ti faccio una bozza di script
spiegazioni
Dato un Range estrazioni (circa 600 aumentabili a piacere)
Ruota scelta
numeri scelti e sommati con estrapolazione cadenza
verifico in questo range cosa ha prodotto la cadenza ed i suoi numeri in cadenza (rossa e blu)
con visualizzazione mese e anno.
Il tutto solo in visualizzazione.
Sicuramente si può fare di meglio, ma senza dati faccio fatica a creare un output diverso.
intanto prova cosi.
ciao

Mike58 · 17 Settembre 2023

Codice:

Sub Main
   Dim Nu(5),n(3),kk(12)
   Ini = EstrazioneFin-600
   fin = EstrazioneFin
   '----------------------
   r = InputBox("Scegli Ruota",,1)
   n(1) = CInt(InputBox ("Scegli 1° Numero ",,12))
   n(2) = CInt(InputBox ("Scegli 2° Numero ",,22))
   n(3) = CInt(InputBox ("Scegli 3° Numero ",,83))
   'es = EstrazioneFin - 10
   '---------------------
   sum = (n(1)+n(2)+n(3))
   nsum = Fuori90(sum)
   nn = Cadenza(nsum)
   Scrivi "Ruota di analisi : " & NomeRuota(r),1
   Scrivi "Range inizio.....  " & GetInfoEstrazione(Ini)
   Scrivi "Range fine.......  " & GetInfoEstrazione(fin)
   Scrivi
   Scrivi "Numeri scelti in InputBox e sommati " & StringaNumeri(n) & " Somma = " & sum & " Fuori90 = " & nsum & " ",0,0
   Scrivi " Cadenza = " & nn,1,1,,2
   Scrivi
   Scrivi "Pres" & Space(3) & "IdEstr" & Space(7) & "Estratti" & Space(12) & "Anno" & Space(5) & "Mese" & Space(5),1,1,0,5,2
   For es = Ini To fin
   ms = Mese(es)
   an = Anno(es)
      For p = 1 To 5
         Nu(p) = Estratto(es,r,p)
         If Nu(p) = nn Then
            riga = riga & GetTestoHtml(Format2(Nu(p)) & " ",1,2,,3)
         'Else
            'riga = riga & GetTestoHtml(Format2(Nu(p)) & " ",1,0)
        
         ElseIf Cadenza(Nu(p)) = (nn) Then
         riga = riga & GetTestoHtml(Format2(Nu(p)) & " ",1,1,,3)
         Else
         riga = riga & GetTestoHtml(Format2(Nu(p)) & " ",1,0,,3)
         End If
          'End If
      Next
      If EstrattoFrequenza(r,nn,es,es) > 0 Then
      k = k + 1
      
      For x = 1 To 12
      If Mese(es) = x Then kk(x) = kk(x) + 1
      Next
      Scrivi k & vbTab & es & vbTab & riga & vbTab & Anno(es) & vbTab  & MeseNome(ms)
      End If
      riga = ""
   Next
   Scrivi
   Scrivi "Riepilogo mensile",1
   For y = 1 To 12
   Scrivi kk(y) & " = " & MeseNome(y)
   Next
  
End Sub

Rafele ‘o Ruoss’ · 17 Settembre 2023

ti ringrazio ed è già un bel vantagio che mi conferma al 70% l'dea che mi sono fatto riguardo alla memoria dei numeri,personalmente ci credo e gli esiti dello script me lo confermano .
interessante per me .
Grazie @Mike58 per la tua cortesia.

Mike58 · 17 Settembre 2023

Bene, ma senza un dato oggettivo posso simulare ben poco.
Se ti serve approfondire vediamo cosa si può fare.
invece
Se ti serve uno script numeri per mese prova questo.
fatto qualche anno fà, ma tuttora un ottimo script per verifiche mese.

Codice:

Sub Main
   Dim nu()
   Dim ru(1)
   r = InputBox("Quale ruota",,8)
   sorte = CInt(InputBox("Quale sorte minima verifico x MESI ","SORTE",2))
   sortestat = CInt(InputBox("QUALE SORTE VERIFICA STATISTICA ","SORTE STATISTICA",2))
   Ini = EstrazioneIni
   fin = EstrazioneFin ' range fine estrazioni
   Tot = fin - Ini + 1
   ru(1) = r
   Call ScegliNumeri(nu)
   Call StatisticaFormazioneTurbo(nu,ru,sortestat,rerit,reritmax,Incrmax,refre,Ini,fin)
   ReDim atx(12)
   atx(1) = " Comb "
   atx(2) = " Ruota "
   atx(3) = " sorte "
   atx(4) = " Ritardo Att "
   atx(5) = " Rit Max "
   atx(6) = " incr max "
   atx(7) = " Frequenza "
   atx(8) = " Range inizio "
   atx(9) = " Range fine "
   atx(10) = " Estrazioni "
   atx(11) = " Author "
   atx(12) = " Richiesta "
   Call InitTabella(atx,2,,3,5)
   atx(1) = StringaNumeri(nu)
   atx(2) = NomeRuota(r)
   atx(3) = NomeSorte(sortestat)
   atx(4) = rerit
   atx(5) = reritmax
   atx(6) = Incrmax
   atx(7) = refre
   atx(8) = DataEstrazione(Ini)
   atx(9) = DataEstrazione(fin)
   atx(10) = Tot
   atx(11) = " Mike58 "
   atx(12) = " Forum LottoCed "
   Call AddRigaTabella(atx,4,,3)
   Call SetColoreCella(11,,7)
   Call SetColoreCella(12,,1)
   Call SetTableWidth("100%")
   Call CreaTabella()

   For es = Ini To fin
      Messaggio "Elaboro estrazioni. . . . . . " & es & "   * * * * Script By Mike58 * * * * "
      Call AvanzamentoElab(Ini,fin,es)
      sf1 = SerieFreqTurbo(es,es,nu,ru,sorte)
      sf2 = SerieFreqTurbo(es,es,nu,ru,sorte + 1)
      sf3 = SerieFreqTurbo(es,es,nu,ru,sorte + 2)
      sf4 = SerieFreqTurbo(es,es,nu,ru,sorte + 3)

      If sf1 > 0 And Mese(es) = 1 Then m1 = m1 + sf1
      If sf1 > 0 And Mese(es) = 2 Then m2 = m2 + sf1
      If sf1 > 0 And Mese(es) = 3 Then m3 = m3 + sf1
      If sf1 > 0 And Mese(es) = 4 Then m4 = m4 + sf1
      If sf1 > 0 And Mese(es) = 5 Then m5 = m5 + sf1
      If sf1 > 0 And Mese(es) = 6 Then m6 = m6 + sf1
      If sf1 > 0 And Mese(es) = 7 Then m7 = m7 + sf1
      If sf1 > 0 And Mese(es) = 8 Then m8 = m8 + sf1
      If sf1 > 0 And Mese(es) = 9 Then m9 = m9 + sf1
      If sf1 > 0 And Mese(es) = 10 Then m10 = m10 + sf1
      If sf1 > 0 And Mese(es) = 11 Then m11 = m11 + sf1
      If sf1 > 0 And Mese(es) = 12 Then m12 = m12 + sf1
      '------------------------------------------------------
      If sf2 > 0 And Mese(es) = 1 Then t1 = t1 + sf2
      If sf2 > 0 And Mese(es) = 2 Then t2 = t2 + sf2
      If sf2 > 0 And Mese(es) = 3 Then t3 = t3 + sf2
      If sf2 > 0 And Mese(es) = 4 Then t4 = t4 + sf2
      If sf2 > 0 And Mese(es) = 5 Then t5 = t5 + sf2
      If sf2 > 0 And Mese(es) = 6 Then t6 = t6 + sf2
      If sf2 > 0 And Mese(es) = 7 Then t7 = t7 + sf2
      If sf2 > 0 And Mese(es) = 8 Then t8 = t8 + sf2
      If sf2 > 0 And Mese(es) = 9 Then t9 = t9 + sf2
      If sf2 > 0 And Mese(es) = 10 Then t10 = t10 + sf2
      If sf2 > 0 And Mese(es) = 11 Then t11 = t11 + sf2
      If sf2 > 0 And Mese(es) = 12 Then t12 = t12 + sf2
      '---------------------------------------------------------
      If sf3 > 0 And Mese(es) = 1 Then tt1 = tt1 + sf3
      If sf3 > 0 And Mese(es) = 2 Then tt2 = tt2 + sf3
      If sf3 > 0 And Mese(es) = 3 Then tt3 = tt3 + sf3
      If sf3 > 0 And Mese(es) = 4 Then tt4 = tt4 + sf3
      If sf3 > 0 And Mese(es) = 5 Then tt5 = tt5 + sf3
      If sf3 > 0 And Mese(es) = 6 Then tt6 = tt6 + sf3
      If sf3 > 0 And Mese(es) = 7 Then tt7 = tt7 + sf3
      If sf3 > 0 And Mese(es) = 8 Then tt8 = tt8 + sf3
      If sf3 > 0 And Mese(es) = 9 Then tt9 = tt9 + sf3
      If sf3 > 0 And Mese(es) = 10 Then tt10 = tt10 + sf3
      If sf3 > 0 And Mese(es) = 11 Then tt11 = tt11 + sf3
      If sf3 > 0 And Mese(es) = 12 Then tt12 = tt12 + sf3
      '---------------------------------------------------------
      If sf4 > 0 And Mese(es) = 1 Then ttt1 = ttt1 + sf4
      If sf4 > 0 And Mese(es) = 2 Then ttt2 = ttt2 + sf4
      If sf4 > 0 And Mese(es) = 3 Then ttt3 = ttt3 + sf4
      If sf4 > 0 And Mese(es) = 4 Then ttt4 = ttt4 + sf4
      If sf4 > 0 And Mese(es) = 5 Then ttt5 = ttt5 + sf4
      If sf4 > 0 And Mese(es) = 6 Then ttt6 = ttt6 + sf4
      If sf4 > 0 And Mese(es) = 7 Then ttt7 = ttt7 + sf4
      If sf4 > 0 And Mese(es) = 8 Then ttt8 = ttt8 + sf4
      If sf4 > 0 And Mese(es) = 9 Then ttt9 = ttt9 + sf4
      If sf4 > 0 And Mese(es) = 10 Then ttt10 = ttt10 + sf4
      If sf4 > 0 And Mese(es) = 11 Then ttt11 = ttt11 + sf4
      If sf4 > 0 And Mese(es) = 12 Then ttt12 = ttt12 + sf4

      
      '-------------- fine condizione -----------------------------
   Next
   '-------- comincio a scrivere i valori ricavati e li scrivo in tabella ----------------
   'Scrivi "Numeri in analisi... " & StringaNumeri(nu) & " - Sulla ruota di..." & NomeRuota(r),True,True,3,0,3
   'Scrivi "Sorte di verifica minima..." & NomeSorte(sorte),True,True,2,4,3
   Scrivi "Uscita per Mesi su estrazioni n° " & Tot,True,True,,2,3
   Scrivi ' spazio
   '------ scrivo i titoli per la tabella ---------------
   ReDim at(14)
   at(1) = MeseNome(1)
   at(2) = MeseNome(2)
   at(3) = MeseNome(3)
   at(4) = MeseNome(4)
   at(5) = MeseNome(5)
   at(6) = MeseNome(6)
   at(7) = MeseNome(7)
   at(8) = MeseNome(8)
   at(9) = MeseNome(9)
   at(10) = MeseNome(10)
   at(11) = MeseNome(11)
   at(12) = MeseNome(12)
   at(13) = " Totale freq. "
   at(14) = " Sorte "
   Call InitTabella(at,1,,3,5) ' inizializzo tabella dichiarata At,colorefondo(blu),,Size(3),coloreBianco(testo)
   '-------- scrivo i valori della presenza nei mesi del numero spia ------------------------------------------------
   ReDim av(14)
   av(1) = "   " & m1
   av(2) = "   " & m2
   av(3) = "   " & m3
   av(4) = "   " & m4
   av(5) = "   " & m5
   av(6) = "   " & m6
   av(7) = "   " & m7
   av(8) = "   " & m8
   av(9) = "   " & m9
   av(10) = "   " & m10
   av(11) = "   " & m11
   av(12) = "   " & m12 'etc.
   av(13) = "   " & m1 + m2 + m3 + m4 + m5 + m6 + m7 + m8 + m9 + m10 + m11 + m12
   av(14) = "   " & NomeSorte(sorte)
   Call AddRigaTabella(av,,,3)
   ReDim avv(14)
   avv(1) = "   " & t1
   avv(2) = "   " & t2
   avv(3) = "   " & t3
   avv(4) = "   " & t4
   avv(5) = "   " & t5
   avv(6) = "   " & t6
   avv(7) = "   " & t7
   avv(8) = "   " & t8
   avv(9) = "   " & t9
   avv(10) = "   " & t10
   avv(11) = "   " & t11
   avv(12) = "   " & t12 'etc.
   avv(13) = "   " & t1 + t2 + t3 + t4 + t5 + t6 + t7 + t8 + t9 + t10 + t11 + t12
   avv(14) = "   " & NomeSorte(sorte + 1)
   Call AddRigaTabella(avv,,,3)
   ReDim avvv(14)
   avvv(1) = "   " & tt1
   avvv(2) = "   " & tt2
   avvv(3) = "   " & tt3
   avvv(4) = "   " & tt4
   avvv(5) = "   " & tt5
   avvv(6) = "   " & tt6
   avvv(7) = "   " & tt7
   avvv(8) = "   " & tt8
   avvv(9) = "   " & tt9
   avvv(10) = "   " & tt10
   avvv(11) = "   " & tt11
   avvv(12) = "   " & tt12 'etc.
   avvv(13) = "   " & tt1 + tt2 + tt3 + tt4 + tt5 + tt6 + tt7 + tt8 + tt9 + tt10 + tt11 + tt12
   avvv(14) = "   " & NomeSorte(sorte + 2)
   Call AddRigaTabella(avvv,,,3)
   ReDim avvvv(14)
   avvvv(1) = "   " & ttt1
   avvvv(2) = "   " & ttt2
   avvvv(3) = "   " & ttt3
   avvvv(4) = "   " & ttt4
   avvvv(5) = "   " & ttt5
   avvvv(6) = "   " & ttt6
   avvvv(7) = "   " & ttt7
   avvvv(8) = "   " & ttt8
   avvvv(9) = "   " & ttt9
   avvvv(10) = "   " & ttt10
   avvvv(11) = "   " & ttt11
   avvvv(12) = "   " & ttt12 'etc.
   avvvv(13) = "   " & ttt1 + ttt2 + ttt3 + ttt4 + ttt5 + ttt6 + ttt7 + ttt8 + ttt9 + ttt10 + ttt11 + ttt12
   avvvv(14) = "   " & NomeSorte(sorte + 3)
   Call AddRigaTabella(avvvv,,,3)


   '
   'Call CreaTabella(0,0,0,0,1) ' crea tabella in modo verticale
   Call CreaTabella(0,0,0,0,1) ' crea tabella in modo orizzontale
   Scrivi
   'Scrivi " Script Listed By Mike58 & Giulio_LG ",True,True,6,0,3
End Sub

Mike58 · 17 Settembre 2023

se invece ti serve per i numeri + frequenti nel mese dato un range di anni
eccolo

Codice:

Sub Main()
   Dim x(90),ru(1),nu(1)
   r = InputBox("Inserisci la ruota di ricerca","RUOTA",9)
   kk = CInt(InputBox("Inserisci mese di ricerca","MESE",Month(Now)))
   An1 = CInt(InputBox("Inserisci INIZIO ANNO di ricerca","ANNO",2009))
   An2 = CInt(InputBox("Inserisci FINE ANNO di ricerca","ANNO",Year(Now)))
   ini = 1
   fin = EstrazioneFin
   T = Array(T,"Numero","Presenza","Verifica Mese Corrente","ID Data","colpo","Ritardo","Presenze Mese")
   Call InitTabella(T)
   For a = 1 To 90
      x(a) = 0
   Next
   For n = ini To fin
      If Mese(n) = kk And Anno(n) >= An1 And Anno(n) <= An2 Then
         'For r=1 To 10
         ru(1) = r
         For e = 1 To 5
            n1 = Estratto(n,r,e)
            x(n1) = x(n1) + 1
         Next
         'Next
      End If
   Next
   Scrivi " Quantità per ogni numero estratto DA ANNO N." & An1 & " FINO ANNO N." & aN2 & " sulla ruota di " & NomeRuota(r) & " nel MESE di " & MeseNome(kk),1
   For i = 1 To 90
      nu(1) = i
      Ind = IndiceMensile(fin)
      ess = fin - Ind '
      Call VerificaEsito(nu,ru,ess + 1,1,13,,,clp,es1,id)
      er = EstrattoRitardo(r,i,1,fin)
      sf = SerieFreq(ess + 1,fin,nu,ru,1)
      If EstrattoFrequenza(r,i,ess,fin) > 0 Then
         k = k + 1
         ReDim Preserve aNum(k)
         aNum(k) = i
      End If
      V = Array(V,i,x(i),es1,GetInfoEstrazione(id),clp,er,sf)
      Call AddRigaTabella(V)
      For xx = 1 To 6
         If er = 0 Then Call SetColoreCella((xx),7,5)
      Next
   Next
   Call CreaTabellaOrdinabile(2)
   Call Scrivi("Numeri Sortiti Nel Mese corrente..... " & StringaNumeri(aNum) & "  ( " & k & " )",1,,,1,3)
End Sub

Missione Impossibile. · 17 Settembre 2023

Mike58 ha scritto:

Bene, ma senza un dato oggettivo posso simulare ben poco.
Se ti serve approfondire vediamo cosa si può fare.
invece
Se ti serve uno script numeri per mese prova questo.
fatto qualche anno fà, ma tuttora un ottimo script per verifiche mese.

Codice:

Sub Main
   Dim nu()
   Dim ru(1)
   r = InputBox("Quale ruota",,8)
   sorte = CInt(InputBox("Quale sorte minima verifico x MESI ","SORTE",2))
   sortestat = CInt(InputBox("QUALE SORTE VERIFICA STATISTICA ","SORTE STATISTICA",2))
   Ini = EstrazioneIni
   fin = EstrazioneFin ' range fine estrazioni
   Tot = fin - Ini + 1
   ru(1) = r
   Call ScegliNumeri(nu)
   Call StatisticaFormazioneTurbo(nu,ru,sortestat,rerit,reritmax,Incrmax,refre,Ini,fin)
   ReDim atx(12)
   atx(1) = " Comb "
   atx(2) = " Ruota "
   atx(3) = " sorte "
   atx(4) = " Ritardo Att "
   atx(5) = " Rit Max "
   atx(6) = " incr max "
   atx(7) = " Frequenza "
   atx(8) = " Range inizio "
   atx(9) = " Range fine "
   atx(10) = " Estrazioni "
   atx(11) = " Author "
   atx(12) = " Richiesta "
   Call InitTabella(atx,2,,3,5)
   atx(1) = StringaNumeri(nu)
   atx(2) = NomeRuota(r)
   atx(3) = NomeSorte(sortestat)
   atx(4) = rerit
   atx(5) = reritmax
   atx(6) = Incrmax
   atx(7) = refre
   atx(8) = DataEstrazione(Ini)
   atx(9) = DataEstrazione(fin)
   atx(10) = Tot
   atx(11) = " Mike58 "
   atx(12) = " Forum LottoCed "
   Call AddRigaTabella(atx,4,,3)
   Call SetColoreCella(11,,7)
   Call SetColoreCella(12,,1)
   Call SetTableWidth("100%")
   Call CreaTabella()

   For es = Ini To fin
      Messaggio "Elaboro estrazioni. . . . . . " & es & "   * * * * Script By Mike58 * * * * "
      Call AvanzamentoElab(Ini,fin,es)
      sf1 = SerieFreqTurbo(es,es,nu,ru,sorte)
      sf2 = SerieFreqTurbo(es,es,nu,ru,sorte + 1)
      sf3 = SerieFreqTurbo(es,es,nu,ru,sorte + 2)
      sf4 = SerieFreqTurbo(es,es,nu,ru,sorte + 3)

      If sf1 > 0 And Mese(es) = 1 Then m1 = m1 + sf1
      If sf1 > 0 And Mese(es) = 2 Then m2 = m2 + sf1
      If sf1 > 0 And Mese(es) = 3 Then m3 = m3 + sf1
      If sf1 > 0 And Mese(es) = 4 Then m4 = m4 + sf1
      If sf1 > 0 And Mese(es) = 5 Then m5 = m5 + sf1
      If sf1 > 0 And Mese(es) = 6 Then m6 = m6 + sf1
      If sf1 > 0 And Mese(es) = 7 Then m7 = m7 + sf1
      If sf1 > 0 And Mese(es) = 8 Then m8 = m8 + sf1
      If sf1 > 0 And Mese(es) = 9 Then m9 = m9 + sf1
      If sf1 > 0 And Mese(es) = 10 Then m10 = m10 + sf1
      If sf1 > 0 And Mese(es) = 11 Then m11 = m11 + sf1
      If sf1 > 0 And Mese(es) = 12 Then m12 = m12 + sf1
      '------------------------------------------------------
      If sf2 > 0 And Mese(es) = 1 Then t1 = t1 + sf2
      If sf2 > 0 And Mese(es) = 2 Then t2 = t2 + sf2
      If sf2 > 0 And Mese(es) = 3 Then t3 = t3 + sf2
      If sf2 > 0 And Mese(es) = 4 Then t4 = t4 + sf2
      If sf2 > 0 And Mese(es) = 5 Then t5 = t5 + sf2
      If sf2 > 0 And Mese(es) = 6 Then t6 = t6 + sf2
      If sf2 > 0 And Mese(es) = 7 Then t7 = t7 + sf2
      If sf2 > 0 And Mese(es) = 8 Then t8 = t8 + sf2
      If sf2 > 0 And Mese(es) = 9 Then t9 = t9 + sf2
      If sf2 > 0 And Mese(es) = 10 Then t10 = t10 + sf2
      If sf2 > 0 And Mese(es) = 11 Then t11 = t11 + sf2
      If sf2 > 0 And Mese(es) = 12 Then t12 = t12 + sf2
      '---------------------------------------------------------
      If sf3 > 0 And Mese(es) = 1 Then tt1 = tt1 + sf3
      If sf3 > 0 And Mese(es) = 2 Then tt2 = tt2 + sf3
      If sf3 > 0 And Mese(es) = 3 Then tt3 = tt3 + sf3
      If sf3 > 0 And Mese(es) = 4 Then tt4 = tt4 + sf3
      If sf3 > 0 And Mese(es) = 5 Then tt5 = tt5 + sf3
      If sf3 > 0 And Mese(es) = 6 Then tt6 = tt6 + sf3
      If sf3 > 0 And Mese(es) = 7 Then tt7 = tt7 + sf3
      If sf3 > 0 And Mese(es) = 8 Then tt8 = tt8 + sf3
      If sf3 > 0 And Mese(es) = 9 Then tt9 = tt9 + sf3
      If sf3 > 0 And Mese(es) = 10 Then tt10 = tt10 + sf3
      If sf3 > 0 And Mese(es) = 11 Then tt11 = tt11 + sf3
      If sf3 > 0 And Mese(es) = 12 Then tt12 = tt12 + sf3
      '---------------------------------------------------------
      If sf4 > 0 And Mese(es) = 1 Then ttt1 = ttt1 + sf4
      If sf4 > 0 And Mese(es) = 2 Then ttt2 = ttt2 + sf4
      If sf4 > 0 And Mese(es) = 3 Then ttt3 = ttt3 + sf4
      If sf4 > 0 And Mese(es) = 4 Then ttt4 = ttt4 + sf4
      If sf4 > 0 And Mese(es) = 5 Then ttt5 = ttt5 + sf4
      If sf4 > 0 And Mese(es) = 6 Then ttt6 = ttt6 + sf4
      If sf4 > 0 And Mese(es) = 7 Then ttt7 = ttt7 + sf4
      If sf4 > 0 And Mese(es) = 8 Then ttt8 = ttt8 + sf4
      If sf4 > 0 And Mese(es) = 9 Then ttt9 = ttt9 + sf4
      If sf4 > 0 And Mese(es) = 10 Then ttt10 = ttt10 + sf4
      If sf4 > 0 And Mese(es) = 11 Then ttt11 = ttt11 + sf4
      If sf4 > 0 And Mese(es) = 12 Then ttt12 = ttt12 + sf4

     
      '-------------- fine condizione -----------------------------
   Next
   '-------- comincio a scrivere i valori ricavati e li scrivo in tabella ----------------
   'Scrivi "Numeri in analisi... " & StringaNumeri(nu) & " - Sulla ruota di..." & NomeRuota(r),True,True,3,0,3
   'Scrivi "Sorte di verifica minima..." & NomeSorte(sorte),True,True,2,4,3
   Scrivi "Uscita per Mesi su estrazioni n° " & Tot,True,True,,2,3
   Scrivi ' spazio
   '------ scrivo i titoli per la tabella ---------------
   ReDim at(14)
   at(1) = MeseNome(1)
   at(2) = MeseNome(2)
   at(3) = MeseNome(3)
   at(4) = MeseNome(4)
   at(5) = MeseNome(5)
   at(6) = MeseNome(6)
   at(7) = MeseNome(7)
   at(8) = MeseNome(8)
   at(9) = MeseNome(9)
   at(10) = MeseNome(10)
   at(11) = MeseNome(11)
   at(12) = MeseNome(12)
   at(13) = " Totale freq. "
   at(14) = " Sorte "
   Call InitTabella(at,1,,3,5) ' inizializzo tabella dichiarata At,colorefondo(blu),,Size(3),coloreBianco(testo)
   '-------- scrivo i valori della presenza nei mesi del numero spia ------------------------------------------------
   ReDim av(14)
   av(1) = "   " & m1
   av(2) = "   " & m2
   av(3) = "   " & m3
   av(4) = "   " & m4
   av(5) = "   " & m5
   av(6) = "   " & m6
   av(7) = "   " & m7
   av(8) = "   " & m8
   av(9) = "   " & m9
   av(10) = "   " & m10
   av(11) = "   " & m11
   av(12) = "   " & m12 'etc.
   av(13) = "   " & m1 + m2 + m3 + m4 + m5 + m6 + m7 + m8 + m9 + m10 + m11 + m12
   av(14) = "   " & NomeSorte(sorte)
   Call AddRigaTabella(av,,,3)
   ReDim avv(14)
   avv(1) = "   " & t1
   avv(2) = "   " & t2
   avv(3) = "   " & t3
   avv(4) = "   " & t4
   avv(5) = "   " & t5
   avv(6) = "   " & t6
   avv(7) = "   " & t7
   avv(8) = "   " & t8
   avv(9) = "   " & t9
   avv(10) = "   " & t10
   avv(11) = "   " & t11
   avv(12) = "   " & t12 'etc.
   avv(13) = "   " & t1 + t2 + t3 + t4 + t5 + t6 + t7 + t8 + t9 + t10 + t11 + t12
   avv(14) = "   " & NomeSorte(sorte + 1)
   Call AddRigaTabella(avv,,,3)
   ReDim avvv(14)
   avvv(1) = "   " & tt1
   avvv(2) = "   " & tt2
   avvv(3) = "   " & tt3
   avvv(4) = "   " & tt4
   avvv(5) = "   " & tt5
   avvv(6) = "   " & tt6
   avvv(7) = "   " & tt7
   avvv(8) = "   " & tt8
   avvv(9) = "   " & tt9
   avvv(10) = "   " & tt10
   avvv(11) = "   " & tt11
   avvv(12) = "   " & tt12 'etc.
   avvv(13) = "   " & tt1 + tt2 + tt3 + tt4 + tt5 + tt6 + tt7 + tt8 + tt9 + tt10 + tt11 + tt12
   avvv(14) = "   " & NomeSorte(sorte + 2)
   Call AddRigaTabella(avvv,,,3)
   ReDim avvvv(14)
   avvvv(1) = "   " & ttt1
   avvvv(2) = "   " & ttt2
   avvvv(3) = "   " & ttt3
   avvvv(4) = "   " & ttt4
   avvvv(5) = "   " & ttt5
   avvvv(6) = "   " & ttt6
   avvvv(7) = "   " & ttt7
   avvvv(8) = "   " & ttt8
   avvvv(9) = "   " & ttt9
   avvvv(10) = "   " & ttt10
   avvvv(11) = "   " & ttt11
   avvvv(12) = "   " & ttt12 'etc.
   avvvv(13) = "   " & ttt1 + ttt2 + ttt3 + ttt4 + ttt5 + ttt6 + ttt7 + ttt8 + ttt9 + ttt10 + ttt11 + ttt12
   avvvv(14) = "   " & NomeSorte(sorte + 3)
   Call AddRigaTabella(avvvv,,,3)


   '
   'Call CreaTabella(0,0,0,0,1) ' crea tabella in modo verticale
   Call CreaTabella(0,0,0,0,1) ' crea tabella in modo orizzontale
   Scrivi
   'Scrivi " Script Listed By Mike58 & Giulio_LG ",True,True,6,0,3
End Sub

Bellissimo questo script Mike,e se volessi fare la ricerca su due ruote mensili,cosa mi suggerisci di cambiare nello script?

Mike58 · 18 Settembre 2023

x Batter
devi usare una Redim Ru(0) anzichè Dim
devi usare ScegliRuote(Ru)
e scrivere le ruote anzichè siglaruota(r) con StringaRuote(Ru)
dovrebbe essere tutto.
comunque eccolo

Codice:

Sub Main
   Dim nu()
   ReDim ru(0) ' cambiata
   ScegliRuote(ru) ' cambiata
   'r = InputBox("Quale ruota",,8)
   sorte = CInt(InputBox("Quale sorte minima verifico x MESI ","SORTE",2))
   sortestat = CInt(InputBox("QUALE SORTE VERIFICA STATISTICA ","SORTE STATISTICA",2))
   Ini = EstrazioneIni
   fin = EstrazioneFin ' range fine estrazioni
   Tot = fin - Ini + 1
   'ru(1) = r
   Call ScegliNumeri(nu)
   Call StatisticaFormazioneTurbo(nu,ru,sortestat,rerit,reritmax,Incrmax,refre,Ini,fin)
   ReDim atx(12)
   atx(1) = " Comb "
   atx(2) = " Ruota "
   atx(3) = " sorte "
   atx(4) = " Ritardo Att "
   atx(5) = " Rit Max "
   atx(6) = " incr max "
   atx(7) = " Frequenza "
   atx(8) = " Range inizio "
   atx(9) = " Range fine "
   atx(10) = " Estrazioni "
   atx(11) = " Author "
   atx(12) = " Richiesta "
   Call InitTabella(atx,2,,3,5)
   atx(1) = StringaNumeri(nu)
   atx(2) = StringaRuote(ru) ' cambiata
   atx(3) = NomeSorte(sortestat)
   atx(4) = rerit
   atx(5) = reritmax
   atx(6) = Incrmax
   atx(7) = refre
   atx(8) = DataEstrazione(Ini)
   atx(9) = DataEstrazione(fin)
   atx(10) = Tot
   atx(11) = " Mike58 "
   atx(12) = " Forum LottoCed "
   Call AddRigaTabella(atx,4,,3)
   Call SetColoreCella(11,,7)
   Call SetColoreCella(12,,1)
   Call SetTableWidth("100%")
   Call CreaTabella()

   For es = Ini To fin
      Messaggio "Elaboro estrazioni. . . . . . " & es & "   * * * * Script By Mike58 * * * * "
      Call AvanzamentoElab(Ini,fin,es)
      sf1 = SerieFreqTurbo(es,es,nu,ru,sorte)
      sf2 = SerieFreqTurbo(es,es,nu,ru,sorte + 1)
      sf3 = SerieFreqTurbo(es,es,nu,ru,sorte + 2)
      sf4 = SerieFreqTurbo(es,es,nu,ru,sorte + 3)

      If sf1 > 0 And Mese(es) = 1 Then m1 = m1 + sf1
      If sf1 > 0 And Mese(es) = 2 Then m2 = m2 + sf1
      If sf1 > 0 And Mese(es) = 3 Then m3 = m3 + sf1
      If sf1 > 0 And Mese(es) = 4 Then m4 = m4 + sf1
      If sf1 > 0 And Mese(es) = 5 Then m5 = m5 + sf1
      If sf1 > 0 And Mese(es) = 6 Then m6 = m6 + sf1
      If sf1 > 0 And Mese(es) = 7 Then m7 = m7 + sf1
      If sf1 > 0 And Mese(es) = 8 Then m8 = m8 + sf1
      If sf1 > 0 And Mese(es) = 9 Then m9 = m9 + sf1
      If sf1 > 0 And Mese(es) = 10 Then m10 = m10 + sf1
      If sf1 > 0 And Mese(es) = 11 Then m11 = m11 + sf1
      If sf1 > 0 And Mese(es) = 12 Then m12 = m12 + sf1
      '------------------------------------------------------
      If sf2 > 0 And Mese(es) = 1 Then t1 = t1 + sf2
      If sf2 > 0 And Mese(es) = 2 Then t2 = t2 + sf2
      If sf2 > 0 And Mese(es) = 3 Then t3 = t3 + sf2
      If sf2 > 0 And Mese(es) = 4 Then t4 = t4 + sf2
      If sf2 > 0 And Mese(es) = 5 Then t5 = t5 + sf2
      If sf2 > 0 And Mese(es) = 6 Then t6 = t6 + sf2
      If sf2 > 0 And Mese(es) = 7 Then t7 = t7 + sf2
      If sf2 > 0 And Mese(es) = 8 Then t8 = t8 + sf2
      If sf2 > 0 And Mese(es) = 9 Then t9 = t9 + sf2
      If sf2 > 0 And Mese(es) = 10 Then t10 = t10 + sf2
      If sf2 > 0 And Mese(es) = 11 Then t11 = t11 + sf2
      If sf2 > 0 And Mese(es) = 12 Then t12 = t12 + sf2
      '---------------------------------------------------------
      If sf3 > 0 And Mese(es) = 1 Then tt1 = tt1 + sf3
      If sf3 > 0 And Mese(es) = 2 Then tt2 = tt2 + sf3
      If sf3 > 0 And Mese(es) = 3 Then tt3 = tt3 + sf3
      If sf3 > 0 And Mese(es) = 4 Then tt4 = tt4 + sf3
      If sf3 > 0 And Mese(es) = 5 Then tt5 = tt5 + sf3
      If sf3 > 0 And Mese(es) = 6 Then tt6 = tt6 + sf3
      If sf3 > 0 And Mese(es) = 7 Then tt7 = tt7 + sf3
      If sf3 > 0 And Mese(es) = 8 Then tt8 = tt8 + sf3
      If sf3 > 0 And Mese(es) = 9 Then tt9 = tt9 + sf3
      If sf3 > 0 And Mese(es) = 10 Then tt10 = tt10 + sf3
      If sf3 > 0 And Mese(es) = 11 Then tt11 = tt11 + sf3
      If sf3 > 0 And Mese(es) = 12 Then tt12 = tt12 + sf3
      '---------------------------------------------------------
      If sf4 > 0 And Mese(es) = 1 Then ttt1 = ttt1 + sf4
      If sf4 > 0 And Mese(es) = 2 Then ttt2 = ttt2 + sf4
      If sf4 > 0 And Mese(es) = 3 Then ttt3 = ttt3 + sf4
      If sf4 > 0 And Mese(es) = 4 Then ttt4 = ttt4 + sf4
      If sf4 > 0 And Mese(es) = 5 Then ttt5 = ttt5 + sf4
      If sf4 > 0 And Mese(es) = 6 Then ttt6 = ttt6 + sf4
      If sf4 > 0 And Mese(es) = 7 Then ttt7 = ttt7 + sf4
      If sf4 > 0 And Mese(es) = 8 Then ttt8 = ttt8 + sf4
      If sf4 > 0 And Mese(es) = 9 Then ttt9 = ttt9 + sf4
      If sf4 > 0 And Mese(es) = 10 Then ttt10 = ttt10 + sf4
      If sf4 > 0 And Mese(es) = 11 Then ttt11 = ttt11 + sf4
      If sf4 > 0 And Mese(es) = 12 Then ttt12 = ttt12 + sf4

    
      '-------------- fine condizione -----------------------------
   Next
   '-------- comincio a scrivere i valori ricavati e li scrivo in tabella ----------------
   'Scrivi "Numeri in analisi... " & StringaNumeri(nu) & " - Sulla ruota di..." & NomeRuota(r),True,True,3,0,3
   'Scrivi "Sorte di verifica minima..." & NomeSorte(sorte),True,True,2,4,3
   Scrivi "Uscita per Mesi su estrazioni n° " & Tot,True,True,,2,3
   Scrivi ' spazio
   '------ scrivo i titoli per la tabella ---------------
   ReDim at(14)
   at(1) = MeseNome(1)
   at(2) = MeseNome(2)
   at(3) = MeseNome(3)
   at(4) = MeseNome(4)
   at(5) = MeseNome(5)
   at(6) = MeseNome(6)
   at(7) = MeseNome(7)
   at(8) = MeseNome(8)
   at(9) = MeseNome(9)
   at(10) = MeseNome(10)
   at(11) = MeseNome(11)
   at(12) = MeseNome(12)
   at(13) = " Totale freq. "
   at(14) = " Sorte "
   Call InitTabella(at,1,,3,5) ' inizializzo tabella dichiarata At,colorefondo(blu),,Size(3),coloreBianco(testo)
   '-------- scrivo i valori della presenza nei mesi del numero spia ------------------------------------------------
   ReDim av(14)
   av(1) = "   " & m1
   av(2) = "   " & m2
   av(3) = "   " & m3
   av(4) = "   " & m4
   av(5) = "   " & m5
   av(6) = "   " & m6
   av(7) = "   " & m7
   av(8) = "   " & m8
   av(9) = "   " & m9
   av(10) = "   " & m10
   av(11) = "   " & m11
   av(12) = "   " & m12 'etc.
   av(13) = "   " & m1 + m2 + m3 + m4 + m5 + m6 + m7 + m8 + m9 + m10 + m11 + m12
   av(14) = "   " & NomeSorte(sorte)
   Call AddRigaTabella(av,,,3)
   ReDim avv(14)
   avv(1) = "   " & t1
   avv(2) = "   " & t2
   avv(3) = "   " & t3
   avv(4) = "   " & t4
   avv(5) = "   " & t5
   avv(6) = "   " & t6
   avv(7) = "   " & t7
   avv(8) = "   " & t8
   avv(9) = "   " & t9
   avv(10) = "   " & t10
   avv(11) = "   " & t11
   avv(12) = "   " & t12 'etc.
   avv(13) = "   " & t1 + t2 + t3 + t4 + t5 + t6 + t7 + t8 + t9 + t10 + t11 + t12
   avv(14) = "   " & NomeSorte(sorte + 1)
   Call AddRigaTabella(avv,,,3)
   ReDim avvv(14)
   avvv(1) = "   " & tt1
   avvv(2) = "   " & tt2
   avvv(3) = "   " & tt3
   avvv(4) = "   " & tt4
   avvv(5) = "   " & tt5
   avvv(6) = "   " & tt6
   avvv(7) = "   " & tt7
   avvv(8) = "   " & tt8
   avvv(9) = "   " & tt9
   avvv(10) = "   " & tt10
   avvv(11) = "   " & tt11
   avvv(12) = "   " & tt12 'etc.
   avvv(13) = "   " & tt1 + tt2 + tt3 + tt4 + tt5 + tt6 + tt7 + tt8 + tt9 + tt10 + tt11 + tt12
   avvv(14) = "   " & NomeSorte(sorte + 2)
   Call AddRigaTabella(avvv,,,3)
   ReDim avvvv(14)
   avvvv(1) = "   " & ttt1
   avvvv(2) = "   " & ttt2
   avvvv(3) = "   " & ttt3
   avvvv(4) = "   " & ttt4
   avvvv(5) = "   " & ttt5
   avvvv(6) = "   " & ttt6
   avvvv(7) = "   " & ttt7
   avvvv(8) = "   " & ttt8
   avvvv(9) = "   " & ttt9
   avvvv(10) = "   " & ttt10
   avvvv(11) = "   " & ttt11
   avvvv(12) = "   " & ttt12 'etc.
   avvvv(13) = "   " & ttt1 + ttt2 + ttt3 + ttt4 + ttt5 + ttt6 + ttt7 + ttt8 + ttt9 + ttt10 + ttt11 + ttt12
   avvvv(14) = "   " & NomeSorte(sorte + 3)
   Call AddRigaTabella(avvvv,,,3)


   '
   'Call CreaTabella(0,0,0,0,1) ' crea tabella in modo verticale
   Call CreaTabella(0,0,0,0,1) ' crea tabella in modo orizzontale
   Scrivi
 
End Sub

Missione Impossibile. · 18 Settembre 2023

Grazie MIKE come sempre Gentilissimo

Rafele ‘o Ruoss’ · 18 Settembre 2023

Mike58 ha scritto:
Raf, sicuramente non è quello che chiedi,ma purtroppo senza dati di prelievo da un archivio, mancano le ancore da dove partire.
Comunque ti faccio una bozza di script
spiegazioni
Dato un Range estrazioni (circa 600 aumentabili a piacere)
Ruota scelta
numeri scelti e sommati con estrapolazione cadenza
verifico in questo range cosa ha prodotto la cadenza ed i suoi numeri in cadenza (rossa e blu)
con visualizzazione mese e anno.
Il tutto solo in visualizzazione.
Sicuramente si può fare di meglio, ma senza dati faccio fatica a creare un output diverso.
intanto prova cosi.
ciao

Ciao @Mike58 ,ti chiedo e cerco di essere chiaro,

lo script di verifica è perfetto ma vorrei capire e

ti chiedo è possibile sempre per verifica e non previsione di giocata.

aggiungere la possibilità di capire cosa è accaduto nel intero mese di Marzo verificando se sono stati estratti numeri da me inseriti precedentemente alla verifica.
esempio con cad 5 a marzo voglio sapere se sono usciti il 75 68 80 3 2 11
grazie

l

Mike58 · 19 Settembre 2023

Non Lo so. Raf.
Modificare script già compilati per uno scopo , diventa complicato poi ottenere altre risultanze.
Ti metto un ' altro modus operandi che immettendo le spie in manuale (direttamente nello script con indicazioni remmate) e con scelta mese e anni come sopra, ottieni i tuoi risultati visivi e conteggiati.

Ciao

Codice:

Sub Main
   Dim aCol(1),spia(5),E,ru(1),Cad(1),kk(5)
   Ini = EstrazioneIni
   fin = EstrazioneFin
   '------------------------------------
   An1 = 2020 ' modificare anno inizio
   an2 = 2022 ' anno Fine
   ms = 3 ' 3 uguale Marzo
   '------------------------------------
   spia(1) = 11 ' spia1
   spia(2) = 13 ' ""
   spia(3) = 71 ' ""
   spia(4) = 82 ' ""
   spia(5) = 83 ' spia5
   Cad(1) = 5 ' questa è la tua cadenza
   '-----------------------------------
   Scrivi "Cadenza N.... : " & Cad(1),1
   Scrivi "Numeri scelti : " & StringaNumeri(spia)
   Scrivi "Mese scelto   : " & MeseNome(ms)
   Scrivi "Anni scelti   : " & an1 & " <> " & an2
   Scrivi
   For es = Ini To fin
      If Mese(Es) = ms And Anno(Es) >= an1 And Anno(Es) <= an2 Then
         For r = 1 To 1 ' scegli ruota
            ru(1) = r
            Scrivi GetInfoEstrazione(es) & vbTab & FormatSpace(NomeRuota(R),12) & " ",,0
            For p = 1 To 5
               E = Estratto(Es,r,p)
               If spia(1) = E Or spia(2) = E Or spia(3) = E Or spia(4) = E Or spia(5) = E Then
                  aCol(1) = vbGreen
               ElseIf Cad(1) = E Then
                  aCol(1) = vbRed
               Else aCol(1) = RGB(239,240,242)
               End If
               Call VerificaEsito(spia,ru,Es,1,1,,Esito,,Esa)
               Scrivi " " & Format2(E) & " ",,0,aCol(1),,3
               For cc = 1 To UBound(spia)
                  If spia(cc) = E Then kk(cc) = kk(cc) + 1
               Next
            Next
            Scrivi vbTab & Esito,0,0
            Scrivi
         Next
      End If
   Next
   Scrivi
   Scrivi "Riepilogo Numeri Spia Presenti",1
   For c = 1 To UBound(spia)
      Scrivi spia(c) & " = " & kk(c)
   Next
End Sub

Rafele ‘o Ruoss’ · 19 Settembre 2023

Mike58 ha scritto:

Non Lo so. Raf.
Modificare script già compilati per uno scopo , diventa complicato poi ottenere altre risultanze.
Ti metto un ' altro modus operandi che immettendo le spie in manuale (direttamente nello script con indicazioni remmate) e con scelta mese e anni come sopra, ottieni i tuoi risultati visivi e conteggiati.

Ciao

Codice:

Sub Main
   Dim aCol(1),spia(5),E,ru(1),Cad(1),kk(5)
   Ini = EstrazioneIni
   fin = EstrazioneFin
   '------------------------------------
   An1 = 2020 ' modificare anno inizio
   an2 = 2022 ' anno Fine
   ms = 3 ' 3 uguale Marzo
   '------------------------------------
   spia(1) = 11 ' spia1
   spia(2) = 13 ' ""
   spia(3) = 71 ' ""
   spia(4) = 82 ' ""
   spia(5) = 83 ' spia5
   Cad(1) = 5 ' questa è la tua cadenza
   '-----------------------------------
   Scrivi "Cadenza N.... : " & Cad(1),1
   Scrivi "Numeri scelti : " & StringaNumeri(spia)
   Scrivi "Mese scelto   : " & MeseNome(ms)
   Scrivi "Anni scelti   : " & an1 & " <> " & an2
   Scrivi
   For es = Ini To fin
      If Mese(Es) = ms And Anno(Es) >= an1 And Anno(Es) <= an2 Then
         For r = 1 To 1 ' scegli ruota
            ru(1) = r
            Scrivi GetInfoEstrazione(es) & vbTab & FormatSpace(NomeRuota(R),12) & " ",,0
            For p = 1 To 5
               E = Estratto(Es,r,p)
               If spia(1) = E Or spia(2) = E Or spia(3) = E Or spia(4) = E Or spia(5) = E Then
                  aCol(1) = vbGreen
               ElseIf Cad(1) = E Then
                  aCol(1) = vbRed
               Else aCol(1) = RGB(239,240,242)
               End If
               Call VerificaEsito(spia,ru,Es,1,1,,Esito,,Esa)
               Scrivi " " & Format2(E) & " ",,0,aCol(1),,3
               For cc = 1 To UBound(spia)
                  If spia(cc) = E Then kk(cc) = kk(cc) + 1
               Next
            Next
            Scrivi vbTab & Esito,0,0
            Scrivi
         Next
      End If
   Next
   Scrivi
   Scrivi "Riepilogo Numeri Spia Presenti",1
   For c = 1 To UBound(spia)
      Scrivi spia(c) & " = " & kk(c)
   Next
End Sub

spettacolare ,proprio quello che cerco
grazie

qualcuno esperto di script è realizzabile

Banned

Advanced Member >PLATINUM PLUS<

Banned

Banned

Advanced Member >PLATINUM PLUS<

Banned

Advanced Member >PLATINUM PLUS<

Banned

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Banned

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM<

Banned

Advanced Member >PLATINUM PLUS<

Banned