Piccolo aiutino su script, Mike o altri scripter se date un occhio...Grazie!

[LuigiB]

ciao , si è possibile sia con l'istruzione scrivi che consente di impostare il colore sia mettendo i numeri in una tabella dove puoi colorare le singole celle.
Riguard oa lcome fare sei tu che devi pensare ad un sistema ...io vi dico a cosa servono le istruzioni e cosa fanno , ma a come congegnarle ci deve pensare lo scripter.

 

[Moro_80]

Anche questa non sarà una passeggiata...lo so già!

Sapevo dell'istruzione Scrivi ed anche del SetColoreCella per le tabelle...è proprio il come fare il mio quesito...non lo voglio fatto, ma solo qualche imput per capirne il come..

P.S Magari fossi uno scripter...

 

[LuigiB]

bhe aspirante scripter .. a maggior ragione a te il compito di pensare come fare .. l'nput è semplicissimo .. prova a pensare a come lo faresti a mano e poi trasforma tutto in linguaggio.
ciao

 

[Moro_80]

Ciao Mike,
mi rivolgo a Te per una dritta su questa cosa che volevo già fare un po' di tempo fa...Luigi mi ha dato alcune dritte ma come da Sua "scuola" un po' criptiche.

Ho visto che hai fatto un qualcosa di simile per Adispo2000 su un'altro post dove dava in input un suo file txt...

Per spiegarmi meglio ripeto cosa volevo ottenere:

Nel dettaglio vorrei fare in modo di evidenziare non solo i numeri della formazione in esame, ma anche se in caso sono usciti solo 2 numeri o tre etc etc (in base allo sviluppo combinazioni che uno fa).

Mi spiego meglio con delle immagini:

Lo script attuale, da in output questo:


In questo caso ho scelto di sviluppare delle formazioni di 3 numeri ed in rosso mi evidenzia i numeri usciti.

Domanda:

E' possibile fare in modo che mi evidenzi anche in un'altro colore se sono usciti solo 2 numeri??

Se avessi scelto di analizzare formazioni di 4 numeri, vorrei : in rosso 4 - in altro colore se solo 3 - in altro ancora se 2 e così via....

Secondo Te come è possibile farlo?


Grazie in anticipo!


Carmine

 

[Mike58]

Ciao Moro(Carmine), leggendo il tuo quesito di primo impatto direi proprio di si.
Rivedendo lo script tuo di riferimento ti posso consigliare di fare un ciclo for per le classi esempio da 1 a 4 ed in base alla classe di sviluppo poi vedere di mettere il colore di evidenza con If-Then. e ColoreTesto.

Certo che con una tabella e un verifica esito è sicuramente possibile.

La mia risposta è dunque affermativa. provaci è se hai bisogno vedrò di trovare il tempo per aiutarti, ma so sai cavartela benissimo da solo.

Un saluto

 

[Moro_80]

Ciao Mike,
allora ho capito bene quello che intendi...lo script è un pelino diverso da quella volta, sotto lo trovi come l'ho io in questo momento.

