per joe

[Alien.]

Ciao credevo di averlo già messo questo post ma...

senti mi puoi inserire il 10elotto in questo script? Infinite grazie.

Option Explicit

Sub Main

'Presenze nei 10 Colpi dopo Indice Mensile

'V.1 Script By Joe

Dim Ini,Fin,Es

Dim R,I,Q,K

Dim F,N,NU(1),P(90),RU(1),M

R = NZ_

I = Int(InputBox("Quale ?","INDICE MENSILE",1))

Q = 10 ' Estrazioni Controllate

RU(1) = R

Ini = EstrazioneIni : Fin = EstrazioneFin

For Es = Ini To Fin

AvanzamentoElab Ini,Fin,Es

If IndiceMensile(Es) = I Then

For N = 1 To 90

NU(1) = N

P(N) = P(N) + SerieFreq(Es + 1,Es + Q,NU,RU,1)

If P(N) > M Then M = P(N)

Next

End If

Next

ecco infatti lo avevo messo ho fatto aggiornamento della pagina ma nulla adesso mi vedo due post.....magia delle VENUS.