X Rubino o chi vuole

[solare]

Ciao, avrei bisogno di un listato che una volta inserito un numero, mi visualizzi le ultime 10 volte che è sortito assieme alla cinquina estratta, evidenziando "Rosso" il numero da me inserito.
Grazie

 

[Rubino]

ciao solare

il tempo che cerchi lo script, lo carichi ed imposti i dati che ti servono

ma non fai prima a fare

statistica veloce
inserisci numero che vuoi per la sorte estratto
ed in basso a dx ti viene fatto il prospetto di tutte le uscite del numero che hai richiesto
e guardi non solo le ultime dieci, ma tutte quelle che ti servono?

li hai anche la cinquina estratta

prova poi se non ti va bene, vediamo.

 

[solare]

Ciao rubino, si hai ragione
quello che servirebbe a me è visualizzare quello descritto nella precedente comunicazione
in più il resoconto delle sortite per posizione.
Vabbè se trovi un'attimo vedi te
Grazie come sempre della tua disponibilità

 

[Rubino]

ti riferisci, fare una aggiunta allo script già fatto, o farne uno nuovo?

 

[solare]

Mi riferisco ad uno script nuovo per quanto riguarda la visualizzazione delle cinquine.
Volevo segnalarti un errore nel metodo fortissimo che tu gentilmente hai fatto. Ti ho scritto il problema nella pagina "Fortissimo x ambata""

 

[Master]

Buonasera a tutti

Ho questo script che uso per le ricerche, vedi se ti può essere utile

 [B]Sub[/B] [B]Main[/B]
   'script ricerca spia posizione e ritardo By Master
[B]Dim[/B] [B]R[/B],[B]A[/B],[B]ca[/B],[B]co[/B],[B]es[/B],[B]est[/B],[B]pos[/B],[B]N[/B],[B]NR[/B]
[B]Scrivi[/B] "Ricerca di un numero quando estratto ",1,,,2:[B]Scrivi[/B]
[B]A[/B] [B]=[/B] [B]CInt[/B]([B]InputBox[/B]("Digita il Numero Spia "," SPIA","90"))
[B]R[/B] [B]=[/B] [B]CInt[/B]([B]InputBox[/B]("Su che Ruota è uscita la spia ?","RUOTA",1))
[B]ca[/B] [B]=[/B] [B]CInt[/B]([B]InputBox[/B]("Quanti Casi ?","CASI",10))
[B]co[/B] [B]=[/B] 0
[B]For[/B] [B]es[/B] [B]=[/B] [B]EstrazioneFin[/B] [B]To[/B] 1 [B]Step[/B] [B]-[/B] 1 : [B]Messaggio[/B] [B]es[/B]
[B]If[/B]([B]Posizione[/B]([B]es[/B],[B]R[/B],[B]A[/B]) [B]>[/B] 0) [B]Then[/B]
[B]If[/B] [B]co[/B] [B]<[/B] [B]ca[/B] [B]+[/B] 1 [B]Then[/B]
[B]est[/B] [B]=[/B] [B]es[/B]
[B]Scrivi[/B] [B]es[/B] [B]&[/B] " - " [B]&[/B] [B]DataEstrazione[/B]([B]es[/B]) [B]&[/B] " - " [B]&[/B] [B]SiglaRuota[/B]([B]R[/B]) [B]&[/B] " - ",1,0
[B]co[/B] [B]=[/B] [B]co[/B] [B]+[/B] 1
[B]For[/B] [B]pos[/B] [B]=[/B] 1 [B]To[/B] 5
[B]N[/B] [B]=[/B] [B]Estratto[/B]([B]es[/B],[B]R[/B],[B]pos[/B])
[B]If[/B] [B]A[/B] [B]=[/B] [B]N[/B] [B]Then[/B]
[B]ColoreTesto[/B] 2
[B]End[/B] [B]If[/B]
[B]Scrivi[/B] [B]Format2[/B]([B]N[/B]),1,0 : [B]ColoreTesto[/B] 0
[B]If[/B] [B]pos[/B] [B]<[/B] 5 [B]Then[/B] [B]Scrivi[/B] ".",0,0
[B]Next[/B]
[B]Scrivi[/B]
[B]End[/B] [B]If[/B]
[B]End[/B] [B]If[/B]
[B]Next[/B]
[B]Scrivi[/B]
[B]Scrivi[/B] "Ritarda da " [B]&[/B] [B]RitardoEstrattoTurbo[/B]([B]A[/B],[B]EstrazioneFin[/B],[B]R[/B]) [B]&[/B] " Estrazioni ",1,,,1
[B]Scrivi[/B]
[B]For[/B] [B]NR[/B] [B]=[/B] 1 [B]To[/B] 5
[B]ReDim[/B] [B]P[/B](5)
[B]P[/B]([B]NR[/B]) [B]=[/B] [B]True[/B]
[B]Scrivi[/B] [B]NR[/B] [B]&[/B] "° Pos. Rit. " [B]&[/B] [B]FormatSpace[/B]([B]RitardoEstrattoTurbo[/B]([B]A[/B],[B]EstrazioneFin[/B],[B]R[/B],[B]P[/B]),4) [B]&[/B] " - ",0,0
[B]Scrivi[/B] " Sortite " [B]&[/B] [B]Format2[/B]([B]EstrattoFrequenzaTurbo[/B]([B]R[/B],[B]A[/B],[B]est[/B],[B]EstrazioneFin[/B],,,[B]P[/B]))
[B]Next[/B]
[B]End[/B] [B]Sub[/B]

 

[solare]

Ciao master, Ottimo
Grazie