Per joe o chi può

[solare]

Ciao, chiedo gentilmente un listato che faccia quanto segue:
Mi chiede la ruota da elaborare, mi da la possibilità di inserire da 1 a 5 numeri
in base alla quale ricerca la presenza dei vertibili dei numeri in esame
tutto questo deve avvenire nelle max 9 estrazioni precedenti.
Es: Napoli in data 2/5/24 è sortito il numero 11 nell'estrazione precedente quindi alla -1 è sortito il 19
Grazie infinite

 

[joe]

Ciao Solare,

controlla se questo piccolo script, fa quanto tu hai chiesto.

Option Explicit
Sub Main
'Evidenziatore Vertibili
'per Solare Script V.1.0 By Joe del 3/5/2024
   Dim Ini,Fin,Es,R,G,Q,N,I,P,S,E
   Q = 9 'Estrazioni visualizzate (con Attuale e/o "Vertibili Selezionati") 
   Fin = EstrazioneFin
   Ini = Fin - Q
   R = ScegliRuota   
   Scrivi Space(3) & "DATA" & Space(4) & UCase(NomeRuota(R)),True
   N = Split("0." & StringaEstratti(Fin,R),".")
   I = InputBox("Inserisci i Numeri","V E R T I B I L I",StringaNumeri(N))
   N = Split("0." & I,".")
   For Es = Fin To Ini Step - 1
      Scrivi DataEstrazione(Es,,,"/") & Space(1),1,0
      For P = 1 To 5
         E = Estratto(Es,R,P)
         For S = 1 To UBound(N)
            If E = Vert(N(S)) Then ColoreTesto 2 : G = 1
         Next
         Scrivi Format2(E) & " ",G,0
         ColoreTesto 0 : G = 0
      Next
      Scrivi
   Next
End Sub

 

[solare]

Ciao Joe, direi perfetto
grazie della tua sempre disponibilità e cortesia.