Aiuto

Ciao a tutti,
ci ho provato ma non ci sono riuscito.
Avrei bisogno di uno script che mi dia per ciascuna ruota gli estratti incolonnati nella forma dello schema seguente:
60.46.72.47.09
22.86.81.65.75
86.51.57.79.65
47.06.11.33.41
72.06.63.79.86
70.15.03.11.34
88.81.53.41.90
27.38.71.15.84
07.21.15.54.27

Questi sono gli estratti di giugno della ruota di BA, a me servono solo i numeri sorteggiati di tutto l'archivio dal 1871 come in colonna senza altre indicazioni di date o indici.
Ci ero quasi riuscito ma non mi dava il puntino di separazione tra un numero e l'altro.
Per i maghi degli script forse è un giochetto, ma per me no.
Grazie a chiunque voglia provarci, ciao a tutti
Matteo

Ciao, Matteo.

Sub main()
r=1
For es=9932 To EstrazioneFin
Scrivi StringaEstratti(es,r)
Next
End Sub

Output
60.46.72.47.09
22.86.81.65.75
86.51.57.79.65
47.06.11.33.41
72.06.63.79.86
70.15.03.11.34
88.81.53.41.90
27.38.71.15.84
07.21.15.54.27

Grazie Cinzia,
con la solita manina fatata hai risolto tutto.
Ciao e grazie ancora,

Matteo

Ciao Cinzia,
si sa che l'appetito viene mangiando.
Vorrei chiederti: come posso fare per escludere di tutte le cinquine uno dei cinque estratti a mia scelta, riducendo così la cinquina a quartina?
Ciao e grazie ancora, poi ti spiegherò,
Matteo

Ciao, Matteo.
nella prima opzione escludi una volta per tutte un numero fisso

Sub main()
r=1
For es=EstrazioneFin-10 To EstrazioneFin
Scrivi
For p= 1 To 5
a=Estratto(es,r,p)
If a<>6 Then
Scrivi Format2(a)&" ",0,0
End If
next
next

End Sub


nella seconda opzione escludi di volta in volta il numero che vuoi che puoi variare ad ogni estrazione
Sub main()
r=1
For es=EstrazioneFin-10 To EstrazioneFin
esc=InputBox(" escludi",,5)
If esc="" Then Exit sub
Scrivi
For p= 1 To 5
a=Estratto(es,r,p)
If a<>6 Then
Scrivi Format2(a)&" ",0,0
End If
next
next

End Sub

Se non ho inteso, fammi sapere.

Edited by Cinzia28 - 20/6/2021, 20:23

Ciao Cinzia,
quello che io intendevo è ad esempio, se scelgo di escludere il 5, lo script mi deve escludere da tutte le cinquine il 5° estratto.
Delle cinquine di sopra pertanto

60.46.72.47.09
22.86.81.65.75
86.51.57.79.65
47.06.11.33.41
72.06.63.79.86
70.15.03.11.34
88.81.53.41.90
27.38.71.15.84
07.21.15.54.27

dovrebbe escludermi tutti i 5° estratti, cioè dovrebbe darmi queste quartine

60.46.72.47
22.86.81.65
86.51.57.79
47.06.11.33
72.06.63.79
70.15.03.11
88.81.53.41
27.38.71.15
07.21.15.54

Allo stesso modo per le altre quattro posizioni.
Se non sono stato chiaro, dimmi naturalmente i tuoi dubbi, cercherò di spiegarmi meglio.
Ciao e grazie per la tua grande disponibilità,

Matteo

Ciao, Matteo.
E' così?
Tra l' altro ho corretto una piccola imprecisione nello script dove vi è l' input, era exit for invece è Exit sub

Sub Main()
r=1
esc=5 'posizione da escludere

For es=9932 To EstrazioneFin
Scrivi
For p= 1 To 5
a=Estratto(es,r,p)
If p<>esc Then

Scrivi Format2(a)&" ",0,0
End If
Next
Next

End Sub

Perfetto, Cinzia!
Non avevo dubbi, grazie ancora, poi ti farò sapere, ciao

Matteo

D' accordo