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 18 maggio 2024
    Bari
    77
    62
    67
    60
    04
    Cagliari
    89
    01
    35
    54
    38
    Firenze
    84
    58
    25
    64
    57
    Genova
    53
    25
    66
    59
    23
    Milano
    22
    75
    48
    16
    77
    Napoli
    81
    41
    42
    67
    39
    Palermo
    19
    63
    57
    43
    05
    Roma
    04
    35
    50
    33
    23
    Torino
    56
    20
    46
    14
    88
    Venezia
    78
    81
    42
    74
    36
    Nazionale
    42
    83
    59
    86
    34
    Estrazione Simbolotto
    Milano
    41
    29
    01
    27
    30
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Alto