Novità

Tabellone analitico 10eLotto

barattolo

barattolo

Senior Member
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
 
L

LuigiB

Guest
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

barattolo

Senior Member
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
Clicca per espandere...

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
 
L

LuigiB

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

barattolo

Senior Member
quote:Originally posted by LuigiB

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

Ok! Grazie lo stesso!

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

pfca

Advanced Member >GOLD<
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
 
G

gianlucai

Advanced Member >GOLD<
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
Clicca per espandere...

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

barattolo

Senior Member
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
Clicca per espandere...

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

pfca

Advanced Member >GOLD<
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

barattolo

Senior Member
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
Clicca per espandere...
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

pfca

Advanced Member >GOLD<
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

barattolo

Senior Member
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...

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

Roberto57

Advanced Premium Member
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
 
pfca

pfca

Advanced Member >GOLD<
Grazie Roberto, vedrò cosa si può fare.

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

barattolo

Senior Member
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
Clicca per espandere...

Grazie :)
 
H

houdini

Banned
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
Clicca per espandere...

loris
 
pfca

pfca

Advanced Member >GOLD<
Ciao Houdini,
ti posto le due immagini una del file Excel, l'altra da Spaziometria
t01z.jpg

t02p.jpg

A prima vista sembrano uguali.


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

houdini

Banned
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
t01z.jpg

t02p.jpg

A prima vista sembrano uguali.


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

loris
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 27 aprile 2024
    Bari
    02
    74
    34
    72
    78
    Cagliari
    60
    62
    43
    58
    38
    Firenze
    88
    70
    85
    38
    50
    Genova
    18
    61
    70
    08
    80
    Milano
    85
    81
    16
    03
    26
    Napoli
    34
    31
    01
    41
    51
    Palermo
    52
    59
    54
    35
    05
    Roma
    34
    83
    23
    67
    61
    Torino
    86
    59
    61
    62
    48
    Venezia
    69
    50
    40
    05
    79
    Nazionale
    31
    30
    85
    45
    67
    Estrazione Simbolotto
    Genova
    37
    02
    21
    34
    13
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Alto