x mike 58 terzine consecutive

Zetrix · 1 Febbraio 2021

Codice:

Sub Main
   Dim aN,aLung(30),Id
   Dim Nu,Ru(1),er(12)
   Ini = EstrazioneFin - 180
   fin = EstrazioneFin

   filtro = CInt(InputBox("Quale scelta" & Chr(13) & Chr(13) & "1 - Frequenza" & Chr(13) & "2 - Ritardo",,2))
   If filtro = 1 Then Scrivi "Verifica Combinazioni per Frequenza",1
   If filtro = 2 Then Scrivi "Verifica Combinazioni per Ritardo",1
   Scrivi
   Scrivi "Range Inizio........ " & GetInfoEstrazione(Ini)
   Scrivi "Range Fine.......... " & GetInfoEstrazione(fin)
   Scrivi "Totali Estrazioni... " & fin - Ini + 1
   Scrivi
   ReDim T(15)
   For x = 1 To 12
      T(1) = "terzine consecutive"
      T(x + 1) = SiglaRuota(x)
   Next
   T(15) = "Max"
   T(14) = "Min"
   'T(16) = "Valida/Non Valida"
 
   Call InitTabella(T,,,3,,"Georgia")
 ' Call InitTabella(T,RGB(0,71,171),,,5)
  

   '-------------------------------------------
   For Id = 1 To 30 ' variare il massimo a secondo la q.tà di lunghette
      Call Lunghetta(aLung,Id,aN)
      '-------------------------------------------
      ReDim V(15)
      V(1) = StringaNumeri(aN)
      For r = 1 To 12
         Ru(1) = r
         If filtro = 1 Then er(r) = SerieFreqTurbo(Ini,fin,aN,Ru,1)
         If filtro = 2 Then er(r) = SerieRitardoTurbo(Ini,fin,aN,Ru,1)
         V(r + 1) = er(r)
      Next
      Call OrdinaMatrice(er,1,1)
      V(14) = er(2)
      V(15) = er(12)
      Call AddRigaTabella(V,,,3,0,"Georgia")
      '------------------------------------------
      For xx = 1 To 11
        ' If V(xx) = er(12) Then Call SetColoreCella((xx),2,4)
       '  If V(xx) = er(2) Then Call SetColoreCella((xx),3,2)
         'If V(xx) = er(1) And V(xx) = er(2) Then Call SetColoreCella((xx),4,2)
      
      
      
Call SetColoreCella(1,RGB(0,128,128),6)
Call SetColoreCella(2,RGB(0,71,171),6)
Call SetColoreCella(3,RGB(0,128,128),6)
Call SetColoreCella(4,RGB(0,71,171),6)
Call SetColoreCella(5,RGB(0,128,128),6)
Call SetColoreCella(6,RGB(0,71,171),6)
Call SetColoreCella(7,RGB(0,128,128),6)
Call SetColoreCella(8,RGB(0,71,171),6)
Call SetColoreCella(9,RGB(0,128,128),6)
Call SetColoreCella(10,RGB(0,71,171),6)
Call SetColoreCella(11,RGB(0,128,128),6)
Call SetColoreCella(12,RGB(0,71,171),6)
Call SetColoreCella(13,RGB(0,128,128),6)
Call SetColoreCella(14,RGB(0,71,171),6)
Call SetColoreCella(15,RGB(0,128,128),6)


