Per Joe o chi può Grazie

[Cinzia27]

Solare, la funzione c'era già ed è questa




può inserire 1 ruota, 2 ruote, 3 ruote, quelle che vuoi.
Ad esempio
1.3 Bari firenze
5 Milano, ecc.


L'unica cosa che non ho messo è la descrizione,
Ora c'è.

Sub Main()
Dim ru(12)
'Intervallo estrazioni - Cinzia27
ini=InputBox("scrivi estrazione iniziale ",,EstrazioneFin-10)
If ini="" Then ExitFor
fin=InputBox("scrivi estrazione finale ",,EstrazioneFin)

If fin="" Then ExitFor

rr=InputBox(tst,"Scegli la ruota o le ruote ","1.2.3.4.5.6.7.8.9.10")
If rr="" Then Exit Sub
rr="0."&rr
ruote=Split(rr,".")
tot=UBound(ruote)+2

For es=ini To fin
 Scrivi
 
 tot=UBound(ruote)+2

For x=1 To UBound(ruote)
ru(1)=ruote(x)
Scrivi
Scrivi DataEstrazione(es)&" ",0,0

Scrivi SiglaRuota(ruote(x))&" ",0,0
For p=1 To 5
a=Estratto(es,ruote(x),p)
Scrivi a&"",0,0
If p<5 Then Scrivi".",0,0

Next
Next
Next

End Sub

 

[solare]

Ottimo non pensavo si potessero selezionare due o più ruote.
Grazieeeeeee

 

[Oscar]

Sub Main()
Dim ru(12)
Dim ruote
Dim rt
'Intervallo estrazioni - Cinzia27
ini = InputBox("scrivi estrazione iniziale ",,EstrazioneFin - 100)
If ini = "" Then ExitFor
fin = InputBox("scrivi estrazione finale ",,EstrazioneFin)

If fin = "" Then ExitFor

rr = InputBox(tst,"","1.2.3.4.5.6.7.8.9.10")
If rr = "" Then Exit Sub
rr = "0." & rr
ruote = Split(rr,".")
tot = UBound(ruote) + 2
rt = InputBox("Scegli ruota",,"1")
For es = ini To fin
 Scrivi
 tot = UBound(ruote) + 2
For x = rt To rt'UBound(ruote)
ru(1) = ruote(x)
Scrivi
Scrivi DataEstrazione(es) & " ",0,0

Scrivi SiglaRuota(ruote(x)) & " ",0,0
For p = 1 To 5
a = Estratto(es,ruote(x),p)
Scrivi a & "",0,0
If p < 5 Then Scrivi".",0,0

Next
Next
Next

End Sub

 

[Oscar]

Ne selezioni Una , se ne vuoi di piu metti l'input iniziale e quello finale

Ma non chidetemi di fare script perchè non ho tempo

Ma sei capace anche tu Cinzia è facile

Grazie Oscar

 

[solare]

Oscar, ti ringrazio
a me sembra che comunque quello fatto da Cinzia, faccia comunque quello che dici tu.
Infatti se nella selezione della ruota metti 1 per bari 5 per milano ecc ecc.
Direi che va più che bene

 

[Oscar]

Oscar, ti ringrazio
a me sembra che comunque quello fatto da Cinzia, faccia comunque quello che dici tu.
Infatti se nella selezione della ruota metti 1 per bari 5 per milano ecc ecc.
Direi che va più che bene

Si esatto è la stessa cosa

 

[Cinzia27]

Oscar, la scelta ruota che hai aggiunto non va messa perché la funzione c'è già e da la possibilità di scegliere una, due, tre, fino
a 10 ruote.
Le ruote possono essere più di una e anche non consecutive.
Per questo è preferibile.

 

[Oscar]

Oscar, la scelta ruota che hai aggiunto non va messa perché la funzione c'è già e da la possibilità di scegliere una, due, tre, fino
a 10 ruote.
Le ruote possono essere più di una e anche non consecutive.
Per questo è preferibile.

Si hai ragione meglio così che puoi scegliere quelle che vuoi

 

[i legend]

