Aiuto per stampa

genios · 16 Agosto 2016

Grazie Joe91 ma cercavo la soluzione con if then .Ora occorre miglioralo con un ciclo for next sulle posizioni.

Codice:

Option Explicit


Sub Main
Dim Ini,Fin,es,RuotadiRicerca,NumeroCercato


NumeroCercato=10

Ini = EstrazioneFin - 100
Fin = EstrazioneFin
RuotadiRicerca=1 

For es = Ini To Fin 

  If NumeroCercato = Estratto (es,RuotadiRicerca,1) Or NumeroCercato = Estratto (es,RuotadiRicerca,2)Or NumeroCercato = Estratto (es,RuotadiRicerca,3)_
     Or NumeroCercato = Estratto (es,RuotadiRicerca,4)Or NumeroCercato = Estratto (es,RuotadiRicerca,5)Then
        Scrivi es &" "& DataEstrazione (es) &" "& StringaEstratti(es,RuotadiRicerca)&"  "&NumeroCercato 
           Else Scrivi es &" "& DataEstrazione (es) &" "& StringaEstratti(es,RuotadiRicerca)
  End If 
Next

End Sub

Buona giornata

Joe91 · 16 Agosto 2016

genios;n1996998 ha scritto:
Grazie Joe91 ma cercavo la soluzione con if then .Ora occorre miglioralo con un ciclo for next sulle posizioni.

Buona giornata

Ciao Eugenio ...

... non hai letto bene il messaggio #20.

C'e scritto:

.... ti propongo prima una soluzione più comoda ...

If P > 0 then 'prima dell'istruzione scrivi

End If 'subito dopo l'istruzione scrivi che invia l'output a video.

Seguendo le istruzioni diventerebbe:

Codice:

Option Explicit
Sub Main
Dim Ini,Fin,Es,RuotadiRicerca,NumeroCercato,P
Ini = EstrazioneFin - 100
Fin = EstrazioneFin
RuotadiRicerca = 1
NumeroCercato = 10
For Es = Ini To Fin
P = Posizione(Es,RuotadiRicerca,NumeroCercato)
'Scrivi Es & " " & DataEstrazione(Es)& " " & StringaEstratti(Es,RuotadiRicerca)
If P > 0 Then
Scrivi GetInfoEstrazione(Es) & " " & StringaEstratti(Es,RuotadiRicerca) & "  " & P
End If
Next
End Sub

genios · 22 Agosto 2016

Joe91 mi sono permesso di modificare il tuo script aggiungendo un istruzione else perché in uscita vorrei ottenere la stampa del numero 10 in una certa parte posizione dello schermo . Ti faccio un esempio :

Questa è l' uscita attuale

[09102] [157] 31.12.2015 33.78.06.89.74

[09103] [ 1 ] 02.01.2016 57.53.33.10.61 10

Quella che vorrei ottenere e la seguente : Anche perché dovrei aggiungere gli altri numeri della decina .

[09102] [157] 31.12.2015 33.78.06.89.74 .. .. .. .. .. .. .. .. .. ..

[09103] [ 1 ] 02.01.2016 57.53.33.10.61 .. .. .. .. .. .. .. .. .. 10

Codice:

