Novità

xSalvo50, tabellone 10elotto

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


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
 
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
 
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..
 
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
 
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
 
Ultima modifica:

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 05 agosto 2025
    Bari
    57
    24
    52
    53
    56
    Cagliari
    43
    12
    64
    58
    22
    Firenze
    55
    05
    51
    58
    87
    Genova
    19
    80
    76
    75
    71
    Milano
    52
    44
    86
    33
    02
    Napoli
    28
    67
    29
    51
    53
    Palermo
    73
    90
    46
    51
    80
    Roma
    42
    30
    62
    02
    12
    Torino
    49
    61
    56
    11
    10
    Venezia
    66
    79
    83
    12
    07
    Nazionale
    47
    16
    32
    66
    64
    Estrazione Simbolotto
    Nazionale
    14
    05
    44
    38
    29

Ultimi Messaggi

Indietro
Alto