Novità

Un Aiuto da Mike (Tabelle)

fillotto

Advanced Member >PLATINUM<
Buona sera , ho fatto una tabella dove rilevo la somma estratti Under/Over 227,5 per ciascuna ruota per tot estrazioni ,fin qui ci sono riuscito ma non riesco a gestire l'output della tabella nel senso che la tabella mi appare nell'output dopo una serie di spazi pari all'estrazioni richieste , come ovviare a questo?
Ho fatto in modo che se a BA la somma estratti sia sotto 227,5 mi metta 1 se superiore mi metta 2 ,se a CA la somma estratti sia sotto 227,5 mi metta 3 se superiore mi metta 4 e così via fino a VE (under 19 over 20) quindi ogni estrazione ottengo 10
numeri è escluso che escano 1 e 2 oppure 3 e 4 del resto facendo girare il sottonotato abbozzo di script ci si rende conto di come ho impostato il preoblema.
Cosa voglio ottenere ? vorrei una tabella che mi gestisca tutte le 960 terzine possibili (ogni estrazione escono 120 terzine sulle 960 possibili un rapporto di uno a otto) in questo modo:
Combinazione---- Ritardo----Freq----R S
2--3--5 ---- 36 ---- 6 ---- 36
3--7--17 ---- 34 ---- 3 ---- 39
ecc ecc
ecco lo script:
Codice:
Sub Main()	
er = CInt(InputBox("Quante estrazioni a ritroso",,10))
fin = EstrazioneFin
	Ini = fin - er
	Scrivi : ColoreTesto 2: Scrivi String(54," ") & "TABELLA UNDER/OVER 227,5 della Somma Estratti ",0
		ReDim atitoli(11)
	atitoli(1) = " DATA ESTRAZIONE "
	atitoli(2) = " BA (1-2) "
	atitoli(3) = " CA (3-4)"
	atitoli(4) = " FI (5-6)"
	atitoli(5) = " GE (7-8)"
	atitoli(6) = " MI (9-10)"
	atitoli(7) = " NA (11-12) "
	atitoli(8) = " PA (13-14) "
	atitoli(9) = " RO (15-16) "
	atitoli(10) = " TO (17-18)"
	atitoli(11) = " VE (19-20) "
	
	Call InitTabella(atitoli,1,,3,5)
	For es = Ini + 1 To Fin
		Call AvanzamentoElab(Ini,fin,es)
			
			eb = SommaEstratti(es,1)
			ec = SommaEstratti(es,2)
			ef = SommaEstratti(es,3)
			eg = SommaEstratti(es,4)
			em = SommaEstratti(es,5)
			en = SommaEstratti(es,6)
			ep = SommaEstratti(es,7)
			er = SommaEstratti(es,8)
			et = SommaEstratti(es,9)
			ev = SommaEstratti(es,10)			

	Scrivi : ColoreTesto 0: Scrivi,1
							
			ReDim avalori(11)
			avalori(1) = DataEstrazione(es)
			avalori(2) = eb
			If eb < 228 Then
				avalori(2) = 1
			Else
			 avalori(2) = 2				
			End If
			avalori(3) = ec
			If ec < 228 Then
				avalori(3) = 3
			Else
			 avalori(3) = 4				
			End If
			avalori(4) = ef
			If ef < 228 Then
				avalori(4) = 5
			Else
			 avalori(4) = 6				
			End If
			avalori(5) = eg
			If eg < 228 Then
				avalori(5) = 7
			Else
			 avalori(5) = 8				
			End If
			avalori(6) = em
			If em < 228 Then
				avalori(6) = 9
			Else
			 avalori(6) = 10				
			End If
			avalori(7) = en
			If en < 228 Then
				avalori(7) = 11
			Else
			 avalori(7) = 12
				
			End If
				avalori(8) = ep
			If ep < 228 Then
				avalori(8) = 13
			Else
			 avalori(8) = 14				
			End If
				avalori(9) = er
				If er < 228 Then
				avalori(9) = 15
			Else
			 avalori(9) = 16				
			End If				
				avalori(10) = et
				If et < 228 Then
				avalori(10) = 17
			Else
			 avalori(10) = 18				
			End If	
		
				avalori(11) = ev
			If ev < 228 Then
				avalori(11) = 19
			Else
			 avalori(11) = 20				
			End If

			Call AddRigaTabella(avalori,,,3)
			Next
	
	Call SetTableWidth("80%")
	Call CreaTabella()

End Sub
 
Ultima modifica:
Ciao Fill, per gli spazi c'era una scritta con scrivi inutile e per questo scriveva tanti spazi quante ne faceva il ciclo for-next.

Per il resto buon lavoro vediamo dove vai a parare.

