Zetrix
Advanced Premium Member
buongiorno Salvo50, vorrei evidenziare i numeri con la funzione ubound nel tabellone del 10elotto
ma non sono riuscito mai a imparare come si scrive esatta questa funzione con ubound..
ma non sono riuscito mai a imparare come si scrive esatta questa funzione con ubound..
Codice:
Option Explicit
Sub Main
Dim R,E,S,X,A,B,W,Q,J,N,SEQ,L
Dim nRighe,nColonne
Dim nCaselleDaEvid
Dim aQuadroNum,Numeri(50)
Dim aNumDaEvid,TV,EX,K,Qt,num(90)
nRighe = 11
nColonne = 20
ReDim aQuadroNum(nRighe,nColonne)
ReDim aNumDaEvid(121,1) ' Quantità di celle possibili
Qt = ScegliNumeri(num)
For K = EstrazioniArchivioDL - 9 To EstrazioniArchivioDL
'
S = S + 1 'Riga della Tabella
For E = 1 To 20
'
aQuadroNum(S,E) = EstrattoDL(K,E)
'
Qt = UBound(num)
If(aQuadroNum(S,E)) = Qt Then
'
nCaselleDaEvid = nCaselleDaEvid + 1
aNumDaEvid(nCaselleDaEvid,0) = S
aNumDaEvid(nCaselleDaEvid,1) = E
nCaselleDaEvid = nCaselleDaEvid + 1
aNumDaEvid(nCaselleDaEvid,0) = S
aNumDaEvid(nCaselleDaEvid,1) = E
End If
Next
Next
Call DisegnaEstrazioneQN(aQuadroNum,aNumDaEvid)
End Sub