Richiesta Script agli esperti del settore.

[dbr]

Ciao
Di Script e programmazione non capisco nulla per questo chiedo aiuto.
Cerco uno Script che mi segnali l'ultima uscita di un numero a scelta
ruota per ruota (esclusa Nazionale) con la possibilità di cambiare numero
forse qualcosa esiste già ma non riesco a trovarlo
vedo di spiegarmi con un esempio.

Ess. numero 44 uscito ultima volta a

Ba 14/09/2023
Ca 09/09/2023
Fi 20/10/2023
.............
.............
.............

Grazie Renzo (dbr)

 

[joe]

Ciao Renzo.

Prova con questo.

Richiede Spaziometria.

Option Explicit
Sub Main
   Dim S,E,R,Es
   S = CInt(InputBox("Esempio : 44 ","QUALE NUMERO ?",44))
   For R = 1 To 12
      If R = 11 Then R = 12
      Es = EstrazioneFin - EstrattoRitardo(R,S,1,EstrazioneFin)
      Scrivi SiglaRuota(R) & " " & DataEstrazione(Es,,,"/")
   Next
End Sub

 

[dbr]

Ciao joe
grazie 1000 a prima vista sembra ok
faccio altre prove eventualmente ......
Si era per spaziometria mi sono dimenticato di scriverlo

Renzo (dbr)