se possibile un piccolo aiuto

[rosa962]

grazie joe91

molto utile lo adattero alle mie esigenze

ciao

 

[Joe91]

Ciao Rosa,

ho integrato allo script che ti avevo proposto ... una tabella iniziale,

nella quale dovrai sostituire i numeri di tuo interesse, manca il conteggio dei ritardi

ed anche la possibilità di sostituire i pronostici.

Anche la ricerca è mensile e questo può creare qualche piccola differenza.

'xRosa V.5.0 Script By Joe
Sub Main
Dim Lu(12),T(12) : Sc = True ' Sc = False = Tabella Riepilogo Mensile

Lu(BA_) = "11.05.04" : Lu(CA_) = "56.90.34" : Lu(FI_) = "11.12.13"
Lu(GE_) = "22.33.66" : Lu(MI_) = "03.06.08" : Lu(NA_) = "08.18.81"
Lu(PA_) = "30.60.90" : Lu(RO_) = "01.46.90" : Lu(TO_) = "10.30.20"
Lu(VE_) = "01.02.03" : Lu(NZ_) = "88.89.90"

ColoreTesto 1 : Scrivi "Joe'Script ",1,0 : ColoreTesto 0
For R = BA_ To NZ_ : If R = TU_ Then R = NZ_
 ColoreTesto 2 : Scrivi SiglaRuota(R),1,0 : ColoreTesto 0
 Nu = Split("0." & Lu(R),".") : UB = UBound(Nu) 
 For N = 1 To UB
  Scrivi FormatSpace(Format2(Nu(N)),3,1),1,0
 Next : Scrivi Space(2),0,0 
Next : Scrivi 

ReDim Pr(12,UB)
For Es = 8320 To EstrazioneFin
If IndiceAnnuale(es) = 1 Then Scrivi Anno(ES) & " " & String(147,"="),1
 DE = Replace(DataEstrazione(es),".","/")  
 If Sc Then Scrivi DE & Space(3),0,0
 For R = BA_ To NZ_ : If R = TU_ Then R = NZ_
 Nu = Split("0." & Lu(R),".") : UB = UBound(Nu)
  For n = 1 To UB
   If Posizione(Es,r,Nu(n)) > 0 Then
     If Sc Then Scrivi FormatSpace("U",3,1),0,0
    Pr(R,N) = 1 : T(R) = T(R) + 1
      Else
    ColoreTesto 4
     If Sc Then Scrivi FormatSpace("N",3,1),0,0
    ColoreTesto 0
   End If
  Next
  If Sc = True Then Scrivi Space(4),0,0 
 Next
 If Sc = True Then Scrivi
 If IsUltimaDelMese(Es) Then
  NM = MeseNome(Mese(Es)) : L = 10 - Len(NM)
  Scrivi NM & String(L," "),1,0   
  For R = BA_ To NZ_ : If R = TU_ Then R = NZ_ 
   ColoreTesto 2
    Scrivi FormatSpace(CInt(T(R)),3,1),1,0 : T(R) = 0
   ColoreTesto 0
   For N = 1 To Ub
   If CInt(Pr(R,N)) > 0 Then
    Scrivi FormatSpace("U",3,1),1,0
    Else
     Scrivi FormatSpace("N",3,1),1,0
   End If
   Next : Scrivi Space(1),0,0
  Next 
  ReDim Pr(12,UB) : Scrivi  
 End If
Next
End Sub

Fammi sapere.

 

[rosa962]

CIAO JOE91

CI SIAMO QUASI DOBBIAMO FARE L'ULTIMO SFORZO

SI PUO' CAMBIARE IL COLORE DI TUTTE LE ( N ) ?

DIMMI COME FARE SE LO VOGLIO ROSSO


GRAZIE TANTE

ciao

 

[Joe91]

CIAO JOE91

CI SIAMO QUASI DOBBIAMO FARE L'ULTIMO SFORZO

SI PUO' CAMBIARE IL COLORE DI TUTTE LE ( N ) ?

DIMMI COME FARE SE LO VOGLIO ROSSO


GRAZIE TANTE

ciao

Ciao Rosa,

I colori, nello script, li ho gestiti nella forma tradizionale, (Spaziometria ... ha una versione SUPER).

Coloretesto seguito da numero con cui lo si sceglie.

Questo piccolo script ti elenca gli 8 colori ( 7 + Zero) con il numero corrispondente.

Sub Main
 For C = 0 To 7
 ColoreTesto C
 Scrivi "ColoreTesto  " & C,1 
 Next 
End Sub

Nota: "Bianco 5" in genere non è visibile perchè non ha contrasto con lo sfondo.

Ciò detto, devi rintracciare l'istruzione che precede Scrivi "N" ... "Coloretesto 4" (giallo)

e sostituire il numero del colore ... con 2 (rosso).

Buona Giornata