Option Explicit[
Sub Main
Dim Ini,Fin,Es,RuotadiRicerca,NumeroCercato,P
Ini = EstrazioneFin - 100
Fin = EstrazioneFin
RuotadiRicerca = 1
NumeroCercato = 10
For Es = Ini To Fin
P = Posizione(Es,RuotadiRicerca,NumeroCercato)
'Scrivi Es & " " & DataEstrazione(Es)& " " & StringaEstratti(Es,RuotadiRicerca)
If P > 0 Then
Scrivi GetInfoEstrazione(Es) & " " & StringaEstratti(Es,RuotadiRicerca) & " " & NumeroCercato
Else
Scrivi GetInfoEstrazione(Es) & " " & StringaEstratti(Es,RuotadiRicerca)


End If
Next
End Sub

Saluti Eugenio

Joe91 · 22 Agosto 2016

Ciao Eugenio.

Stando a quello che scrivi nel tuo ultimo messaggio,

la soluzione più comoda per arrivarci sarebbe quella tracciata al messaggio #11.

Però ... scusa se insito nuovamente sottolineando a te ...

se si dicesse cosa si vuole e possibilmente si corredasse con un esempio,

si eviterebbero mille possibili proposte di soluzioni "mai giuste".

Quindi forse intuendo cosa vuoi fare ... sarebbero forse 10 if ... nidificati,

come fossero una istruzione di excel.

Chiaro che potrebbe essere una soluzione in tal senso.

Ma se è realizzabile, in script,

è molto più comodo ragionare diversamente da :

if 1 then ...
Else
If 2 then ...
Else
If 3 then ...
Else
ecc. fino a 10

End If
End If
End If
ecc. fino a 10

anche perchè come scritto sembrerebbe che l' Else ...

non ti porti agli altri numeri della decina

ma allo scrivere la cinquina-sincrona in cui non c'è il 10.

Sempre che io abbia capito bene cosa vuoi fare.

Cordiali saluti

Joe91 · 24 Agosto 2016

Ciao Eugenio.

Quest'altra soluzione invece sfrutta il consiglio dato da Luigi.

Prepara una stringa eppoi all'occorrenza ci intarsia ... i numeri trovati caduti.

Codice:

Option Explicit
Sub Main
	Dim Es,E,R,P
	Dim sRiga
	For Es = EstrazioneFin - 50 To EstrazioneFin
		For R = 1 To 1'2 : If R = 11 Then R = 12
			Scrivi GetInfoEstrazione(Es) & " " & StringaEstratti(Es,R) & "  ",False,False
			Scrivi FormatSpace(NomeRuota(R),11),True,False
			sRiga = "" 
			For P = 1 To 10
				sRiga = sRiga & String(2,"-") & Space(1)
			Next
			For P = 1 To 5
				E = Format2(Estratto(Es,R,P))
				If E <= 10 Then
					Call MidX(sRiga,E,(3*E)-2)
				End If
			Next
			Scrivi(sRiga)
		Next
		Scrivi
	Next
End Sub

Cordiali saluti

genios · 27 Agosto 2016

Perfetto Joe 91 . Quello che volevo . SI potrebbe colorare l' uscita divisa in ciclo ad esempio di 18 estrazioni .

[09181] [ 79] 02.07.2016 73.38.75.39.52 Bari -- -- -- -- -- -- -- -- -- --
[09182] [ 80] 05.07.2016 80.54.08.43.60 Bari -- -- -- -- -- -- -- 08 -- --
[09183] [ 81] 07.07.2016 09.87.18.26.88 Bari -- -- -- -- -- -- -- -- 09 --
[09184] [ 82] 09.07.2016 61.58.44.69.80 Bari -- -- -- -- -- -- -- -- -- --
[09185] [ 83] 12.07.2016 69.50.73.11.89 Bari -- -- -- -- -- -- -- -- -- --
[09186] [ 84] 14.07.2016 06.77.54.87.35 Bari -- -- -- -- -- 06 -- -- -- --
[09187] [ 85] 16.07.2016 56.89.09.54.47 Bari -- -- -- -- -- -- -- -- 09 --
[09188] [ 86] 19.07.2016 20.66.76.48.53 Bari -- -- -- -- -- -- -- -- -- --
[09189] [ 87] 21.07.2016 77.02.89.08.76 Bari -- 02 -- -- -- -- -- 08 -- --
[09190] [ 88] 23.07.2016 25.59.15.16.05 Bari -- -- -- -- 05 -- -- -- -- --
[09191] [ 89] 26.07.2016 86.51.02.62.71 Bari -- 02 -- -- -- -- -- -- -- --
[09192] [ 90] 28.07.2016 83.81.72.77.59 Bari -- -- -- -- -- -- -- -- -- --
[09193] [ 91] 30.07.2016 66.88.12.11.17 Bari -- -- -- -- -- -- -- -- -- --
[09194] [ 92] 02.08.2016 23.69.48.76.25 Bari -- -- -- -- -- -- -- -- -- --
[09195] [ 93] 04.08.2016 65.60.32.42.90 Bari -- -- -- -- -- -- -- -- -- --
[09196] [ 94] 06.08.2016 66.33.75.01.41 Bari 01 -- -- -- -- -- -- -- -- --
[09197] [ 95] 09.08.2016 10.41.45.54.01 Bari 01 -- -- -- -- -- -- -- -- 10
[09198] [ 96] 11.08.2016 86.25.69.34.51 Bari -- -- -- -- -- -- -- -- -- --
[09199] [ 97] 13.08.2016 43.34.67.35.68 Bari -- -- -- -- -- -- -- -- -- --
[09200] [ 98] 16.08.2016 08.63.45.30.79 Bari -- -- -- -- -- -- -- 08 -- --
[09201] [ 99] 18.08.2016 63.70.33.67.37 Bari -- -- -- -- -- -- -- -- -- --
[09202] [100] 20.08.2016 26.24.03.37.62 Bari -- -- 03 -- -- -- -- -- -- --
[09203] [101] 23.08.2016 09.74.03.72.53 Bari -- -- 03 -- -- -- -- -- 09 --
[09204] [102] 25.08.2016 46.43.74.38.54 Bari -- -- -- -- -- -- -- -- -- --

Joe91 · 27 Agosto 2016

Ciao Eugenio.

Come vedi ho aggiunto solo 2 linee.

18 è quanto hai chiesto ... ma è modificabile come pure lo sono i 2 colori.

Un pochino più difficile è determinare se e come gestire il primo e l'ultimo ciclo, dove cambiare colore.

Alcuni cicli infatti potrebbero avere un numero di estrazioni DIVERSO da questo 18 che si è fornito come "dato".

Quindi in assenza di richiesta specifica, lo sript colora riferendosi al numero di estrazione in Archivio.

NON ad una particolare selezione di estrazioni.

Per essere pratici ... e più semplici ... così come è,

potrebbe cambiare il colore anche selezionando un periodo di 2 Estrazioni.

Codice:

Option Explicit
Sub Main
	Dim Es,E,R,P,K,T
	Dim sRiga
	For Es = EstrazioneFin - 89 To EstrazioneFin
		If Es Mod 18 = 0 Then T = Not T
		If T Then ColoreTesto 2 Else ColoreTesto 0
		For R = 1 To 1'2 : If R = 11 Then R = 12
			Scrivi GetInfoEstrazione(Es) & " " & StringaEstratti(Es,R) & "  ",False,False
			Scrivi FormatSpace(NomeRuota(R),11),True,False
			sRiga = ""
			For P = 1 To 10
				sRiga = sRiga & String(2,"-") & Space(1)
			Next
			For P = 1 To 5
				E = Format2(Estratto(Es,R,P))
				If E <= 10 Then
					Call MidX(sRiga,E,(3*E) - 2)
				End If
			Next
			Scrivi(sRiga)
		Next
		Scrivi
	Next
End Sub

genios · 1 Settembre 2016

Joe91 per cambiare la decina dove dovrei intervenire .

Ciao Eugenio

Joe91 · 1 Settembre 2016

genios;n2000275 ha scritto:
Joe91 per cambiare la decina dove dovrei intervenire .

Ciao Eugenio

Ciao Eugenio,

qui per mantenersi in linea con quanto già fatto le cose si complicano un pò.

Devi prevedere una selezione dei numeri " da " ... " a "

supponiamo da 11 a 20 per selezionare gli estratti "E"

dopodichè vedi che il valore minimo tra i parametri di Midx sarà 3 x 11 = 33

ma 33 E' realtivo al primo dei numeri ... quindi si divrà sottrargli 32

Cioè 33 - 32 = 1

Vome vedi qui di seguito dopo i primi "30 Spazi" è (3*E) - 32

Analogamente .... sarà per ogni "decina" successiva ... a questa/e.

Codice:

[B][COLOR=#0000c0]If[/COLOR][/B] [B][COLOR=#ff00ff]E[/COLOR][/B] [B][COLOR=#ff0000]>=[/COLOR][/B] 11 [B][COLOR=#0000c0]And[/COLOR][/B] [B][COLOR=#ff00ff]E[/COLOR][/B] [B][COLOR=#ff0000]<=[/COLOR][/B] 20 [B][COLOR=#0000c0]Then[/COLOR][/B]

[B][COLOR=#0000c0]Call[/COLOR][/B] [B][COLOR=#800080]MidX[/COLOR][/B]([B][COLOR=#ff00ff]sRiga[/COLOR][/B],[B][COLOR=#ff00ff]E[/COLOR][/B],(3[B][COLOR=#ff0000]*[/COLOR][COLOR=#ff00ff]E[/COLOR][/B]) [B][COLOR=#ff0000]-[/COLOR][/B] 32)

[B][COLOR=#0000c0]End[/COLOR][/B] [B][COLOR=#0000c0]If[/COLOR][/B]

genios · 1 Settembre 2016

La miseria scrivevo If E >=11 And <=20 Then Non scrivevo di nuovo ll nome della Variabile E .

Grazie Joe91

Joe91 · 1 Settembre 2016

Ok Eugenio.

Ancora una piccola serie di passaggi.

Abbiamo detto e tu l'hai confermato che oltre i limiti ...

bisogna ANCHE spostare "la stampa" affinche avvenga

sempre nei 10 spazi che abbiamo predisposto.

Solo 10 anzicchè 90.

Quindi abbiamo visto che sono necessari:

* Limite Inferiore che può essere contenuto nella variabile LI

* Limite Superiore //// LS

* Off Set //// OS

Aggiungo che queste sono delle terne di parametri caratteristiche,

e che esse possono essere calcolate in funzione di ogni DECINA ... "D"

Dunque, proviamo a dimostralo, elencandole con un piccolo script:

Codice:

Option Explicit
Dim D ,LI ,LS , OS
Sub Main
Scrivi "D LI LS  OS",True
For D = 0  To  8
Scrivi D& " " ,True,False
LI = 10 * D + 1 : LS = 10 * D + 10 : OS = 3 * LI - 1
Scrivi Format2 (LI) & " " & Format2 (LS) & " " & FormatSpace (OS,3,True)
Next
End Sub

Con esso si producono queste "terne" di parametri

necessarie per pilotare manualmente lo script.

Ma è chiaro che dopo aver provato che esse siano

"ben calibrate" ed in sintonia con i nostri desideri,

potremo convertire lo script nel supporto di un "InputBox"

e con questo selezionare più convenientemente

la decina di nostro interesse.

(Senza più dover mettere mano, calcolare ... imputare manualmente).

Cordiali saluti.

Joe91 · 2 Settembre 2016

Trasformando lo scirpt presente al messaggio #31 in un InputBox

diventa il seguente :

Codice:

Option Explicit
Dim D,LI,LS,OS,IB
Sub Main
For D = 0 To 8
IB = IB & " " & D & "   da "
LI = 10 * D + 1 : LS = 10 * D + 10 : OS = 3 * LI - 1
IB = IB & Format2(LI) & " a " & Format2(LS) & Chr(13)
Next
D = InputBox(IB,"SCEGLI DECINA",0)
LI = 10 * D + 1 : LS = 10 * D + 10 : OS = 3 * LI - 1
Scrivi Format2(LI) & " " & Format2(LS) & " " & FormatSpace(OS,3,True)
End Sub

Questo Script è stato creato "ad hoc" per gli script che avevamo già creato.

Quindi necessita solo di essere inserito in essi ... intergrandolo.

Prenderemo le "tre parti" che s'erano fatte e le uniremo in unico script.

genios · 2 Settembre 2016

genios · 2 Settembre 2016

Ma le Variabili del post 32# corrispondono con le variabili degli script precedenti ?
Purtroppo senza diagrammi di flusso non so ragionare .

Ciao Eugenio .

Joe91 · 2 Settembre 2016

Ciao Eugenio.

No .... i 3 parametri, contenuti nelle 3 variabili sono calcolati in funzione

della decina "D" ed hanno "Nomi Nuovi"

Cosicchè NON si creano "interferenze" con gli script precedenti.

Dopodicchè bisognerà trasferite i contenuti di queste "3 variabili"

al resto dello script ... affinche possa operare con essi.

Joe91 · 2 Settembre 2016

Riassumo dicendo che le parti da unificare sono

Lo script al messaggio # 27

La modifiche per le altre decine descritte al messaggio #29

Ed infine questo "InputBox" presente al messaggio #32

Codice:

Sub Main
Dim D,LI,LS,OS,IB
For D = 0 To 8
IB = IB & " " & D & " da "
LI = 10 * D + 1 : LS = 10 * D + 10 : OS = 3 * LI - 1
IB = IB & Format2(LI) & " a " & Format2(LS) & Chr(13)
Next
D = InputBox(IB,"SCEGLI DECINA",0)
LI = 10 * D + 1 : LS = 10 * D + 10 : OS = 3 * LI - 1
Scrivi Format2(LI) & " " & Format2(LS) & " " & FormatSpace(OS,3,True)
End Sub

Lo si può "incollare" dopo averlo privato di Sub Main / End Sub

DENTRO l'altro ... all'inizio.

Ed eseguendo si nota che gli script funzionano ... indipendentemente,

come avevamo detto senza che tra essi si creino conflitti ... e/o influenze.

Codice:

Option Explicit
Sub Main
	Dim Es,E,R,P,K,T
	Dim sRiga
	''''''''''''''''''''''
	Dim D,LI,LS,OS,IB
	For D = 0 To 8
		IB = IB & " " & D & " da "
		LI = 10 * D + 1 : LS = 10 * D + 10 : OS = 3 * LI - 1
		IB = IB & Format2(LI) & " a " & Format2(LS) & Chr(13)
	Next
	D = InputBox(IB,"SCEGLI DECINA",0)
	LI = 10 * D + 1 : LS = 10 * D + 10 : OS = 3 * LI - 1
	Scrivi Format2(LI) & " " & Format2(LS) & " " & FormatSpace(OS,3,True)
	''''''''''''''''''''''
	For Es = EstrazioneFin - 89 To EstrazioneFin
		If Es Mod 18 = 0 Then T = Not T
		If T Then ColoreTesto 2 Else ColoreTesto 0
		For R = 1 To 1'2 : If R = 11 Then R = 12
			Scrivi GetInfoEstrazione(Es) & " " & StringaEstratti(Es,R) & "  ",False,False
			Scrivi FormatSpace(NomeRuota(R),11),True,False
			sRiga = ""
			For P = 1 To 10
				sRiga = sRiga & String(2,"-") & Space(1)
			Next
			For P = 1 To 5
				E = Format2(Estratto(Es,R,P))
				If E >= 11 And E <= 20 Then
					Call MidX(sRiga,E,(3*E) - 32)
				End If
			Next
			Scrivi(sRiga)
		Next
		Scrivi
	Next
End Sub

Quindi non rimane che spiegare COME e DOVE ... COLLEGARLI

per renderli interdipendenti e funzionanti.

Sarà apiegato nel dettaglio al prossimo messaggio

anche se ... questo da farsi è ormai facilissimo.

Joe91 · 2 Settembre 2016

Dicevo che è facile intuire che si deve intervenire

dove si selezionano gli estratti compresi

tra il LimiteInferiore "LI", il loro LimiteSuperiore "LS"

e si collocano con il loro OffSet "OS"

Questi 3 parametri sono calcolati subito dopo l' InputBox

e sono contenuti in tre distinte variabili.

Essi SOSTITUIRANNO i valori numerici fissi

che nell'esempio già citato sono 11 / 20 / 32 .

Joe91;n2000298 ha scritto:

Codice:

[B][COLOR=#0000c0]If[/COLOR][/B] [B][COLOR=#ff00ff]E[/COLOR][/B] [B][COLOR=#ff0000]>=[/COLOR][/B] 11 [B][COLOR=#0000c0]And[/COLOR][/B] [B][COLOR=#ff00ff]E[/COLOR][/B] [B][COLOR=#ff0000]<=[/COLOR][/B] 20 [B][COLOR=#0000c0]Then[/COLOR][/B]

[B][COLOR=#0000c0]Call[/COLOR][/B] [B][COLOR=#800080]MidX[/COLOR][/B]([B][COLOR=#ff00ff]sRiga[/COLOR][/B],[B][COLOR=#ff00ff]E[/COLOR][/B],(3[B][COLOR=#ff0000]*[/COLOR][COLOR=#ff00ff]E[/COLOR][/B]) [B][COLOR=#ff0000]-[/COLOR][/B] 32)

[B][COLOR=#0000c0]End[/COLOR][/B] [B][COLOR=#0000c0]If[/COLOR][/B]

DIVENTA :

Codice:

[B][COLOR=#0000c0]If[/COLOR][/B] [B][COLOR=#ff00ff]E[/COLOR][/B] [B][COLOR=#ff0000]>=[/COLOR][/B] [COLOR=#ee82ee][B]LI [/B][/COLOR][B][COLOR=#0000c0]And[/COLOR][/B] [B][COLOR=#ff00ff]E[/COLOR][/B] [B][COLOR=#ff0000]<=[/COLOR][/B] [COLOR=#ee82ee][B]LS[/B][/COLOR] [B][COLOR=#0000c0]Then[/COLOR][/B]

[B][COLOR=#0000c0]Call[/COLOR][/B] [B][COLOR=#800080]MidX[/COLOR][/B]([B][COLOR=#ff00ff]sRiga[/COLOR][/B],[B][COLOR=#ff00ff]E[/COLOR][/B],(3[B][COLOR=#ff0000]*[/COLOR][COLOR=#ff00ff]E[/COLOR][/B]) [B][COLOR=#ff0000]-[/COLOR][/B] [COLOR=#ee82ee][B]OS[/B][/COLOR])

[B][COLOR=#0000c0]End[/COLOR][/B] [B][COLOR=#0000c0]If[/COLOR][/B]

Intuitivo, Facile, Giusto ... ma non funziona!

Joe91 · 2 Settembre 2016

Succede questo per un errore mio.

Inizialmente non venivano compiute operazioni

(TEST CONDIZIONALI per selezionare gli estratti)

Quindi gli estratti erano subito formatttati con Format2

perchè numeretti della prima decina,

e ... direttamente alloggiati negli spazi loro dedicati.

In sintesi un "Numero 1" inteso come risultato di un calcolo o Estratto,

è differente dalla stringa "01" ottenuta con il Format2

Il computer che è fedelissimo esecutore ... senza errori suoi,

trova sempre "tutto differente", e semplicemente non elenca più nulla.

La soluzione è semplice .... "Format2" va spostato dopo i calcoli.

Ovverro si formatta un estratto solo all'ultimo quando

si deve solo più "mandarlo in output".

Tolto il bug cioè fatto il "debug" lo script diventa:

Codice:

Option Explicit
Sub Main
Dim Es,E,R,P,K,T
Dim sRiga
''''''''''''''''''''''
Dim D,LI,LS,OS,IB
For D = 0 To 8
IB = IB & " " & D & " da "
LI = 10 * D + 1 : LS = 10 * D + 10 : OS = 3 * LI - 1
IB = IB & Format2(LI) & " a " & Format2(LS) & Chr(13)
Next
D = InputBox(IB,"SCEGLI DECINA",0)
LI = 10 * D + 1 : LS = 10 * D + 10 : OS = 3 * LI - 1
''''''''''''''''''''''
For Es = EstrazioneFin - 89 To EstrazioneFin
If Es Mod 18 = 0 Then T = Not T
If T Then ColoreTesto 2 Else ColoreTesto 0
For R = 1 To 1'2 : If R = 11 Then R = 12
Scrivi GetInfoEstrazione(Es) & " " & StringaEstratti(Es,R) & "  ",False,False
Scrivi FormatSpace(NomeRuota(R),11),True,False
sRiga = ""
For P = 1 To 10
sRiga = sRiga & String(2,"-") & Space(1)
Next
For P = 1 To 5
E = Estratto(Es,R,P)
If E >= LI And E <= LS Then
Call MidX(sRiga,Format2(E),(3*E) - OS)
End If
Next
Scrivi(sRiga)
Next
Scrivi
Next
End Sub

Buona serata a tutte/i.

Joe91 · 3 Settembre 2016

No Title

Ciao Eugenio,

ho omesso di risponderti riguardo il diagramma di flusso,

sia perché non li so redigere sia perché realizzo lo script,

quando penso di poterlo fare, ovvero quando,

mi funziona o reputo che possa funzionare.

Cercando di fare ammenda 

Ho preparato questa immagine dove

sono visibili e distinguibili dei blocchi.

Quello evidenziato in rosso è quello in cui

si selezionano le decine ed allinterno di questo

una freccia-rossa indica dove è stato trasferito il Format2

che, diversamente, rendeva lo script inutilizzabile.

Nella prima parte invece, vedi (nella cornice blu)

lo script che è stato trasformato in InputBox

e poi impiantato, e divenuto parte di questunico programma.

Quando era script  produceva una tabella.

Per non cancellarla/eliminarla lho usata per abbellire l InputBox.

Questa tabellina dicevo è inserita DENTRO l inputbox.

Forrnisce (mentre lo calcola) un esempio di quali numeri saranno selezionati.

Nella cornice gialla dopo listruzione InputBox cè il blocco di 3 equazioni

che a partire da una decina D , fornisce i tre parametri necessari

a formattare loutput COME avevi richiesto.

Dunque nell inputbox vero e proprio vengono elencati Decina / da  / a

Mentre allo script serve anche quello che ho definito OffSet.

Se  nell inputbox, OffSet non è elencato e non serve 

Si può ed è utile non calcolarlo. Semplificando lo script e risparmiando tempo.

In pratica quanto è scritto NEL PRIMO rettangolino giallo può essere cancellato.

Ultima cosa. Ho utilizzato un trucco per avere una bella tabellina nellinputbox.

Per realizzarlo ho creato una stringa che incorpora diverse volte Chr (13).

Essi servono e sono equivalenti ad altrettanti rimandi  a capo.

Cordiali saluti a tutte/i.

genios · 6 Settembre 2016

Joe91 potresti commentarmi le due righe del tuo script

Codice:

If Es Mod 18 = 0 Then T = Not T
If T Then ColoreTesto 2 Else ColoreTesto 0

Ciao Eugenio

Aiuto per stampa

Advanced Member >PLATINUM<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM<

Advanced Member >PLATINUM<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Allegati

Advanced Member >PLATINUM<