Option Explicit
Sub Main
	Dim data,ora,ninizio,nfine,numeri,nNumEstr,num,nume,numestr,numestrazioni,nColonneTot,dal,al,n,l,l1,l2,o,r,Classe,Cl,aCol,z,x,ATQC
	Dim avoci(9)
	ReDim aNumeri(1260)
	avoci(1) = "AMBI"
	avoci(2) = "TERNI"
	avoci(3) = "QUATERNE"
	avoci(4) = "CINQUINE"
	avoci(5) = "SESTINE"
	avoci(6) = "SETTINE"
	avoci(7) = "OTTINE"
	avoci(8) = "NOVINE"
	avoci(9) = "DECINE"
	Dim aTitoli(5),ess,esito,colpi,estratti,id
	Call AggiornaArchivioDL
	Call ImpostaArchivio10ELotto(2)
	z = GetInfoEstrazioneDL(EstrazioniArchivioDL)
	x =(Mid(z,11,3))
	numestrazioni = InputBox("QUANTE ESTRAZIONI VUOI VERIFICARE ?" & vbCrLf & " " & vbCrLf & "IN AUTOMATICO VIENE INSERITO IL NUMERO" & vbCrLf & " " & vbCrLf & "DI QUELLE ESTRATTE OGGI FINO AD ORA","NUMERO USCITE OGGI",x)
	nfine = EstrazioniArchivioDL
	ninizio = nfine - numestrazioni + 1
	For l1 = ninizio To nfine
	l2 = l1
	Next
	Call ScegliNumeri(aNumeri)
	ATQC = ScegliOpzioneMenu(avoci,1,"COSA VUOI SVILUPPARE ?")
	Select Case ATQC
	Case 0
	MsgBox "NON HAI SCELTO COSA SVILUPPARE !"
	Case 1
	Cl = 2
	Case 2
	Cl = 3
	Case 3
	Cl = 4
	Case 4
	Cl = 5
	Case 5
	Cl = 6
	Case 6
	Cl = 7
	Case 7
	Cl = 8
	Case 8
	Cl = 9
	Case 9
	Cl = 10
	End Select
	Classe = Cl
	nColonneTot = InitSviluppoIntegrale(aNumeri,Classe)
	For l = 1 To nColonneTot
		Call GetCombSviluppo(aCol)
		n = SerieFreqDL(ninizio,nfine,aCol,Classe)
		r = SerieRitardoDL(ninizio,nfine,aCol,Classe)
		ReDim aValori(5)
		aValori(1) = StringaNumeri(aCol)
		aValori(2) = Format2(n)
		aValori(3) = Format2(r)
		If n = 0 Then
		Scrivi aValori(1) & " | " & "FREQUENZA (" & n & ")" & " | " & "RITARDO (" & r & ")" & " ---> FORMAZIONE NON ANCORA USCITA",True,,,vbRed
		Else
		Scrivi aValori(1) & " | " & "FREQUENZA (" & n & ")" & " | " & "RITARDO (" & r & ")",True,,,vbBlue
		End If
		For ess = ninizio To nfine
			id = GetInfoEstrazioneDL(ess)
			If VerificaEsitoDL(aCol,ess,Cl,1,esito,colpi,estratti,id) = True Then
			numestr = IndiceAnnualeDL(ess)
			data = Mid(GetInfoEstrazioneDL(id),15,11)
			ora = GetOraEstrazione(numestr)
			Call ScriviEdEvidenzia(id,aCol)
			Scrivi data & " " & ora & " " & numestr & " ",True,,,vbBlue
			End If
		Next
		Scrivi String(82,"-")
	Next
	Call Scrivi
	Call TestoInBandaPassante("Script Realizzato Da (Moro_80) Carmine",1,vbYellow,vbBlack)
End Sub
Function GetOraEstrazione(numestr)
Dim Ore
Dim TotMinuti
Dim MinutiRimanenti
TotMinuti =(numestr * 5)
Ore = TotMinuti / 60
MinutiRimanenti = TotMinuti Mod 60
GetOraEstrazione = FormattaStringa(Int(Ore),"00") & ":" & FormattaStringa(MinutiRimanenti,"00")
End Function
Sub ScriviEdEvidenzia(idEstr,aNumDaEvid)
Dim p
Dim xx
Dim n
ReDim aN(90)
For xx = 1 To UBound(aNumDaEvid)
aN(aNumDaEvid(xx)) = True
Next
For p = 1 To 20
n = EstrattoDL(idEstr,p)
If aN(n) Then
Call Scrivi(Format2(n) & " ",1,0,,vbRed)
Else
Call Scrivi(Format2(n) & " ",1,0,,vbBlack)
End If
Next
End Sub

E' fattibile comunque quello che proponi Tu?

Saluti

 

[Mike58]

Ciao Moro,scusa il ritardo ma ho avuto poco tempo, secondo me è possibile ma bisogna rivoltare lo script e devi provare nella sub EvidenziaNumeri con qualche ciclo for.
Per il momento sono impegnato anche in altro e non riesco a concentrarmi per questa soluzione.

Se in ritagli di tempo trovo soluzioni non mancherò.

Ciao

 

[adispo2000]

Ciao moro, come va'?

 

[Moro_80]

Ciao adispo2000, grazie va tutto bene, a parte qualche dubbio sullo script come da questa discussione.

Un saluto.