numeri in frequenza su tutte

[Zetrix]

buongiorno, vorrei fare questa tabella ma mi sono un po imbrogliato a fare i calcoli nella tabella
qualcuno mi puo aiutare a fare questa tabella
in pratica si deve scrivere una serie di numeri es, scelgo la finale 5 e lo script deve scrivere nelle ultime 10 estr
le mine frequenze di ogni numero di questa serie..e il rit di ogni numero della serie su tutte..
se non disegna la tabella non fa niente perche posso fare copia e incolla su questa tabella..
mi interessano solo le mine frequenze nelle ultime 10 estr di ogni numero di una serie in finale , 0,1,2,3,4,5,6,7,8,9

 

[Zetrix]

Sub Main
   Dim numeri(50)
   Dim x,y,k,w,es,n,s
   Dim r1
   'x = InputBox("Quale numero vuoi ?",,0)
   es = EstrazioneFin - 10
   r1 = TT_
   w = EstrattoFrequenza(r1,x,es)
   s = s + 1
   numeri(s) = Format2(w)
   k = Left(w,2)
   For n = 5 To 90 Step 10
      Scrivi "" & Space(20) & "" & EstrattoFrequenza(r1,numeri(s),es) & "(FRQ)",0,1,1,5
      Scrivi "" & Space(16 - Len(n)) &(n & "(" & x & ")" & Space(2) & EstrattoRitardo(r1,x,es) & "(RIT)" & Space(11) &(k) & " % " & ""),0,1,1,5
      Scrivi "" & Space(20) & "" & Abs(EstrazioneFin - EstrazioneFin - 10) & "(EST)",0,1,1,5
   Next
End Sub

ho fatto questo script ma mi sono imbrogliato a scrivere nello script..
con tutte queste lettere k,s,x,n,w,

 

[Zetrix]

ho risolto lo script controllate se i risultati sono esatti..

 

[Zetrix]

Sub Main
   Dim numeri(50)
   Dim x,y,k,w,es,n,s
   Dim r
   x = InputBox("Quale serie vuoi ).0.1.2.3.4.?",,0)
   es = EstrazioneFin - 10
   r = TT_
   For n = x To 90 Step 10
      w = EstrattoFrequenza(r,n,es)
      y = EstrattoRitardo(r,n,es)
      s = s + 1
      numeri(s) =(w)
      k = Left(w,2)
      Scrivi "" & Space(22) & "" &(w) & "(FRQ)",0,1,1,5
      Scrivi "" & Space(15 - Len(n)) & Space(2) &(n & "(" & w & ")" & Space(2) &(y) & "(RIT)" & Space(11) &(k*10) & " % " & ""),0,1,1,5
      Scrivi "" & Space(22) & "" & Abs(EstrazioneFin - EstrazioneFin - 10) & "(EST)",0,1,1,5
   Next
End Sub

come si fa se devo aggiungere pure la nazionale..