Ciao,
mi date una mano su questo script??
La mia richiesta è all'interno dello script stesso...
Grazie....
Mike, se dai un occhio magari Tu..Luigi non credo si scomodi per ste cosuccie..
mi date una mano su questo script??
La mia richiesta è all'interno dello script stesso...
Codice:
Option Explicit
Sub Main
Dim ninizio,nfine,numeri,numestrazioni,nColonneTot,dal,al,n,l,l1,l2,o,r,Classe,Cl,aCol,z,x
ReDim aNumeri(1260)
Dim aTitoli(5)
Call AggiornaArchivioDL
Call ImpostaArchivio10ELotto(2)
z = GetInfoEstrazioneDL(EstrazioniArchivioDL)
x =(Mid(z,11,3))
numestrazioni = InputBox("QUANTE ESTRAZIONI VUOI VERIFICARE ?" & vbCrLf & " " & vbCrLf & "IN AUTOMATICO VIENE INSERITO IL NUMERO" & vbCrLf & " " & vbCrLf & "DI QUELLE ESTRATTE OGGI FINO AD ORA","NUMERO USCITE OGGI",x)
nfine = EstrazioniArchivioDL
ninizio = nfine - numestrazioni + 1
For l1 = ninizio To nfine
l2 = l1
Next
Cl = 3
aTitoli(1) = "TERZINE"
dal = 1
al = 10
For o = dal To al
aNumeri(o) = o
Next
Classe = Cl
nColonneTot = InitSviluppoIntegrale(aNumeri,Classe)
For l = 1 To nColonneTot
Call GetCombSviluppo(aCol)
n = SerieFreqDL(ninizio,nfine,aCol,Classe)
r = SerieRitardoDL(ninizio,nfine,aCol,Classe)
ReDim aValori(5)
aValori(1) = StringaNumeri(aCol)
aValori(2) = Format2(n)
aValori(3) = Format2(r)
If n = 0 Then
Scrivi aValori(1) & " | " & n & " | " & r & " ---> FORMAZIONE NON ANCORA USCITA",True,,,vbRed
Else
Scrivi aValori(1) & " | " & n & " | " & r,True,,,vbBlue
For l1 = 1 To n
Scrivi "Qui vorrei i numeri estratti delle formazioni già uscite nel formato [N° Estr] [DATA] [ORA] [N° ESTRATTI]"
Next
End If
Next
Call Scrivi
Call TestoInBandaPassante("Script Realizzato Da Moro_80",1,vbYellow,vbBlack)
End Sub
Grazie....
Mike, se dai un occhio magari Tu..Luigi non credo si scomodi per ste cosuccie..
Ultima modifica: