Tabellone analitico 10eLotto

barattolo · 5 Novembre 2011

Salve a Tutti

qualcuno di voi (esperto del foglio di calcolo Microsoft Excel 2003) potrebbe farmi oppure.....se già ce l'avete? Un foglio (tabellone analitico) che si aggiorni (magari con un bottone?) le estrazioni del 10eLotto normale e anche il 10eLotto ogni 5minuti?

Grazie

LuigiB · 5 Novembre 2011

Ciao Barattolo , questo script puo indirizzare l'output o in una tabella normale o in excel a scelta dell'utente

Codice:

Option Explicit
Sub Main
	Dim TipoArc
	Dim Inizio,Fine
	Dim k , e , i 
	Dim nEstrPrese
	Dim nTipoOutput
	
	TipoArc = ScegliTipoArchivio
	nTipoOutput = ScegliOutput
	
	
	If TipoArc >= 0 Then
		If TipoArc = 0 Then
			Call ImpostaArchivio10ELotto(1)
		Else
			Call ImpostaArchivio10ELotto(2)
		End If
		Fine = EstrazioniArchivioDL
		Inizio = Fine -100
		If Inizio <=0 Then Inizio =1
		
		nEstrPrese = (Fine+1)- Inizio
		ReDim aColonne(nEstrPrese , 22)
		Call Messaggio ("Elaborazione in corso ...")
	
		For k = Inizio To Fine
			i = i + 1 
			aColonne(i ,1 ) = GetInfoEstrazioneDL( k)
			aColonne(i ,2 ) = Fine - k
			
			For e = 3 To 22
				aColonne(i ,e ) = EstrattoDL( k,e-2)
			Next
			
			Call AzzeraPrecedenti (aColonne ,i)
			
			Call AvanzamentoElab(Inizio , Fine , k)
		Next
		
		Call GestioneOutput( aColonne , nTipoOutput)
	
	End If
	
	
End Sub
Function ScegliTipoArchivio()
	ReDim aV(1)
	aV(0) = "10 e lotto classico"
	aV(1) = "10 e lotto 5 minuti"
	ScegliTipoArchivio = ScegliOpzioneMenu(aV,0,"Scegli 10 e lotto")
End Function
Function ScegliOutput()
	 
	ReDim aV(1)
	aV(0) = "Tabella"
	aV(1) = "Excel"
	
	ScegliOutput= ScegliOpzioneMenu(aV,0, "Scegli output")
	
	
End Function

Sub AzzeraPrecedenti (aCol ,idLast)
	
	Dim k , e , ee 
	
	For k = idLast-1 To 1 Step -1
		For e = 3 To 22
			For ee = 3 To 22
				If aCol(k,ee) = aCol(idLast,e) Then
					aCol(k,ee) = ""
					Exit For
				End If
			Next
		Next
	Next
End Sub 

Sub GestioneOutput( aCol , Tipo )

	Dim e , k 
	ReDim aTitoli (22)
	Dim xlApp , xlBook , xlSheet

	Call Messaggio ("Creazione output in corso ...")
	
	
	aTitoli(1) = "Data"
	aTitoli(2) = "Ritardo"
	
	For e= 3 To 22
		aTitoli(e) ="P " & e -2
	Next
	
	If Tipo =0 Then
		' tabella
		Call InitTabella (aTitoli)
		
		For k = 1 To UBound(aCol)
			ReDim aValori (22)
			For e = 1 To 22
				aValori(e)= aCol( k ,e)
			Next
			Call AddRigaTabella (aValori)
			Call AvanzamentoElab(1 , UBound(aCol) , k)
			
		Next
		
		Call CreaTabella

	Else
		' excel
		
		Set xlApp = CreateObject("Excel.Application")
		Set xlBook =  xlApp.Workbooks.Add
		Set xlSheet = xlBook.worksheets(1)
		xlSheet.Name = "Tab Analitico"
		For k = 1 To UBound(aTitoli)
			xlSheet.cells(1,k) = aTitoli(k) 
		Next
		xlSheet.range("A1").entirerow.font.bold = True 
		For k = 1 To UBound(aCol)
			 
			
			For e = 1 To 22
				xlSheet.cells(k+1,e) = aCol( k ,e)
			Next
			Call AvanzamentoElab(1 , UBound(aCol) , k)
			
 
		Next

		
		
		xlApp.visible =True 
		
		Set xlSheet = Nothing
		Set xlBook = Nothing
		Set xlApp = Nothing 
		
		Call Scrivi ("Output in execel")		
	End If
End Sub

barattolo · 5 Novembre 2011

quote:Originally posted by LuigiB

Ciao Barattolo , questo script puo indirizzare l'output o in una tabella normale o in excel a scelta dell'utente

Codice:

Option Explicit
Sub Main
	Dim TipoArc
	Dim Inizio,Fine
	Dim k , e , i 
	Dim nEstrPrese
	Dim nTipoOutput
	
	TipoArc = ScegliTipoArchivio
	nTipoOutput = ScegliOutput
	
	
	If TipoArc >= 0 Then
		If TipoArc = 0 Then
			Call ImpostaArchivio10ELotto(1)
		Else
			Call ImpostaArchivio10ELotto(2)
		End If
		Fine = EstrazioniArchivioDL
		Inizio = Fine -100
		If Inizio <=0 Then Inizio =1
		
		nEstrPrese = (Fine+1)- Inizio
		ReDim aColonne(nEstrPrese , 22)
		Call Messaggio ("Elaborazione in corso ...")
	
		For k = Inizio To Fine
			i = i + 1 
			aColonne(i ,1 ) = GetInfoEstrazioneDL( k)
			aColonne(i ,2 ) = Fine - k
			
			For e = 3 To 22
				aColonne(i ,e ) = EstrattoDL( k,e-2)
			Next
			
			Call AzzeraPrecedenti (aColonne ,i)
			
			Call AvanzamentoElab(Inizio , Fine , k)
		Next
		
		Call GestioneOutput( aColonne , nTipoOutput)
	
	End If
	
	
End Sub
Function ScegliTipoArchivio()
	ReDim aV(1)
	aV(0) = "10 e lotto classico"
	aV(1) = "10 e lotto 5 minuti"
	ScegliTipoArchivio = ScegliOpzioneMenu(aV,0,"Scegli 10 e lotto")
End Function
Function ScegliOutput()
	 
	ReDim aV(1)
	aV(0) = "Tabella"
	aV(1) = "Excel"
	
	ScegliOutput= ScegliOpzioneMenu(aV,0, "Scegli output")
	
	
End Function

Sub AzzeraPrecedenti (aCol ,idLast)
	
	Dim k , e , ee 
	
	For k = idLast-1 To 1 Step -1
		For e = 3 To 22
			For ee = 3 To 22
				If aCol(k,ee) = aCol(idLast,e) Then
					aCol(k,ee) = ""
					Exit For
				End If
			Next
		Next
	Next
End Sub 

Sub GestioneOutput( aCol , Tipo )

	Dim e , k 
	ReDim aTitoli (22)
	Dim xlApp , xlBook , xlSheet

	Call Messaggio ("Creazione output in corso ...")
	
	
	aTitoli(1) = "Data"
	aTitoli(2) = "Ritardo"
	
	For e= 3 To 22
		aTitoli(e) ="P " & e -2
	Next
	
	If Tipo =0 Then
		' tabella
		Call InitTabella (aTitoli)
		
		For k = 1 To UBound(aCol)
			ReDim aValori (22)
			For e = 1 To 22
				aValori(e)= aCol( k ,e)
			Next
			Call AddRigaTabella (aValori)
			Call AvanzamentoElab(1 , UBound(aCol) , k)
			
		Next
		
		Call CreaTabella

	Else
		' excel
		
		Set xlApp = CreateObject("Excel.Application")
		Set xlBook =  xlApp.Workbooks.Add
		Set xlSheet = xlBook.worksheets(1)
		xlSheet.Name = "Tab Analitico"
		For k = 1 To UBound(aTitoli)
			xlSheet.cells(1,k) = aTitoli(k) 
		Next
		xlSheet.range("A1").entirerow.font.bold = True 
		For k = 1 To UBound(aCol)
			 
			
			For e = 1 To 22
				xlSheet.cells(k+1,e) = aCol( k ,e)
			Next
			Call AvanzamentoElab(1 , UBound(aCol) , k)
			
 
		Next

		
		
		xlApp.visible =True 
		
		Set xlSheet = Nothing
		Set xlBook = Nothing
		Set xlApp = Nothing 
		
		Call Scrivi ("Output in execel")		
	End If
End Sub

Grazie Luigi

Ma se puoi? me lo potresti passare tu?
Sono totalmente negato per questo tipo di cose.

Sarei interessato ad un foglio di calcolo (Excel) che come ti dicevo si aggiorni da solo (magari con il click di un bottone il quale fa aggiornare l'archivio e di conseguenza anche la pagina del tabellone analitico.

Ciao

LuigiB · 5 Novembre 2011

ciao non ce l'ho direttamente in excel ..
ti potevo aiutare solo con lo script

barattolo · 5 Novembre 2011

quote:Originally posted by LuigiB

ciao non ce l'ho direttamente in excel ..
ti potevo aiutare solo con lo script

Ok! Grazie lo stesso!

Visto che ci sono tanti utenti... speriamo che qualcuno gentile.. possa accontentarmi?

pfca · 5 Novembre 2011

Ciao Barattolo,
questo pomeriggio ti posto io un foglio Excel.

C'è vero progresso solo quando i vantaggi di una nuova tecnologia diventano per tutti.
Francesco

barattolo · 5 Novembre 2011

quote:Originally posted by pfca

Ciao Barattolo,
questo pomeriggio ti posto io un foglio Excel.

C'è vero progresso solo quando i vantaggi di una nuova tecnologia diventano per tutti.
Francesco

Grazie

pfca · 5 Novembre 2011

Ciao Barattolo,
scarica da questo link il file e fammi sapere se è ok.
http://www.megaupload.com/?d=HKZ6IB1K

C'è vero progresso solo quando i vantaggi di una nuova tecnologia diventano per tutti.
Francesco

gianlucai · 5 Novembre 2011

quote:Originally posted by LuigiB

Ciao Barattolo , questo script puo indirizzare l'output o in una tabella normale o in excel a scelta dell'utente

Codice:

Option Explicit
Sub Main
	Dim TipoArc
	Dim Inizio,Fine
	Dim k , e , i 
	Dim nEstrPrese
	Dim nTipoOutput
	
	TipoArc = ScegliTipoArchivio
	nTipoOutput = ScegliOutput
	
	
	If TipoArc >= 0 Then
		If TipoArc = 0 Then
			Call ImpostaArchivio10ELotto(1)
		Else
			Call ImpostaArchivio10ELotto(2)
		End If
		Fine = EstrazioniArchivioDL
		Inizio = Fine -100
		If Inizio <=0 Then Inizio =1
		
		nEstrPrese = (Fine+1)- Inizio
		ReDim aColonne(nEstrPrese , 22)
		Call Messaggio ("Elaborazione in corso ...")
	
		For k = Inizio To Fine
			i = i + 1 
			aColonne(i ,1 ) = GetInfoEstrazioneDL( k)
			aColonne(i ,2 ) = Fine - k
			
			For e = 3 To 22
				aColonne(i ,e ) = EstrattoDL( k,e-2)
			Next
			
			Call AzzeraPrecedenti (aColonne ,i)
			
			Call AvanzamentoElab(Inizio , Fine , k)
		Next
		
		Call GestioneOutput( aColonne , nTipoOutput)
	
	End If
	
	
End Sub
Function ScegliTipoArchivio()
	ReDim aV(1)
	aV(0) = "10 e lotto classico"
	aV(1) = "10 e lotto 5 minuti"
	ScegliTipoArchivio = ScegliOpzioneMenu(aV,0,"Scegli 10 e lotto")
End Function
Function ScegliOutput()
	 
	ReDim aV(1)
	aV(0) = "Tabella"
	aV(1) = "Excel"
	
	ScegliOutput= ScegliOpzioneMenu(aV,0, "Scegli output")
	
	
End Function

Sub AzzeraPrecedenti (aCol ,idLast)
	
	Dim k , e , ee 
	
	For k = idLast-1 To 1 Step -1
		For e = 3 To 22
			For ee = 3 To 22
				If aCol(k,ee) = aCol(idLast,e) Then
					aCol(k,ee) = ""
					Exit For
				End If
			Next
		Next
	Next
End Sub 

Sub GestioneOutput( aCol , Tipo )

	Dim e , k 
	ReDim aTitoli (22)
	Dim xlApp , xlBook , xlSheet

	Call Messaggio ("Creazione output in corso ...")
	
	
	aTitoli(1) = "Data"
	aTitoli(2) = "Ritardo"
	
	For e= 3 To 22
		aTitoli(e) ="P " & e -2
	Next
	
	If Tipo =0 Then
		' tabella
		Call InitTabella (aTitoli)
		
		For k = 1 To UBound(aCol)
			ReDim aValori (22)
			For e = 1 To 22
				aValori(e)= aCol( k ,e)
			Next
			Call AddRigaTabella (aValori)
			Call AvanzamentoElab(1 , UBound(aCol) , k)
			
		Next
		
		Call CreaTabella

	Else
		' excel
		
		Set xlApp = CreateObject("Excel.Application")
		Set xlBook =  xlApp.Workbooks.Add
		Set xlSheet = xlBook.worksheets(1)
		xlSheet.Name = "Tab Analitico"
		For k = 1 To UBound(aTitoli)
			xlSheet.cells(1,k) = aTitoli(k) 
		Next
		xlSheet.range("A1").entirerow.font.bold = True 
		For k = 1 To UBound(aCol)
			 
			
			For e = 1 To 22
				xlSheet.cells(k+1,e) = aCol( k ,e)
			Next
			Call AvanzamentoElab(1 , UBound(aCol) , k)
			
 
		Next

		
		
		xlApp.visible =True 
		
		Set xlSheet = Nothing
		Set xlBook = Nothing
		Set xlApp = Nothing 
		
		Call Scrivi ("Output in execel")		
	End If
End Sub

ciao,
Premetto che io sono ignorante in materia,
ma il programmino che hai scritto sopra dove devo scriverlo per farlo funzionare?
Grazie in anticipo per la tua risposta e pazienza

igl

barattolo · 5 Novembre 2011

quote:Originally posted by pfca

Ciao Barattolo,
scarica da questo link il file e fammi sapere se è ok.
http://www.megaupload.com/?d=HKZ6IB1K

C'è vero progresso solo quando i vantaggi di una nuova tecnologia diventano per tutti.
Francesco

Grazie infinite pfca

E' pure migliore di come lo avevo pensato!!!!!

Se non è un fastidio lo potresti fare tale e quale, ma per il 10eLotto ogni 5minuti?

pfca · 5 Novembre 2011

Ciao barattolo,
il 10 e lotto ogni 5 minuti, per la mole di dati penso sia
difficile da seguire con un foglio Excel.
Ci proverò ma non ti assicuro niente.

C'è vero progresso solo quando i vantaggi di una nuova tecnologia diventano per tutti.
Francesco

barattolo · 5 Novembre 2011

quote:Originally posted by pfca

Ciao barattolo,
il 10 e lotto ogni 5 minuti, per la mole di dati penso sia
difficile da seguire con un foglio Excel.
Ci proverò ma non ti assicuro niente.

C'è vero progresso solo quando i vantaggi di una nuova tecnologia diventano per tutti.
Francesco

Ok!
Se ci riesci bene... se non va bene lo stesso

Grazie per la grandissima disponibilità e l'impegno... peccato che non ci possiamo conoscere di persona... se no oggi... tra un foglio e una giocata... potevamo prenderci un bel caffè

pfca · 5 Novembre 2011

Ciao Barattolo,
ho la difficoltà a trovare un archivio almeno di un paio di giorni,
altrimenti bisogna fare l'aggiornamento ogni giorno e non credo sia
la cosa migliore. Tu conosci qualche sito in cui andare a rilevare
le estrazioni?

C'è vero progresso solo quando i vantaggi di una nuova tecnologia diventano per tutti.
Francesco

barattolo · 6 Novembre 2011

quote:Originally posted by pfca

Ciao Barattolo,
ho la difficoltà a trovare un archivio almeno di un paio di giorni,
altrimenti bisogna fare l'aggiornamento ogni giorno e non credo sia
la cosa migliore. Tu conosci qualche sito in cui andare a rilevare
le estrazioni?

C'è vero progresso solo quando i vantaggi di una nuova tecnologia diventano per tutti.
Francesco

Nooo... non ne conosco!
Mi dispiace!!!
Magari ci risponde qualcuno che lo conosce?

Roberto57 · 6 Novembre 2011

quote:Originally posted by pfca

Ciao Barattolo,
ho la difficoltà a trovare un archivio almeno di un paio di giorni,
altrimenti bisogna fare l'aggiornamento ogni giorno e non credo sia
la cosa migliore. Tu conosci qualche sito in cui andare a rilevare
le estrazioni?

C'è vero progresso solo quando i vantaggi di una nuova tecnologia diventano per tutti.
Francesco

ciao io quando voglio sapere i nr del giorno prima vado quì: http://www.lottologia.com/?area=10elotto5minuti&action=Archivio

_______________

Roberto57

pfca · 6 Novembre 2011

Grazie Roberto, vedrò cosa si può fare.

C'è vero progresso solo quando i vantaggi di una nuova tecnologia diventano per tutti.
Francesco

barattolo · 6 Novembre 2011

quote:Originally posted by Roberto57

quote:Originally posted by pfca

Ciao Barattolo,
ho la difficoltà a trovare un archivio almeno di un paio di giorni,
altrimenti bisogna fare l'aggiornamento ogni giorno e non credo sia
la cosa migliore. Tu conosci qualche sito in cui andare a rilevare
le estrazioni?

C'è vero progresso solo quando i vantaggi di una nuova tecnologia diventano per tutti.
Francesco

Clicca per espandere...

ciao io quando voglio sapere i nr del giorno prima vado quì: http://www.lottologia.com/?area=10elotto5minuti&action=Archivio

_______________

Roberto57

Grazie

houdini · 6 Novembre 2011

HO SCARICATO IL PROGRAMMA DI PFCA MA IL TABELLONE ANALITICO NON RISULTA COME QUELLO ATTUALE (ALL'ESTRAZIONE DEL 5.11.11
E POSSIBILE UNA VERIFICA.

quote:Originally posted by pfca

Ciao Barattolo,
questo pomeriggio ti posto io un foglio Excel.

C'è vero progresso solo quando i vantaggi di una nuova tecnologia diventano per tutti.
Francesco

loris

pfca · 6 Novembre 2011

Ciao Houdini,
ti posto le due immagini una del file Excel, l'altra da Spaziometria

A prima vista sembrano uguali.

C'è vero progresso solo quando i vantaggi di una nuova tecnologia diventano per tutti.
Francesco

houdini · 6 Novembre 2011

GRAZIE, RISOLTO L'INGHIPPO DOVEVO CLICCARE IN ALTO A SN FINO ALL'ULTIMA ESTRAZIONE.

quote:Originally posted by pfca

Ciao Houdini,
ti posto le due immagini una del file Excel, l'altra da Spaziometria

A prima vista sembrano uguali.

C'è vero progresso solo quando i vantaggi di una nuova tecnologia diventano per tutti.
Francesco

loris

Tabellone analitico 10eLotto

Senior Member

LuigiB

Guest

Senior Member

LuigiB

Guest

Senior Member

Advanced Member >GOLD<

Senior Member

Advanced Member >GOLD<

Advanced Member >GOLD<

Senior Member

Advanced Member >GOLD<

Senior Member

Advanced Member >GOLD<

Senior Member

Advanced Premium Member

Advanced Member >GOLD<

Senior Member

Banned

Advanced Member >GOLD<

Banned