If V(xx) = er(12) Then Call SetColoreCella(2,RGB(255,51,171),1)
If V(xx) = er(12) Then Call SetColoreCella(3,RGB(255,51,171),1)
If V(xx) = er(12) Then Call SetColoreCella(4,RGB(255,51,171),1)
If V(xx) = er(12) Then Call SetColoreCella(5,RGB(255,51,171),1)
If V(xx) = er(12) Then Call SetColoreCella(6,RGB(255,51,171),1)
If V(xx) = er(12) Then Call SetColoreCella(7,RGB(255,51,171),1)
If V(xx) = er(12) Then Call SetColoreCella(8,RGB(255,51,171),1)
If V(xx) = er(12) Then Call SetColoreCella(9,RGB(255,51,171),1)
If V(xx) = er(12) Then Call SetColoreCella(10,RGB(255,51,171),1)
If V(xx) = er(12) Then Call SetColoreCella(11,RGB(255,51,171),1)
If V(xx) = er(12) Then Call SetColoreCella(12,RGB(255,51,171),1)
If V(xx) = er(12) Then Call SetColoreCella(13,RGB(255,51,171),1)
If V(xx) = er(12) Then Call SetColoreCella(14,RGB(255,51,171),1)
If V(xx) = er(12) Then Call SetColoreCella(15,RGB(255,51,171),1)


If V(xx) = er(2) Then Call SetColoreCella(2,RGB(255,204,58),1)
If V(xx) = er(2) Then Call SetColoreCella(3,RGB(255,204,58),1)
If V(xx) = er(2) Then Call SetColoreCella(4,RGB(255,204,58),1)
If V(xx) = er(2) Then Call SetColoreCella(5,RGB(255,204,58),1)
If V(xx) = er(2) Then Call SetColoreCella(6,RGB(255,204,58),1)
If V(xx) = er(2) Then Call SetColoreCella(7,RGB(255,204,58),1)
If V(xx) = er(2) Then Call SetColoreCella(8,RGB(255,204,58),1)
If V(xx) = er(2) Then Call SetColoreCella(9,RGB(255,204,58),1)
If V(xx) = er(2) Then Call SetColoreCella(10,RGB(255,204,58),1)
If V(xx) = er(2) Then Call SetColoreCella(11,RGB(255,204,58),1)
If V(xx) = er(2) Then Call SetColoreCella(12,RGB(255,204,58),1)
If V(xx) = er(2) Then Call SetColoreCella(13,RGB(255,204,58),1)
If V(xx) = er(2) Then Call SetColoreCella(14,RGB(255,204,58),1)
If V(xx) = er(2) Then Call SetColoreCella(15,RGB(255,204,58),1)




 Next
   Next
   CreaTabella
End Sub
Sub Lunghetta(aLung,id,aN)
   '--- inserimento Lunghette ----------------------
aLung(1) = Array (0,1,2,3)
aLung(2) = Array (0,4,5,6)
aLung(3) = Array (0,7,8,9)
aLung(4) = Array (0,10,11,12)
aLung(5) = Array (0,13,14,15)
aLung(6) = Array (0,16,17,18)
aLung(7) = Array (0,19,20,21)
aLung(8) = Array (0,22,23,24)
aLung(9) = Array (0,25,26,27)
aLung(10) = Array (0,28,29,30)
aLung(11) = Array (0,31,32,33)
aLung(12) = Array (0,34,35,36)
aLung(13) = Array (0,37,38,39)
aLung(14) = Array (0,40,41,42)
aLung(15) = Array (0,43,44,45)
aLung(16) = Array (0,46,47,48)
aLung(17) = Array (0,49,50,51)
aLung(18) = Array (0,52,53,54)
aLung(19) = Array (0,55,56,57)
aLung(20) = Array (0,58,59,60)
aLung(21) = Array (0,61,62,63)
aLung(22) = Array (0,64,65,66)
aLung(23) = Array (0,67,68,69)
aLung(24) = Array (0,70,71,72)
aLung(25) = Array (0,73,74,75)
aLung(26) = Array (0,76,77,78)
aLung(27) = Array (0,79,80,81)
aLung(28) = Array (0,82,83,84)
aLung(29) = Array (0,85,86,87)
aLung(30) = Array (0,88,89,90)

'----Fine Inserimento-------------------------------
   aN = aLung(id)
End Sub

ciao mike58 mi puoi sistemare questa tabella quanto ai un po di tempo a disposizione
questa tabella l'avevi fatta te e volevo mettere i colori per evidenziare i rit min e max
ma non so mi da una combinazione errata nella tabella dei colori
poi vorrei colorare inizia tabella con blu ma anche qui ho fatto diverse prove ma
mi da una combinazione errata

