X Joe e non solo

[solare]

Ciao joe, non sono sicuro se questo lo hai fatto tu
A me servirebbe inserire la possibilità di estrarre le estrazioni con indice mensile
esempio gli ultimi 4 anni del solo mese di Marzo...ecc ecc
Grazie infinite, sempre che sia possibile modificarlo.

' 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) & " " & SiglaRuota(aR(R)) & " " & StringaEstratti(idE,aR(R),sep)

'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

 

[joe]

ciao Solare,

Non ricordo il contesto per cui fu fatto.

Lo script che hai proposto ha uno sviluppo di base che è sicuramente di LuigiB.

Se ho capito bene quello che hai chiesto,

dovrebbe essere sufficiente inserire un controllo sul numero del mese (di ogni IdE)

Dove naturalmente il 3 sta ad indicare il 3° mese dell'anno chè è Marzo.

If Mese (idE) = 3 Then
Scrivi DataEstrazione(idE) & " " & SiglaRuota(aR(R)) & " " & StringaEstratti(idE,aR(R),sep)
End If

 

[solare]

poi ad inserirlo nel listato
Ok grazie