script tabella

[bergie]

Buonasera a tutti
chiedo gentilmente se è possibile avere uno script fatto in tabella
11.24.07.20.03
04.12.25.08.16
17.05.13.21.09
10.18.01.14.22
23.06.19.02.15

che rilevi i numeri usciti dalla 1 del mese e li segnali calcolati su ogni ruota.
tipo Napoli dalla 1 del mese ad oggi
11.24.07.20.03
04.12.25.08.16
17.05.13.21.09
10.18.01.14.22
23.06.19.02.15

 

[bergie]

buongiorno a tutti.
nessuno può aiutarmi, gliene sarei veramente grato.

 

[Joe91]

Ciao Bergie.

Lo script che ti propongo richiede per comodità e semplicità d'uso e di imput, che

i 25 numeri siano inseriti in lunghetta e separati dal punto "."

Cordiali saluti

Option Explicit
Sub Main
	Dim Ini,Fin,Es,M,N,Lu,Nu(1),Ru(1),X,SF,GR
	Ru(1) = ScegliRuota
	Lu = "11.24.07.20.03.04.12.25.08.16.17.05.13.21.09.10.18.01.14.22.23.06.19.02.15"
	'Lu = InputBox ("Lunghetta","INSERERISCI 25 NUMERI",Lu)
	Fin = EstrazioneFin : M = Mid(DataEstrazione(Fin),4,2)
	For Es = Fin - 20 To Fin
		If M = Mid(DataEstrazione(Es),4,2) Then Ini = Es : Exit For
	Next
	ColoreTesto 1
	Scrivi SiglaRuota(Ru(1)) & "_ " & DataEstrazione(Fin),True : Scrivi 
	ColoreTesto 0
	N = Split("0." & Lu,".")
	For X = 1 To UBound(N)
		Nu(1) = N(X) : SF = SerieFreq(Ini,Fin,Nu,Ru,1)
		If SF > 0 Then ColoreTesto 2 : GR = True
		Scrivi Format2(Nu(1)),GR,False : ColoreTesto 0 : GR = False
		If X Mod 5 <> 0 Then Scrivi ".",False,False Else Scrivi ""
	Next
End Sub

 

[bergie]

grazie Joe91, perfetto
sei sempre eccezionale

 

[Joe91]

Ciao Bergie. Grazie.

In questa nuova versione ho cercato di sfruttare megliole dimensioni dello schermo.

Risulta un pò più complicato ... ma riesce ad infilarci tutto evitando anche di dover scrollare l'output ...

per far posto alle ruote che non sarebbero visualizzate, per mancanza di spazio in verticale.

Option Explicit
Sub Main
Dim Ini,Fin,Es,M,N,R,Lu,Nu(1),Ru(1),X,Y,Z,SF,GR
Lu = "11.24.07.20.03.04.12.25.08.16.17.05.13.21.09.10.18.01.14.22.23.06.19.02.15"
Fin = EstrazioneFin : M = Mid(DataEstrazione(Fin),4,2)
For Es = Fin - 20 To Fin
If M = Mid(DataEstrazione(Es),4,2) Then Ini = Es : Exit For
Next
Scrivi "| ",True,False
For R = 1 To 12 : If R = 11 Then R = 12
ColoreTesto 1 : Scrivi Space(3) & FormatSpace(UCase(NomeRuota(R)),12),True,False
ColoreTesto 0 : Scrivi "| ",True,False
Next : Scrivi
N = Split("0." & Lu,".")
For X = 0 To 4 'righe
Scrivi "| ",True,False
For R = 1 To 12 : If R = 11 Then R = 12
Ru(1) = R
For Y = 1 To 5 'posizioni della ruota
Z = 5 * X + Y 'posizioni nella tabella
Nu(1) = N(Z) : SF = SerieFreq(Ini,Fin,Nu,Ru,1)
If SF > 0 Then ColoreTesto 2 : GR = True Else ColoreTesto 4
Scrivi Format2(Nu(1)),GR,False : ColoreTesto 0 : GR = False
If Z Mod 5  0 Then Scrivi ".",False,False Else Scrivi " ",False,False
Next
Scrivi "| ",True,False
Next
Scrivi
Next
End Sub

 

[bergie]

ciao Joe91, sei semplicemente fantastico
grazie, grazie, grazie