Mike58 · 1 Febbraio 2021

Zetrix ogni tanto con le colorazioni ti incarti, devi capire cosa vuoi fare, se non ho capito male cosa ti serve ti metto le colorazioni per min e max e colorazioni tabella titoli.
spero vada bene anche se ultimamente mi mancano gli stimoli.

Codice:

Sub Main
   Dim aN,aLung(30),Id
   Dim Nu,Ru(1),er(15)
   Ini = EstrazioneFin - 180
   fin = EstrazioneFin

   filtro = CInt(InputBox("Quale scelta" & Chr(13) & Chr(13) & "1 - Frequenza" & Chr(13) & "2 - Ritardo",,2))
   If filtro = 1 Then Scrivi "Verifica Combinazioni per Frequenza",1
   If filtro = 2 Then Scrivi "Verifica Combinazioni per Ritardo",1
   Scrivi
   Scrivi "Range Inizio........ " & GetInfoEstrazione(Ini)
   Scrivi "Range Fine.......... " & GetInfoEstrazione(fin)
   Scrivi "Totali Estrazioni... " & fin - Ini + 1
   Scrivi
   ReDim T(15)
   For x = 1 To 12
   'If x = 11 Then x = 12
      T(1) = "terzine consecutive"
      T(x + 1) = SiglaRuota(x)
   Next
   T(15) = "Min"
   T(14) = "Max"
   'T(16) = "Valida/Non Valida"
 
   Call InitTabella(T,1,,3,5,"Georgia")
 ' Call InitTabella(T,RGB(0,71,171),,,5)
 

   '-------------------------------------------
   For Id = 1 To 30 ' variare il massimo a secondo la q.tà di lunghette
      Call Lunghetta(aLung,Id,aN)
      '-------------------------------------------
      ReDim V(15)
      V(1) = StringaNumeri(aN)
      For r = 1 To 12
      'If r = 11 Then r = 12
         Ru(1) = r
         If filtro = 1 Then er(r) = SerieFreqTurbo(Ini,fin,aN,Ru,1)
         If filtro = 2 Then er(r) = SerieRitardoTurbo(Ini,fin,aN,Ru,1)
         V(r + 1) = er(r)
      Next
      Call OrdinaMatrice(er,-1)
      V(14) = er(1)
      V(15) = er(12)
      Call AddRigaTabella(V,,,3,0,"Georgia")
      '------------------------------------------
      For xx = 1 To 13
         If V(xx) = er(1) Then Call SetColoreCella((xx),2,4)
         If V(xx) = er(12) Then Call SetColoreCella((xx),3,2)
         'If V(xx) = er(1) And V(xx) = er(2) Then Call SetColoreCella((xx),4,2)
      
      
      


 Next
   Next
   CreaTabella
End Sub
Sub Lunghetta(aLung,id,aN)
   '--- inserimento Lunghette ----------------------
aLung(1) = Array (0,1,2,3)
aLung(2) = Array (0,4,5,6)
aLung(3) = Array (0,7,8,9)
aLung(4) = Array (0,10,11,12)
aLung(5) = Array (0,13,14,15)
aLung(6) = Array (0,16,17,18)
aLung(7) = Array (0,19,20,21)
aLung(8) = Array (0,22,23,24)
aLung(9) = Array (0,25,26,27)
aLung(10) = Array (0,28,29,30)
aLung(11) = Array (0,31,32,33)
aLung(12) = Array (0,34,35,36)
aLung(13) = Array (0,37,38,39)
aLung(14) = Array (0,40,41,42)
aLung(15) = Array (0,43,44,45)
aLung(16) = Array (0,46,47,48)
aLung(17) = Array (0,49,50,51)
aLung(18) = Array (0,52,53,54)
aLung(19) = Array (0,55,56,57)
aLung(20) = Array (0,58,59,60)
aLung(21) = Array (0,61,62,63)
aLung(22) = Array (0,64,65,66)
aLung(23) = Array (0,67,68,69)
aLung(24) = Array (0,70,71,72)
aLung(25) = Array (0,73,74,75)
aLung(26) = Array (0,76,77,78)
aLung(27) = Array (0,79,80,81)
aLung(28) = Array (0,82,83,84)
aLung(29) = Array (0,85,86,87)
aLung(30) = Array (0,88,89,90)

