X mike58

miki55 · 11 Giugno 2020

Ciao mike, vorrei evidenziare nella tabella “formazione cadenza” i numeri che sono sortiti e che si trovano nella tabella arancione “ultima sortita”, la data lo evidenziata ma non so come si fa a evidenziare i numeri che si trovano nella “formazione cadenza” questa tabella l’ho modificata e ho aggiunto anche i colori..

ti allego lo script

Sub Main
Dim Ru(1),T,V
min = 1000
maxrit = 0
maxmax = 0
Incrmax = 0
sorte = 1
Ini = EstrazioneFin - 180
fin = EstrazioneFin

Call ScegliRange(Ini,fin,Ini,fin)
For r = 1 To 11
If r = 11 Then r = 12

T = Array(T,"Ruota","Formazione Cadenza","Ritardo","Ultima Sortita"," Data","Cadenza")
Call InitTabella(T,RGB(0,0,255),,,5)

For x = 1 To 9
For n = 1 To 90
If Cadenza

= x Then
k = k + 1
Ru(1) = r
ReDim Preserve Rad(k)
Rad(k) = n
End If
Next
ReDim pos(5)
pos(1) = True
pos(2) = True
pos(3) = True
pos(4) = True
pos(5) = True
Call StatisticaFormazioneTurbo(Rad,Ru,sorte,rit,max,Incr,fre,Ini,fin,,pos)
Call VerificaEsitoTurbo(Rad,Ru,fin - rit,sorte,,pos,,,es1,id)
'sr = SerieRitardoTurbo(Ini,fin - 1,Rad,Ru,sorte)
freq = freq + fre
If rit > maxrit Then maxrit = rit
If max > maxmax Then maxmax = max
If Incr > Incrmax Then Incrmax = Incr

