Per Mike58, un semplice script

[miki55]

Buongiorno Mike.
visto che è antipatico cercarli a mano con la possibilità di perderne qualcuno
per strada, si può avere un script di tutti i numeri singoli del quadro estrazionale,
per verificare siano tra questi in ritardo attuale sulle tre e poi quelli
sulle due ruote?

Esempio:
CA GE VE 05 - RA 29
NZ NA RO 30 – RA 33
Ecc. ecc.
Poi l’elenco con un estratto 2 ruote

Grazie anticipate

 

[Mike58]

Ciao Miky, infatti il Numero 5 non ha ritardo minimo su 3 ruote pari a 29 ma su 4 ruote,
Prova cosi potrebbe avere una valenza visiva valida.

Sub Main
   Dim aN(1)
   Dim Ru(1),er(12)
   Ini = EstrazioneIni
   fin = EstrazioneFin
   rit = CInt(InputBox("Quale Ritardo Minimo Considerato Max3",,28))
   Scrivi "Verifica Numeri Per Ritardo => a  " & rit & " Su Min 3 Ruote " & " *** Project By Miky55 *** Script By Mike58 *** ",1,,,1,3,,1
   Scrivi
   ReDim T(17)
   For x = 1 To 12
      T(1) = "Numeri"
      T(x + 1) = SiglaRuota(x)
   Next
   T(14) = "Max1"
   T(15) = "Max2"
   T(16) = "Max3"
   T(17) = "Ruote"
   Call InitTabella(T,,,3,,"Arial Black")
   '-------------------------------------------
   For n = 1 To 90
      aN(1) = n
      '-------------------------------------------
      ReDim V(17)
      V(1) = StringaNumeri(aN,,1)
      For r = 1 To 12
         Ru(1) = r
         er(r) = SerieRitardo(Ini,fin,aN,Ru,1)
         V(r + 1) = er(r)
         If er(r) >= rit Then rigaR = rigaR & SiglaRuota(r) & " "
      Next
      Call OrdinaMatrice(er,- 1,1)
      V(14) = er(1)
      V(15) = er(2)
      V(16) = er(3)
      V(17) = rigaR
      If er(3) >= rit Then
         Call AddRigaTabella(V,,,3,1,"Arial Black")
         '------------------------------------------
         For xx = 1 To 13
            If V(xx) = er(1) Then Call SetColoreCella((xx),2,4)
            If V(xx) = er(2) Then Call SetColoreCella((xx),4,2)
            If V(xx) = er(3) Then Call SetColoreCella((xx),3,2)
            If V(xx) >= rit And V(xx) < er(3) Then Call SetColoreCella((xx),7,5)
         Next
      End If
      rigaR = ""
   Next
   Call CreaTabella(16)
End Sub

Poi vediamo e valutiamo aggiustamenti.

 

[miki55]

Perfetto!! Grazie Mike

 

[Mike58]

Altra variante

Sub Main
   Dim aN(1)
   Dim Ru(1),er(12)
   Ini = EstrazioneIni
   fin = EstrazioneFin
   rit = CInt(InputBox("Quale Ritardo Minimo Considerato Max3",,28))
   qr = CInt(InputBox("Quante ruote","Minimo 3 Ruote",3))
   Scrivi "Verifica Numeri Per Ritardo => a  " & rit & " Su Min 3 Ruote " & " *** Project By Miky55 *** Script By Mike58 *** ",1,,,1,3,,1
   Scrivi
   ReDim T(19)
   For x = 1 To 12
      T(1) = "Numeri"
      T(x + 1) = SiglaRuota(x)
   Next
   T(14) = "Max1"
   T(15) = "Max2"
   T(16) = "Max3"
   T(17) = "Ruote"
  
   T(18) = "Q.tà Ruote"
   T(19) = "RitMax"
   Call InitTabella(T,,,3,,"Arial Black")
   '-------------------------------------------
   For n = 1 To 90
      aN(1) = n
      '-------------------------------------------
      ReDim V(19)
      V(1) = StringaNumeri(aN,,1)
      For r = 1 To 12
         Ru(1) = r
         er(r) = SerieRitardo(Ini,fin,aN,Ru,1)
         V(r + 1) = er(r)
         If er(r) >= rit Then
         k = k + 1
         'rigaR = rigaR & SiglaRuota(r) & " "
         ReDim Preserve Rut(k)
         Rut(k) = r
         End If
        
      Next
      Call OrdinaMatrice(er,- 1,1)
      st = SerieStorico(Ini,fin,aN,Rut,1)
      V(14) = er(1)
      V(15) = er(2)
      V(16) = er(3)
      V(17) = StringaRuote(Rut) 'rigaR
      V(18) = k
      V(19) = st
      'If er(3) >= rit Then
      If k = qr Then
         Call AddRigaTabella(V,,,3,1,"Arial Black")
         '------------------------------------------
         For xx = 1 To 13
            If V(xx) = er(1) Then Call SetColoreCella((xx),2,4)
            If V(xx) = er(2) Then Call SetColoreCella((xx),4,2)
            If V(xx) = er(3) Then Call SetColoreCella((xx),3,2)
            If V(xx) >= rit And V(xx) < er(3) Then Call SetColoreCella((xx),7,5)
         Next
      End If
      k = 0
      rigaR = ""
   Next
   Call CreaTabella(16)
End Sub

 

[miki55]

Complimenti!!