'----Fine Inserimento-------------------------------
   aN = aLung(id)
End Sub

Zetrix · 1 Febbraio 2021

Mike non e questa la tabella che vorrei ai eliminato tutti i colori rgb che avevo messo
lo sfondo bianco non mi piace non lo so perche mi incasino con le colorazioni
ma non tutte le tabelle questa tabella in particolare non riesco a mettere i colori da evidenziare
per i rit a 0 e quelli max ho messo l esempio del listato che avevo allegato ma non mi da una giusta combinazione nelle caselle e non so dove e lo sbaglio
tutte le tabelle cho ho le ho tutte colorate perche a me lo sfondo bianco non mi piace
e quindi lavoro con tutti i colori della tabella rgb ed e un gioco da ragazzi mettere
i colori rgb il problema e che in alcune tabelle mi incasino con le colorazioni
esempio se vorrei mettere dei colori rgb mie personali come devo metterli
in inizia tabella perche i colori standard che usa il programma 1 blu 3 verde 4 giallo
non sono ideali per colorare le tabelle

Call InitTabella(T,RGB(0,71,171),,,5)

io uso questa colorazione per initabella con il sistema rgb ma se la scrivo in questa tabella
mi da una combinazione errata

Mike vedi se puoi fare qualcosa spero di essermi spiegato con le colorazioni
quanto ai un po di tempo a disposizione cosi imparo anche io dove e lo sbaglio
con le colorazioni rgb..
certo questa tabella e un po diversa dalle altre tabelle che avevi fatto
con le altre tabelle non trovo difficoltà con le colorazioni rgb
le colorazioni rgb le ho messe in tabella solo che non rispondono ai rit min e max
per questo ce un errore nella tabella

' If V(xx) = er(12) Then Call SetColoreCella((xx),2,4) ---remmate
' If V(xx) = er(2) Then Call SetColoreCella((xx),3,2) ---remmate

If V(xx) = er(12) Then Call SetColoreCella((xx),RGB(255,51,171),1)
If V(xx) = er(2) Then Call SetColoreCella((xx),RGB(255,204,58),1)

ho sostituito con questa ma non so perche colora solo una colonna

Zetrix · 2 Febbraio 2021

Codice:

Sub Main
   Dim aN,aLung(30),Id
   Dim Nu,Ru(1),er(12)
   Ini = EstrazioneFin - 180
   fin = EstrazioneFin

   filtro = CInt(InputBox("Quale scelta" & Chr(13) & Chr(13) & "1 - Frequenza" & Chr(13) & "2 - Ritardo",,2))
   If filtro = 1 Then Scrivi "Verifica Combinazioni per Frequenza",1
   If filtro = 2 Then Scrivi "Verifica Combinazioni per Ritardo",1
   Scrivi
   Scrivi "Range Inizio........ " & GetInfoEstrazione(Ini)
   Scrivi "Range Fine.......... " & GetInfoEstrazione(fin)
   Scrivi "Totali Estrazioni... " & fin - Ini + 1
   Scrivi
   ReDim T(15)
   For x = 1 To 12
      T(1) = "terzine consecutive"
      T(x + 1) = SiglaRuota(x)
   Next
   T(15) = "Max"
   T(14) = "Min"
   'T(16) = "Valida/Non Valida"
 
  ' Call InitTabella(T,,,3,,"Georgia")
   Call InitTabella(T,RGB(0,71,171),,3,6,"MV Boli")

 ' Call InitTabella(T,RGB(0,71,171),,,5)
  

   '-------------------------------------------
   For Id = 1 To 30 ' variare il massimo a secondo la q.tà di lunghette
      Call Lunghetta(aLung,Id,aN)
      '-------------------------------------------
      ReDim V(15)
      V(1) = StringaNumeri(aN)
      For r = 1 To 12
         Ru(1) = r
         If filtro = 1 Then er(r) = SerieFreqTurbo(Ini,fin,aN,Ru,1)
         If filtro = 2 Then er(r) = SerieRitardoTurbo(Ini,fin,aN,Ru,1)
         V(r + 1) = er(r)
      Next
      Call OrdinaMatrice(er,1,1)
      V(14) = er(2)
      V(15) = er(12)
      Call AddRigaTabella(V,,,3,0,"Georgia")
      '------------------------------------------
      For xx = 1 To 11
  
 
      '   If V(xx) = er(12) Then Call SetColoreCella((xx),2,4)
     '   If V(xx) = er(2) Then Call SetColoreCella((xx),3,2)
      
      
         'If V(xx) = er(1) And V(xx) = er(2) Then Call SetColoreCella((xx),4,2)
 
      