mix = Cadenza(

'If rit = 0 Then srp = sr
'If rit > 0 Then srp = "--"
V = Array(V,SiglaRuota(r),StringaNumeri(Rad,,1),rit,es1,DataEstrazione(id),mix)
Call AddRigaTabella(V)
'Scrivi SiglaRuota(r) & vbTab & StringaNumeri(Rad,,1) & vbTab & fre & vbTab & rit & vbTab & max & vbTab & Incr & vbTab & es1 & vbTab & srp
k = 0

Call SetColoreCella(1,RGB(65,115,255),0)
Call SetColoreCella(2,RGB(0,209,153),0)
Call SetColoreCella(3,RGB(255,49,99),0)
Call SetColoreCella(4,RGB(255,191,48),0)
Call SetColoreCella(5,RGB(65,115,255),0)
Call SetColoreCella(6,RGB(0,209,153),0)
Call SetColoreCella(7,RGB(48,213,200),0)
Call SetColoreCella(8,RGB(0,204,153),0)
Call SetColoreCella(9,RGB(255,49,99),0)
Call SetColoreCella(10,RGB(50,189,182),0)
Call SetColoreCella(11,RGB(10,189,182),0)
Call SetColoreCella(12,RGB(59,159,182),0)

'If StringaNumeri

= StringaNumeri(es1) Then Call SetColoreCella((2),2,5)

If DataEstrazione(fin) = DataEstrazione(id) Then Call SetColoreCella((5),2,5)

Next

CreaTabella

Next

'If ScriptInterrotto Then Exit For
'Scrivi Space(39) & freq & Space(7) & maxrit & Space(5) & maxmax & Space(5) & Incrmax,1
Scrivi "Script By Mike58",1,,,1,,,1
End Sub

Mike58 · 11 Giugno 2020

Miky, modificare uno script costruito per uno scopo con delle variazioni mirate poi diventa complicato.
Ad ogni modo ho modificato con il codice GetTestoHtml la scrittura evidenziata della sortita Zero.

Prova a vedere se ti va bene .

Codice:

Sub Main
   Dim Ru(1),T,V
   min = 1000
   maxrit = 0
   maxmax = 0
   Incrmax = 0
   sorte = 1
   Ini = EstrazioneFin - 180
   fin = EstrazioneFin
   Call ScegliRange(Ini,fin,Ini,fin)
   For r = 1 To 11
      If r = 11 Then r = 12
      T = Array(T,"Ruota","Formazione Cadenza","Ritardo","Ultima Sortita"," Data","Cadenza")
      Call InitTabella(T,RGB(0,0,255),,,5)
      For x = 0 To 9
         For n = 1 To 90
            If Cadenza(n) = x Then
               k = k + 1
               Ru(1) = r
               ReDim Preserve Rad(k)
               Rad(k) = n
               If EstrattoFrequenza(r,Rad(k),fin,fin) = 1 Then
                  riga = riga & GetTestoHtml(Rad(k),1,2,4,2) & " "
               Else
                  riga = riga & GetTestoHtml(Rad(k),1,0) & " "
               End If
            End If
         Next
         ReDim pos(5)
         pos(1) = True
         pos(2) = True
         pos(3) = True
         pos(4) = True
         pos(5) = True
         Call StatisticaFormazioneTurbo(Rad,Ru,sorte,rit,max,Incr,fre,Ini,fin,,pos)
         Call VerificaEsitoTurbo(Rad,Ru,fin - rit,sorte,,pos,,,es1,id)
         'sr = SerieRitardoTurbo(Ini,fin - 1,Rad,Ru,sorte)
         freq = freq + fre
         If rit > maxrit Then maxrit = rit
         If max > maxmax Then maxmax = max
         If Incr > Incrmax Then Incrmax = Incr
         mix = Cadenza(x)
         'If rit = 0 Then srp = sr
         'If rit > 0 Then srp = "--"
         V = Array(V,SiglaRuota(r),riga,rit,es1,DataEstrazione(id),mix)
         Call AddRigaTabella(V)
         'Scrivi SiglaRuota(r) & vbTab & StringaNumeri(Rad,,1) & vbTab & fre & vbTab & rit & vbTab & max & vbTab & Incr & vbTab & es1 & vbTab & srp
         k = 0
         riga = ""
         Call SetColoreCella(1,RGB(65,115,255),0)
         Call SetColoreCella(2,RGB(0,209,153),0)
         Call SetColoreCella(3,RGB(255,49,99),0)
         Call SetColoreCella(4,RGB(255,191,48),0)
         Call SetColoreCella(5,RGB(65,115,255),0)
         Call SetColoreCella(6,RGB(0,209,153),0)
         Call SetColoreCella(7,RGB(48,213,200),0)
         Call SetColoreCella(8,RGB(0,204,153),0)
         Call SetColoreCella(9,RGB(255,49,99),0)
         Call SetColoreCella(10,RGB(50,189,182),0)
         Call SetColoreCella(11,RGB(10,189,182),0)
         Call SetColoreCella(12,RGB(59,159,182),0)
         'If StringaNumeri(n)= StringaNumeri(es1) Then Call SetColoreCella((2),2,5)
         If DataEstrazione(fin) = DataEstrazione(id) Then Call SetColoreCella((5),2,5)
      Next
      Call SetTableWidth("50%")
      CreaTabella
   Next
   'If ScriptInterrotto Then Exit For
   'Scrivi Space(39) & freq & Space(7) & maxrit & Space(5) & maxmax & Space(5) & Incrmax,1
   Scrivi "Script By Mike58",1,,,1,,,1
End Sub

miki55 · 11 Giugno 2020

Grazie, sei sempre geniale con i tuoi lavori...
Complimenti!!

Mike58 · 11 Giugno 2020

Miky ci devo ancora lavorare Non sono soddisfatto del lavoro finale.
Purtroppo adesso non ho tempo (causa lavoro Notturno) .
Ci aggiorniamo

miki55 · 12 Giugno 2020

Ok, sarà sicuramente un'altra tua chicca ...

miki55 · 12 Giugno 2020

Mike, posso chiederti ancora una cortesia?
Si possono aggiungere ed evidenziare il rit massimi nella colonna ritardo..
GRAZIE ancora...

Mike58 · 12 Giugno 2020

Miky con le evidenze non vado molto d'accordo ci sto provando ma per ora funge poco.
Ho aggiunto altri dati verifica se ti tornano utili.

Codice:

Sub Main
   Dim Ru(1),T,V
   min = 1000
   maxrit = 0
   maxmax = 0
   Incrmax = 0
   sorte = 1
   Ini = EstrazioneFin - 180
   fin = EstrazioneFin
   Call ScegliRange(Ini,fin,Ini,fin)
   For r = 1 To 11
      If r = 11 Then r = 12
      Scrivi Ini & " - " & fin
      ReDim pos(5)
      pos(1) = True
      pos(2) = True
      pos(3) = True
      pos(4) = True
      pos(5) = True
      T = Array(T,"Ruota","Formazione Cadenza","Rit.Att","Rit.Sto","IncrMax","Ultima Sortita"," Data","Ritardi Relativi","max sto","Verifica Sto")
      Call InitTabella(T,RGB(0,0,255),,,5)
      For x = 0 To 9
         For n = 1 To 90
            If Cadenza(n) = x Then
               k = k + 1
               Ru(1) = r
               ReDim Preserve Rad(k)
               Rad(k) = n
               ReDim Preserve Rsto(k)
               Rsto(k) = EstrattoRitardo(r,Rad(k),Ini,fin,,,pos)
              maxsto = MassimoV(Rsto)
              rigo = rigo & GetTestoHtml(FormattaStringa(Rsto(k),"000"),1) & " "
               ess = fin-maxsto
               Call StatisticaFormazioneTurbo(Rad,Ru,sorte,rit,max,Incr,fre,Ini,fin,,pos)
               Call VerificaEsitoTurbo(Rad,Ru,fin - rit,sorte,0,pos,esito,clp,es1,id)
               Call VerificaEsitoTurbo(Rad,Ru,ess,sorte,1,pos,esito2,clp2,es2,id2)
               If EstrattoFrequenza(r,Rad(k),fin,fin,,,pos) = 1 Then
                  riga = riga & GetTestoHtml(Format2(Rad(k)),1,5,2,2) & " "
                
               Else
                  riga = riga & GetTestoHtml(Format2(Rad(k)),1,0) & " "
               End If
              
            End If ' chiude cadenza
            'End If
         Next ' chiude for
        
              
         freq = freq + fre
         If rit > maxrit Then maxrit = rit
         If max > maxmax Then maxmax = max
         If Incr > Incrmax Then Incrmax = Incr
         mix = Cadenza(x)
        
         V = Array(V,SiglaRuota(r),riga,rit,max,incr,es1,DataEstrazione(id),rigo,maxsto & " - " & ess,es2)
         Call AddRigaTabella(V)
         'Scrivi SiglaRuota(r) & vbTab & StringaNumeri(Rad,,1) & vbTab & fre & vbTab & rit & vbTab & max & vbTab & Incr & vbTab & es1 & vbTab & srp
         k = 0
         riga = ""
         rigo = ""
         rigaR = ""
         Call SetColoreCella(1,RGB(65,115,255),0)
         Call SetColoreCella(2,RGB(0,209,153),0)
         Call SetColoreCella(3,RGB(255,49,99),0)
         Call SetColoreCella(6,RGB(255,191,48),0)
         Call SetColoreCella(7,RGB(65,115,255),0)
         Call SetColoreCella(8,RGB(0,209,153),0)
         'Call SetColoreCella(9,RGB(48,213,200),0)
         'Call SetColoreCella(10,RGB(0,204,153),0)
         'Call SetColoreCella(11,RGB(255,49,99),0)
         'Call SetColoreCella(10,RGB(50,189,182),0)
         'Call SetColoreCella(12,RGB(10,189,182),0)
         'Call SetColoreCella(13,RGB(59,159,182),0)
         'If StringaNumeri(n)= StringaNumeri(es1) Then Call SetColoreCella((2),2,5)
         If DataEstrazione(fin) = DataEstrazione(id) Then Call SetColoreCella((7),2,5)
      Next
      Call SetTableWidth("80%")
      CreaTabella
   Next
   'If ScriptInterrotto Then Exit For
   'Scrivi Space(39) & freq & Space(7) & maxrit & Space(5) & maxmax & Space(5) & Incrmax,1
   Scrivi "Script By Mike58",1,,,1,,,1
End Sub

Ciao

Sakti · 12 Giugno 2020

Un vero lavoro certosino, le tabelle e la statistica sono come minimo il tuo forte.
Grande lavoro, Grazie..

miki55 · 13 Giugno 2020

Grazie Mike, faccio le mie verifiche e ti faccio sapere...

miki55 · 13 Giugno 2020

If rit = maxrit Then Call SetColoreCella((3),3,8)

ho provato a mettere questa riga di comando
ma si evidenzia solo su alcune ruote e le altre no
e non so perché. Non evidenzia il ritardo massimo
in tutte le ruote lo fa in alcuni si e alcuni no..
Mi aiuti a trovare il modo per sistemare
e evidenziare questi ritardi massimi su ogni ruota?

Mike58 · 13 Giugno 2020

Miky, con quel codice non è possibile evidenziarlo perchè la scrittura della combinazione è su riga e non numeri separati quindi il setcolorecella non può agire.
Infatti anch'io faccio fatica in quanto la condizione se pur con il codice giusto non scrive correttamente.
Chiaro sicuramente sbaglio io il modus operandi, sicuramente mettendo tutti i numeri della combinazione in tabella isolata il colore cella agisce con sicurezza se vuoi così si può fare.

P.s. di questi script ne ho fatti tanti ma alcune volte certe cose poi non si riescono ad ottenere seppur semplici., STrano!!!

Ciao ci ragiono con calma.

i legend · 14 Giugno 2020

ciao, visto che ho avuto un po di tempo libero ho buttato giu lo script, ma visto la stanchezza che mi porto addosso
per favore controllate i dati , se sono esatti posto lo script
ecco un immagine dell output
analizza in base alle richieste dall estratto alla cinquina

quando si cambia il fine di uno script è meglio rielaborarlo che cercare di modificarlo a mio avviso

miki55 · 14 Giugno 2020

Mbè ilegend, niente male, se invii lo script trovo il tempo x studiarlo un pò...
Ti dispiace??

i legend · 14 Giugno 2020

miki per favore controlla i dati dell immagine con altre fonti
non mi piace postare script errati
se i dati combaciano lo posto piu che volentieri l ho fatto apposta
purtroppo non ho tempo di fare le verifiche .
aspetto

Mike58 · 14 Giugno 2020

Si visto che ho perso tempo a capire gli inghippi e rivederlo ecco la mia soluzione.
Poi sono d'accordo con quello che dice iLegend alcune volte e meglio rifare exNovo uno script che rielaborare un costrutto o iter per un altro scopo.

Ciao a tutti

Codice:

Sub Main
   Dim Ru(1),T,V
   min = 1000
   maxrit = 0
   maxmax = 0
   Incrmax = 0
   sorte = 1
   Ini = EstrazioneFin - 180
   fin = EstrazioneFin
   Call ScegliRange(Ini,fin,Ini,fin)
   For r = 1 To 11
      If r = 11 Then r = 12
      Scrivi Ini & " - " & fin
      ReDim pos(5)
      pos(1) = True
      pos(2) = True
      pos(3) = True
      pos(4) = True
      pos(5) = True
      T = Array(T,"Ruota","N1","N2","N3","N4","N5","N6","N7","N8","N9"," ","Min.Att","Max.Sto","Ultima Sortita"," Data","st1","St2","St3","st4","st5","st6","st7","st8","st9","max sto","Verifica Sto")
      Call InitTabella(T,RGB(0,0,255),,,5)
      For x = 0 To 9
         For n = 1 To 90
            If Cadenza(n) = x Then
               k = k + 1
               Ru(1) = r
               ReDim Preserve Rad(k)
               Rad(k) = n
               ReDim Preserve Rsto(k)
               Rsto(k) = EstrattoRitardo(r,Rad(k),Ini,fin,,,pos)
              maxsto = MassimoV(Rsto)
              minsto = MinimoV(Rsto,1,- 1)
              'rigo = rigo & GetTestoHtml(FormattaStringa(Rsto(k),"000"),1) & " "
               ess = fin - maxsto
              

               Call StatisticaFormazioneTurbo(Rad,Ru,sorte,rit,max,Incr,fre,Ini,fin,,pos)
               Call VerificaEsitoTurbo(Rad,Ru,fin - rit,sorte,0,pos,esito,clp,es1,id)
               Call VerificaEsitoTurbo(Rad,Ru,ess,sorte,1,pos,esito2,clp2,es2,id2)
              
            End If ' chiude cadenza
            'End If
         Next ' chiude for
        
              
         freq = freq + fre
         'If rit > maxrit Then maxrit = rit
         'If max > maxmax Then maxmax = max
         'If Incr > Incrmax Then Incrmax = Incr
         mix = Cadenza(x)
        
         V = Array(V,SiglaRuota(r),Rad(1),Rad(2),Rad(3),Rad(4),Rad(5),Rad(6),Rad(7),Rad(8),Rad(9),".",minsto,maxsto,es1,DataEstrazione(id),Rsto(1),Rsto(2),Rsto(3),Rsto(4),Rsto(5),Rsto(6),Rsto(7),Rsto(8),Rsto(9),maxsto & " - " & ess,es2)
         Call AddRigaTabella(V)
         For y = 2 To 10
        Call SetColoreCella((y),RGB(188,188,188),5)
        Next
        For xx = 16 To 24
        
        Call SetColoreCella((xx),RGB(193,89,157),0)
        If V(xx) = maxsto Then Call SetColoreCella((xx),7,5)
        If V(xx) = maxsto Then Call SetColoreCella((xx) - 14,7,5)
        If V(xx) = 0 Then Call SetColoreCella((xx) - 14,3,1)
        If V(xx) = minsto And V(xx) > 0 Then Call SetColoreCella((xx) - 14,4,2)
        Next
        If V(12) = 0 Then Call SetColoreCella(12,3,1)
        If V(12) > 0 Then Call SetColoreCella(12,4,2)
        Call SetColoreCella(13,7,5)
        Call SetColoreCella(11,1,0)
        If DataEstrazione(id) = DataEstrazione(fin) Then Call SetColoreCella(15,3,0)
        
         'Scrivi SiglaRuota(r) & vbTab & StringaNumeri(Rad,,1) & vbTab & fre & vbTab & rit & vbTab & max & vbTab & Incr & vbTab & es1 & vbTab & srp
         k = 0
         riga = ""
         rigo = ""
         rigaR = ""
        
        
      Next
      Call SetTableWidth("80%")
      CreaTabella
   Next
   'If ScriptInterrotto Then Exit For
   'Scrivi Space(39) & freq & Space(7) & maxrit & Space(5) & maxmax & Space(5) & Incrmax,1
   Scrivi "Script By Mike58",1,,,1,,,1
End Sub

Mike58 · 14 Giugno 2020

x ILegend visto che hai fatto lo script con TabellaOrdinabile vedi se ti funziona bene l'export dati in Excel
a me ultimamente da errore e cerca varie autorizzazioni.
Prima non accadeva.

Ciao

i legend · 14 Giugno 2020

Ciao ragazzi , domani scarico lo script di mike così vedo se convergono i risultati
Mike , con la versione 1.6.31 non mi dà problemi,
Ma domani per sicurezza controllo.
Ciao se i risultati sono ok posto anche la mia versione giusto per avere un confronto per chi vuole imparare un po di script un esempio in più non guasta.
Notte a tutti

miki55 · 14 Giugno 2020

Siete due maestri degli script,
questa è la verità ha ragione ZETRIX !!!

miki55 · 15 Giugno 2020

Mi date queste risposte x favore?

esempio(1)riga = riga & GetTestoHtml(Rad(k),0,5,2,3) & "."
Else
riga = riga & GetTestoHtml(Rad(k),0,0) & "."

esempio (2)riga = riga & Space(3) & GetTestoHtml(Rad(k),0,5,2,3) & "."
Else
riga = riga & Space(3) & GetTestoHtml(Rad(k),0,0) & "."

Perché nell’esempio (1) i numeri vengono evidenziati
invece nell'esempio (2) i numeri non vengono evidenziati
ho aggiunto la stringa space(3) in modo che i numeri si vedono
più grandi e si vedono meglio però aggiusta una cosa
e non va bene l'altra perché cosi i numeri non vengono evidenziati
..e un casino questi script..

Mike58 · 15 Giugno 2020

Miky alcune volte non sempre si riesce a scrivere quello che si vuole, seppure si crede di aver listato il tutto in modo corretto.
Anch'io nello script sopra non riuscivo ad evidenziare quello che ritenevo giusto ma ahinoi i codici vanno sempre con le condizione per non entrare in contrasto e a volta capita a non capire che una condizione esclude l'altra.

Vedi questo semplice script
c'è un if = condizione
poi elseIF = ulteriore condizione
poi else ' chiusura condizione ossia tutto il diverso dalle 2 condizioni sopra.

vedi questo picccolo esempio

Codice:

Sub Main
   Dim Nu(5)
   Ini = EstrazioneFin - 15
   fin = EstrazioneFin
   r = BA_
   For es = Ini To fin
      For p = 1 To 5
         Nu(p) = Estratto(es,r,p)
         '--------------------------------------------------------------
         If Nu(p) > 0 And Nu(p) < 16 Then ' scrive evidenza giallo dai numeri 1-15
         k1 = k1 + 1
            riga = riga & GetTestoHtml(Format2(Nu(p)),1,2,4) & " " ' giallo
         ElseIf Nu(p) > 15 And Nu(p) < 31 Then ' scrive evidenza rosso dai numeri 16-30
         k2 = k2 +1
            riga = riga & GetTestoHtml(Format2(Nu(p)),1,4,2) & " " 'rosso
         ElseIf Nu(p) > 30 And Nu(p) < 46 Then ' scrive evidenza ciano dai numeri 31-45
         k3 = k3 + 1
            riga = riga & GetTestoHtml(Format2(Nu(p)),1,5,7) & " " 'ciano
         Else
         k4 = k4 + 1
            riga = riga & GetTestoHtml(Format2(Nu(p))) & " " ' nessun colore
         End If
      Next
      Scrivi riga ' scrive la riga
      riga = "" ' azzera la riga
   Next
   Scrivi
   Scrivi "Giallo 1-15    : " & k1,1,,4,2
   Scrivi "Rosso 16-30 :  : " & k2,1,,2,4
   Scrivi "magenta 31-45  : " & k3,1,,7,5
End Sub

benvenuto tra i pochi se vuoi imparare gli script

Ciao

X mike58

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Advanced Member

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Premium Member

Advanced Member >PLATINUM PLUS<

Premium Member

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Premium Member

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<