Novità

Modifica Tabella : Richiesta aiutino

Xeroxs

Advanced Member >PLATINUM<
Buongiorno a Tutti,

Ho Impostato una Tabella sui Ritardi dei Numeri scegliendo la/le Ruote,
Io Vorrei scegliere se possibile quanti numeri riportare nella tabella, ad esempio vorrei che nella Tabella ci fossero solo i primi 10 Ritardatari per le ruote scelte,
ma non so come inserire questa mia scelta,

Riporto lo Script

Codice:
Sub Main
   Dim Ini,Fin
   Dim Num(1),Titoli,Valori
   Dim Ruote
   '-----------------------------------> Range Estrazioni = Così Analizzi Tutte le Estrazioni
   Ini = EstrazioneIni
   Fin = EstrazioneFin
  '-----------------------------------> Range Estrazioni = Così Analizzi solo il 2021
   'Ini = 9867 ' ------> Estrazione del 31/12/2021
   'Fin = EstrazioneFin
   '-----------------------------------> Scelgo Le Ruote
   ReDim R(0)
   Ruote = ScegliRuote(R)
    '--------------------------------------------------------------------------------------------- Creo dati Tabella
   Titoli = Array(Titoli,"Numeri","Ritardo","Rit.Max","Incr.Max","Freq")
   Call InitTabella(Titoli,,,4,2,"Times New Roman")
   '----------------------------------------------------------------------------------------------- Intestazione
   Scrivi "Ruote scelte ---> " & StringaRuote(R),1,,,,3
   Scrivi
   '----------------------------------------------------------------------------------------------- Calcoli statistici
   For n = 1 To 90
      Num(1) = n
      Call StatisticaFormazione(Num,R,1,rit,max,Incr,fre,Ini,Fin)
      Valori = Array(Valori,StringaNumeri(Num),rit,max,incr,fre)
      Call AddRigaTabella(Valori,,,4,0)
      If rit > 60 Then Call SetColoreCella(2,vbGreen)
   Next
   '--------------------------------------------------------------- Tabella
   'Call SetTableHeight("65%")
   Call SetTableWidth("25%")
   Call CreaTabella(2)' Ordina per Ritardo = 2° Colonna
   'Call CreaTabella(5)' Ordina per Frequenza = 5 ° Colonna
End Sub

Sperando che qualcuno mi aiuti.

Intanto Vi Ringrazio come sempre
 
Ciao,per far scrivere il numero di righe volute basta inserire la quantità nel codice apposito creatabella
Call CreaTabella(2,,,10)
 
Grazie Ancora, a Volte la soluzione è davanti ai Tuoi occhi, ero convinto di aver sbagliato codice o dover scrivere in altro modo la Tabella.
;);)
 

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 02 settembre 2025
    Bari
    36
    17
    23
    80
    83
    Cagliari
    06
    17
    77
    59
    86
    Firenze
    74
    11
    43
    64
    62
    Genova
    43
    31
    55
    05
    78
    Milano
    86
    04
    34
    45
    59
    Napoli
    18
    69
    05
    30
    26
    Palermo
    20
    09
    76
    80
    55
    Roma
    89
    26
    57
    75
    46
    Torino
    17
    74
    35
    12
    54
    Venezia
    18
    34
    19
    40
    66
    Nazionale
    49
    14
    32
    19
    07
    Estrazione Simbolotto
    Palermo
    13
    19
    29
    01
    33
Indietro
Alto