Codice:
Sub Main()
	er = CInt(InputBox("Quante estrazioni a ritroso",,10))
	fin = EstrazioneFin
	Ini = fin - er
	Scrivi : ColoreTesto 2: Scrivi String(54," ") & "TABELLA UNDER/OVER 227,5 della Somma Estratti ",0
	Scrivi ' messo io per staccare il titolo
	ReDim atitoli(11)
	atitoli(1) = " DATA ESTRAZIONE "
	atitoli(2) = " BA (1-2) "
	atitoli(3) = " CA (3-4)"
	atitoli(4) = " FI (5-6)"
	atitoli(5) = " GE (7-8)"
	atitoli(6) = " MI (9-10)"
	atitoli(7) = " NA (11-12) "
	atitoli(8) = " PA (13-14) "
	atitoli(9) = " RO (15-16) "
	atitoli(10) = " TO (17-18)"
	atitoli(11) = " VE (19-20) "
	Call InitTabella(atitoli,1,,3,5)
	For es = Ini + 1 To Fin
		Call AvanzamentoElab(Ini,fin,es)
		eb = SommaEstratti(es,1)
		ec = SommaEstratti(es,2)
		ef = SommaEstratti(es,3)
		eg = SommaEstratti(es,4)
		em = SommaEstratti(es,5)
		en = SommaEstratti(es,6)
		ep = SommaEstratti(es,7)
		er = SommaEstratti(es,8)
		et = SommaEstratti(es,9)
		ev = SommaEstratti(es,10)
		'Scrivi : ColoreTesto 0: Scrivi,1
		ReDim avalori(11)
		avalori(1) = DataEstrazione(es)
		avalori(2) = eb
		If eb < 228 Then
			avalori(2) = 1
		Else
			avalori(2) = 2
		End If
		avalori(3) = ec
		If ec < 228 Then
			avalori(3) = 3
		Else
			avalori(3) = 4
		End If
		avalori(4) = ef
		If ef < 228 Then
			avalori(4) = 5
		Else
			avalori(4) = 6
		End If
		avalori(5) = eg
		If eg < 228 Then
			avalori(5) = 7
		Else
			avalori(5) = 8
		End If
		avalori(6) = em
		If em < 228 Then
			avalori(6) = 9
		Else
			avalori(6) = 10
		End If
		avalori(7) = en
		If en < 228 Then
			avalori(7) = 11
		Else
			avalori(7) = 12
		End If
		avalori(8) = ep
		If ep < 228 Then
			avalori(8) = 13
		Else
			avalori(8) = 14
		End If
		avalori(9) = er
		If er < 228 Then
			avalori(9) = 15
		Else
			avalori(9) = 16
		End If
		avalori(10) = et
		If et < 228 Then
			avalori(10) = 17
		Else
			avalori(10) = 18
		End If
		avalori(11) = ev
		If eb < 228 Then
			avalori(11) = 19
		Else
			avalori(11) = 20
		End If
		Call AddRigaTabella(avalori,,,3)
	Next
	Call SetTableWidth("80%")
	Call CreaTabella()
End Sub
 
Ciao Fill, per gli spazi c'era una scritta con scrivi inutile e per questo scriveva tanti spazi quante ne faceva il ciclo for-next.

Per il resto buon lavoro vediamo dove vai a parare.

Grazie Mike , ho imparato qualche cosa, del resto mi davano un fastidio quelle righe bianche:mad: ma la questione rimane trattare i numeri del lotto come un pronostico di una partita solo che non c'è l'x in excel lo gestisco ma è molto ferraginoso con uno script sarebbe l'ideale
 
Ultima modifica:
Ciao Fill, guarda che puoi esportare tutto il lavoro fatto con lo script in tabella anche in Excel. semplicemente anziché con il codice
CreaTabella
con CreaTabellaOrdinabile
e questo ti consente di trattarlo come uno schema Excel e addirittura esportarlo.

Prova che il tutto è abbastanza gestibile.

Ciao
 
Ultima modifica:
Ciao Fill, guarda che puoi esportare tutto il lavoro fatto con lo script in tabella anche in Excel. semplicemente anziché con il codice
CreaTabella
con CreaTabellaOrdinabile
e questo ti consente di trattarlo come uno schema Excel e addirittura esportarlo.

Prova che il tutto è abbastanza gestibile.

Ciao
Si, infatti così ho fatto, ma per adesso mi viene un "mostruoso" foglione per controllare tutte le 960 colonne ovvero la situazione delle 960 combinazioni che invece con una tabella in script sarebbe di immediata comprensione adesso ho escogitato questo foglio ,forse potrei mettere le combinazioni (960) in verticale ma in allora dovrei trovare una formula (in una Colonna)per il ritardo , un'altra formula per trovare le frequenze un altra per il ritardo storico.... ecco perchè avevo chiesto aiuto, per adesso buona giornata.
http://forum.lottoced.com/attachment.php?attachmentid=14591&stc=1&d=1422687829
 

Allegati

  • UndOv.jpg
    UndOv.jpg
    8,1 KB · Visite: 1

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 08 luglio 2025
    Bari
    29
    56
    53
    47
    86
    Cagliari
    31
    25
    53
    71
    76
    Firenze
    24
    12
    70
    90
    16
    Genova
    84
    79
    48
    81
    51
    Milano
    54
    73
    46
    53
    64
    Napoli
    64
    48
    73
    81
    47
    Palermo
    05
    60
    43
    63
    33
    Roma
    15
    82
    55
    13
    68
    Torino
    83
    13
    39
    53
    74
    Venezia
    52
    66
    24
    08
    41
    Nazionale
    76
    14
    90
    09
    12
    Estrazione Simbolotto
    Nazionale
    33
    27
    20
    14
    11
Indietro
Alto