Call SetColoreCella(1,RGB(0,128,128),6)
Call SetColoreCella(2,RGB(0,71,171),6)
Call SetColoreCella(3,RGB(0,128,128),6)
Call SetColoreCella(4,RGB(0,71,171),6)
Call SetColoreCella(5,RGB(0,128,128),6)
Call SetColoreCella(6,RGB(0,71,171),6)
Call SetColoreCella(7,RGB(0,128,128),6)
Call SetColoreCella(8,RGB(0,71,171),6)
Call SetColoreCella(9,RGB(0,128,128),6)
Call SetColoreCella(10,RGB(0,71,171),6)
Call SetColoreCella(11,RGB(0,128,128),6)
Call SetColoreCella(12,RGB(0,71,171),6)
Call SetColoreCella(13,RGB(0,128,128),6)
Call SetColoreCella(14,RGB(0,71,171),6)
Call SetColoreCella(15,RGB(0,128,128),6)


 If V(xx) = er(12) Then Call SetColoreCella((xx),RGB(255,51,171),1)
 
 If V(xx) = er(2) Then Call SetColoreCella((xx),RGB(255,204,58),1)

 


Next

    
 Next

  
   CreaTabella
End Sub
Sub Lunghetta(aLung,id,aN)
   '--- inserimento Lunghette ----------------------
aLung(1) = Array(0,1,2,3)
aLung(2) = Array(0,4,5,6)
aLung(3) = Array(0,7,8,9)
aLung(4) = Array(0,10,11,12)
aLung(5) = Array(0,13,14,15)
aLung(6) = Array(0,16,17,18)
aLung(7) = Array(0,19,20,21)
aLung(8) = Array(0,22,23,24)
aLung(9) = Array(0,25,26,27)
aLung(10) = Array(0,28,29,30)
aLung(11) = Array(0,31,32,33)
aLung(12) = Array(0,34,35,36)
aLung(13) = Array(0,37,38,39)
aLung(14) = Array(0,40,41,42)
aLung(15) = Array(0,43,44,45)
aLung(16) = Array(0,46,47,48)
aLung(17) = Array(0,49,50,51)
aLung(18) = Array(0,52,53,54)
aLung(19) = Array(0,55,56,57)
aLung(20) = Array(0,58,59,60)
aLung(21) = Array(0,61,62,63)
aLung(22) = Array(0,64,65,66)
aLung(23) = Array(0,67,68,69)
aLung(24) = Array(0,70,71,72)
aLung(25) = Array(0,73,74,75)
aLung(26) = Array(0,76,77,78)
aLung(27) = Array(0,79,80,81)
aLung(28) = Array(0,82,83,84)
aLung(29) = Array(0,85,86,87)
aLung(30) = Array(0,88,89,90)

'----Fine Inserimento-------------------------------
   aN = aLung(id)
End Sub