Ciao a tutti.
Vorrei provare a farne uno anche io.
Non ho modo di testarla , quindi per favore provatela ma non quotatela, che se non andasse bene non lasciamo strafalcioni in giro per chi vuole imparare.

' vado a memoria
' il nome o i parametri di alcune funzioni potrebbero essere errati
Option explicit
Sub main
Dim ini, fin: call scegliRange ( ini, fin,1,estrazioniArchivio)
Redim aR(0): call scegliruote(aR)
Dim idE
Dim R
DIM sep: sep=" "
Dim bRet: bRet = false
' non ricordo bene il nome di questa funzione
If  ini >0 then
   If fin>= ini and  fin <= estrazioniArchivio then
      If ubound( aR)>0 then
          
                 bRet = true
           
       End if
    End if
End if
If bRet = false then
Scrivi " errore variabili"
Exit sub
End if

For ide= ini to fin
   For r= 1 to ubound ( aR)
       If aR(r)<> 11 then

         Scrivi dataestrazione(ide) &sep& siglaruota(aR(r))&sep&stringaES( ide,aR(r),sep)
        End if
   Next

Next
End Sub
'Non ricordo se stringaestratti formatta automaticamente i numeretti per questo la funzione che segue
Function StringaEs(idE,R,sep)
  Dim p , s
S=""
For p= 1 to 5
S=s&estratto( ide,r,p)&sep
Next


StringaEs= rimuovilastchr(s, sep)
End function

Vorrei che qualcuno la verificasse giusto per non dimenticare tutto.
Grazie.
È un alternativa alla sub di Cinzia

X Cinzia
Se inserisci la ruota 11 va bene o ti restituisce erroreio ho messo il controllo ma non so se serve.

Non quotatelo per favore.

 

[Oscar]

Ciao I legend
non ho capito questa If estrazionevalidalotto( ini ) then

forse intendevi If EstrazioniArchivio( fin) Then

Comunque mi sembra ottima Bravo

 

[Cinzia27]

Ciao, Ilegend
a me da errore

 

[i legend]

Ciao Oscar, c'è una funzione che dice se il concorso è valido ,
Non ricordo esattamente il nome.

 

[i legend]

Cinzia potrebbe essere
Isestrazionevalidalotto?
Bisognerebbe guardare tra le funzioni.

 

[i legend]

Ho tolto la funzione che non ricordo come si chiama
Potete provare con il nuovo if ?
Grazie

 

[Oscar]

Era questa che cercavi
EstrazioneAttivata

Tra le variabili non ho tovato nulla di simile

magari era una variabile definita dall'utente non saprei

comunque l'ultimo va benissimo

 

[i legend]

Oscar non saprei se è questa la funzione
Cmq è sufficiente chiedere che
" ini "sia maggiore di zero e " fin" compreso tra ini e tutte le estrazioni presenti in archivio.
Così se per sbaglio dal form non viene selezionato alcun valore o fin fosse più piccolo di ini restituisce errore ed esce dalla sub
Vedete se va bene per favore.
Non sapete quanto mi manca il mio pc.
.
Non sono arrugginito, di più, come i miei ossi

 

[i legend]

Grazie mille oscar

 

[i legend]

Grazie Salvo per il pollicione

 

[salvo50]

Ciao a Tutti

Ciao ILegend

Lo script è perfetto C'è solo un errore che sicuramente l'hai fatto perché non hai il computer

La funzione è stringaestratti così

Scrivi DataEstrazione(idE) &" "& SiglaRuota(aR(R))&" " &StringaEstratti( idE,aR(R),sep)

sei un grande

 

[Oscar]

Oscar non saprei se è questa la funzione
Cmq è sufficiente chiedere che
" ini "sia maggiore di zero e " fin" compreso tra ini e tutte le estrazioni presenti in archivio.
Così se per sbaglio dal form non viene selezionato alcun valore o fin fosse più piccolo di ini restituisce errore ed esce dalla sub
Vedete se va bene per favore.
Non sapete quanto mi manca il mio pc.
.
Non sono arrugginito, di più, come i miei ossi

SI allora deve essere definita dall'utente , ma con il Range di selezione non ti serve perchè se fin è minore di ini il Range si disattiva in automatico