xSalvo50, tabellone 10elotto

[Zetrix]

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..

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

 

[salvo50]

Ciao a Tutti

Ciao Zetrix

Mi hai sopravvalutato, poi con le tabelle sono proprio negato
se qualche volta ho fatto script con le tabelle è perché ho
scopiazzato dagli altri script

 

[Zetrix]

Ciao Salvo, come non detto, credevo che eri esperto sulle tabelle , ho visto che ai scritto una marea di script
ma forse mi ero sbagliato, comunque non fa niente, lo script lo girato in un altro forum..
grazie lo stesso..

 

[salvo50]

Ciao Salvo, come non detto, credevo che eri esperto sulle tabelle , ho visto che ai scritto una marea di script
ma forse mi ero sbagliato, comunque non fa niente, lo script lo girato in un altro forum..
grazie lo stesso..

Ho scritto una marea di script, ma il 99%, tratta le 4 operazioni principali
addizioni, sottrazioni, moltiplicazioni e divisioni, se vado oltre queste
4 operazioni devo chiedere aiuto

 

[Zetrix]

sulle addizioni, sottrazioni, moltiplicazioni e divisioni dei numeri questi li so scrivere sulle tabelle,
il problema e quanto si devono evidenziare i numeri nella tabella con scegli numeri
questa e una funzione che a scritto LuigiB, ma non so come si scrive nello script la stringa con scegli numeri..

Qt = ScegliNumeri(num)

ho un altro script e funziona con questa stringa ma al lotto..invece al 10elotto e un po piu complicato la tabella..
una cosa che ho notato e se si scelgono es, 40,49,54,88 evidenzia nella tabella il numero 4
questo vuol dire che lo script legge solo la numerazione dei conteggi dei numeri scelti perche sono quattro numeri
se si scelgono due numeri qualsiasi evidenzia solo il numero 2 nella tabella