ciao Mike58 ho colorato initabella in sintonia con la tabella però ce sempre un errore
con i rit min e max che non le visualizza bene in tutte le ruote
evidenzia soltanto la ruota di VE eppure nello script non ci sono errori

Mike58 · 2 Febbraio 2021

ok le colorazioni sono soggettive.
ad ogni modo sposta il ciclo for fuori dalle tue colorazioni di sfondo e fallo operare solo sulla condizione min max.
poi tutte le altre personalizzazioni sono alla vostra fantasia.

Codice:

Sub Main
   Dim aN,aLung(30),Id
   Dim Nu,Ru(1),er(12)
   Ini = EstrazioneFin - 180
   fin = EstrazioneFin
   filtro = CInt(InputBox("Quale scelta" & Chr(13) & Chr(13) & "1 - Frequenza" & Chr(13) & "2 - Ritardo",,2))
   If filtro = 1 Then Scrivi "Verifica Combinazioni per Frequenza",1
   If filtro = 2 Then Scrivi "Verifica Combinazioni per Ritardo",1
   Scrivi
   Scrivi "Range Inizio........ " & GetInfoEstrazione(Ini)
   Scrivi "Range Fine.......... " & GetInfoEstrazione(fin)
   Scrivi "Totali Estrazioni... " & fin - Ini + 1
   Scrivi
   ReDim T(15)
   For x = 1 To 12
      T(1) = "terzine consecutive"
      T(x + 1) = SiglaRuota(x)
   Next
   T(15) = "Max"
   T(14) = "Min"
   'T(16) = "Valida/Non Valida"
   ' Call InitTabella(T,,,3,,"Georgia")
   Call InitTabella(T,RGB(0,71,171),,3,6,"MV Boli")
   ' Call InitTabella(T,RGB(0,71,171),,,5)
   '-------------------------------------------
   For Id = 1 To 30 ' variare il massimo a secondo la q.tà di lunghette
      Call Lunghetta(aLung,Id,aN)
      '-------------------------------------------
      ReDim V(15)
      V(1) = StringaNumeri(aN)
      For r = 1 To 12
         Ru(1) = r
         If filtro = 1 Then er(r) = SerieFreqTurbo(Ini,fin,aN,Ru,1)
         If filtro = 2 Then er(r) = SerieRitardoTurbo(Ini,fin,aN,Ru,1)
         V(r + 1) = er(r)
      Next
      Call OrdinaMatrice(er,1,1)
      V(14) = er(2)
      V(15) = er(12)
      Call AddRigaTabella(V,,,3,0,"Georgia")
      '------------------------------------------
      '   If V(xx) = er(12) Then Call SetColoreCella((xx),2,4)
      '   If V(xx) = er(2) Then Call SetColoreCella((xx),3,2)
      'If V(xx) = er(1) And V(xx) = er(2) Then Call SetColoreCella((xx),4,2)
      Call SetColoreCella(1,RGB(0,128,128),6)
      Call SetColoreCella(2,RGB(0,71,171),6)
      Call SetColoreCella(3,RGB(0,128,128),6)
      Call SetColoreCella(4,RGB(0,71,171),6)
      Call SetColoreCella(5,RGB(0,128,128),6)
      Call SetColoreCella(6,RGB(0,71,171),6)
      Call SetColoreCella(7,RGB(0,128,128),6)
      Call SetColoreCella(8,RGB(0,71,171),6)
      Call SetColoreCella(9,RGB(0,128,128),6)
      Call SetColoreCella(10,RGB(0,71,171),6)
      Call SetColoreCella(11,RGB(0,128,128),6)
      Call SetColoreCella(12,RGB(0,71,171),6)
      Call SetColoreCella(13,RGB(0,128,128),6)
      Call SetColoreCella(14,RGB(0,71,171),6)
      Call SetColoreCella(15,RGB(0,128,128),6)
      For xx = 1 To 11
         If V(xx) = er(12) Then Call SetColoreCella((xx),RGB(255,51,171),1)
         If V(xx) = er(2) Then Call SetColoreCella((xx),RGB(255,204,58),1)
      Next
   Next
   CreaTabella
