Modifica Tabella : Richiesta aiutino

[Xeroxs]

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

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

 

[Mike58]

Ciao,per far scrivere il numero di righe volute basta inserire la quantità nel codice apposito creatabella
Call CreaTabella(2,,,10)

 

[i legend]

Esiste la funzione creatabellaordinabile.
Guarda nei suoi parametri.
Ciao

 

[Xeroxs]

Ciao
Ok, Grazie Mike58 e I-Legend

 

[Xeroxs]

Grazie Ancora, a Volte la soluzione è davanti ai Tuoi occhi, ero convinto di aver sbagliato codice o dover scrivere in altro modo la Tabella.