Per gentilezza chiedo il vostro aiuto...

[Roby]

Buongiorno,
vorrei il vostro aiuto in particolare quello che chiedo è,se possibile,una modifica su un listato che Luigi,sempre disponibile con tutti,ha fatto per un altro utente.In pratica la ricerca dovrebbe essere condotta sui singoli numeri appartenenti alla stessa decina e sempre in cicli da 18 estrazioni,cmq vi posto lo script realizzato da Luigi:
http://forum.lottoced.com/topic.asp?TOPIC_ID=130351
Grazie

 

[LuigiB]

Ciao In base alle ultime modifiche chieste da Solare lo script analizzava tutte le 9 decine , quindi nel tuo caso verranno analizzati tutti i 90 numeri negli N cicli da 18

Option Explicit
Sub Main
	Dim Ruota
	Dim nCicli
	Dim Inizio,Fine
	Dim idEstr
	Dim idDecina
	Dim sErr
	Dim nTotale
	ReDim aNum(1)
	ReDim aRuote(1)
	Dim Numero
	
	
	Ruota = ScegliRuota
	nCicli = Int(InputBox("Inserire il numero dei cicli da 18",,10))
	
	Inizio =(EstrazioneFin -(nCicli * 18)) + 1
	Fine = EstrazioneFin - 17
	
	
	
	If nCicli > 0 And Inizio > 0 And Ruota > 0 Then
		
		aRuote(1) = Ruota
		For Numero = 1 To 90
			nTotale = 0
			aNum(1) = Numero
			ReDim aTitoli(2)
			aTitoli(1) = "   Range       "
			aTitoli(2) = "   Frequenza   "
			Call InitTabella(aTitoli)
			For idEstr = Inizio To Fine Step 18
				ReDim aValori(2)
				aValori(1) = CStr(idEstr) & " - " & CStr(idEstr + 17)
				aValori(2) = SerieFreq(idEstr,idEstr + 17,aNum,aRuote,1)
				nTotale = nTotale + CLng(aValori(2))
				Call AddRigaTabella(aValori)
			Next
			ReDim aValori(2)
			aValori(1) = "Totale"
			aValori(2) = nTotale
			Call AddRigaTabella(aValori,vbYellow)
			
			Call Scrivi("Su " & NomeRuota(Ruota))
			
			Call Scrivi("Numero analizzato " & StringaNumeri(aNum))
			
			Call Scrivi
			
			Call CreaTabella
		Next
	Else
		If nCicli <= 0 Then
			sErr = "Numero di cicli non valido"
		End If
		If Inizio <= 0 Then
			sErr = "Troppi cicli rispetto alle estrazioni del range"
		End If
		If idDecina <= 0 Then
			sErr = "Nessuna decina selezionata"
		End If
		If Ruota <= 0 Then
			sErr = "Nessuna ruota selezionata"
		End If
		MsgBox sErr,vbCritical
	End If
End Sub

 

[Debora73]

Grazie Luigi,gentile e disponibile come sempre
Buona giornata