End Sub
Sub Lunghetta(aLung,id,aN)
   '--- inserimento Lunghette ----------------------
   aLung(1) = Array(0,1,2,3)
   aLung(2) = Array(0,4,5,6)
   aLung(3) = Array(0,7,8,9)
   aLung(4) = Array(0,10,11,12)
   aLung(5) = Array(0,13,14,15)
   aLung(6) = Array(0,16,17,18)
   aLung(7) = Array(0,19,20,21)
   aLung(8) = Array(0,22,23,24)
   aLung(9) = Array(0,25,26,27)
   aLung(10) = Array(0,28,29,30)
   aLung(11) = Array(0,31,32,33)
   aLung(12) = Array(0,34,35,36)
   aLung(13) = Array(0,37,38,39)
   aLung(14) = Array(0,40,41,42)
   aLung(15) = Array(0,43,44,45)
   aLung(16) = Array(0,46,47,48)
   aLung(17) = Array(0,49,50,51)
   aLung(18) = Array(0,52,53,54)
   aLung(19) = Array(0,55,56,57)
   aLung(20) = Array(0,58,59,60)
   aLung(21) = Array(0,61,62,63)
   aLung(22) = Array(0,64,65,66)
   aLung(23) = Array(0,67,68,69)
   aLung(24) = Array(0,70,71,72)
   aLung(25) = Array(0,73,74,75)
   aLung(26) = Array(0,76,77,78)
   aLung(27) = Array(0,79,80,81)
   aLung(28) = Array(0,82,83,84)
   aLung(29) = Array(0,85,86,87)
   aLung(30) = Array(0,88,89,90)
   '----Fine Inserimento-------------------------------
   aN = aLung(id)
End Sub

Zetrix · 2 Febbraio 2021

grazie infinite Mike adesso da una visualizzazione corretta dei rit min e max
ho visto dove era lo sbaglio si doveva spostare il ciclo for mannaggia e io
che ho fatto tante prove ma provavo con i next e invece erano i cicli for
Mike volevo chiederti un altra cosa ma non colora i rit della NZ
allora ho scritto
For xx = 1 To 13

però adesso mi evidenzia anche la ruota TT
come si puo saltare la ruota TT E visualizzare solo la NZ
va be comunque e relativo non e importante solo che avendo i rit 0 a TT
le colora quasi tutte a me interessava solo la NZ

If r = 11 Then r = 12 End If

ho aggiunto questa stringa con if ma non risolve niente
comunque dopo vedrò di sistemarla meglio la tabella

grazie Mike58

Zetrix

Zetrix · 2 Febbraio 2021

For xx = 1 To 13

If xx = 12 Then xx = 13 End If

Mike lo sistemata la tabella adesso evidenzia soltanto la NZ
almeno queste cose le ho imparate adesso la tabella a un aspetto
molto migliore con le colorazioni dei numeri in tabella
e come ai detto anche te le colorazioni sono soggettive
ognuno si sceglie le colorazioni dei numeri che vuole
per colorare le tabelle

Mike58 · 2 Febbraio 2021

bene zetrix, mi aspettavo questa domanda, ma sapevo che trovavi anche la soluzione.
Se ci interessa arrivare alla soluzione di un dato progetto, bisogna anche capire come usare e far parlare i codici vbscript.

Ciao

Cerca

Cerca

x mike 58 terzine consecutive

Zetrix

Advanced Premium Member

Mike58

Advanced Member >PLATINUM PLUS<

Zetrix

Advanced Premium Member

Zetrix

Advanced Premium Member

Mike58

Advanced Member >PLATINUM PLUS<

Zetrix

Advanced Premium Member

Zetrix

Advanced Premium Member

Mike58

Advanced Member >PLATINUM PLUS<

Ultima estrazione Lotto

Ultimi Messaggi