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]

provo ad inserirlo nel listato
Ok grazie

 

[joe]

Option Explicit
Sub Main
   Dim ini,fin: Call ScegliRange(ini,fin,10000,EstrazioniArchivio)
   ReDim aR(0): Call ScegliRuote(aR)
   Dim idE
   Dim R
   Dim sep: sep = " "
   Dim bRet: bRet = false
   Dim M : M = eVal(InputBox("Es 3 = Marzo","SCEGLI UN MESE",3))
   If M < 1 Or M > 12 Then M = 1 'Gestisce errori di input

   ' 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
   If IndiceAnnuale (idE) = 1 Then Scrivi String (28,"-") 
      For R = 1 To UBound(aR)
         If aR(R) <> 11 Then
            If Mese(idE) = M Then
               Scrivi DataEstrazione(idE) & " " & SiglaRuota(aR(R)) & " " & StringaEstratti(idE,aR(R),sep)
            End If
         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

 

[solare]

Grazie Joe, gentilissimo come sempre.