aggiunta di frequenze per uno script di Joe

[ppaaoolloo]

salve a tutti
mi rivolgo a Joe oppure chi può esserne capace
questo script fattomi da Joe molto tempo fa,
vorrei aggiungere 3 colonne che indicano
la frequenza di 5 10 e 15 estrazioni
credete sia possibile?
ringrazio anticipatamente

saluti


Option Explicit
Sub Main
'Ritardo di Presenza in più Ruote By Joe
Dim Ini,Fin,Es,F,N,Tit(5),Uno(90),Bis(90),Ter(90),Qua(90),Nu(5)
Ini = 200 : Fin = EstrazioneFin
Tit(1) = "NU / TT" : Tit(2) = " Rit 1 Pres." : Tit(3) = "Rit 2 Pres." : Tit(4) = " Rit 3 Pres.": Tit(5) = " Rit 4 Pres. "
InitTabella Tit
For Es = Fin To Ini Step - 1 : AvanzamentoElab Fin,Ini,Es
For N = 1 To 90
F = EstrattoFrequenza(11,N,Es,Es)
If F >= 4 Then
If Qua(N) = "" Then Qua(N) = Fin - Es
End If
If F >= 3 Then
If Ter(N) = "" Then Ter(N) = Fin - Es
End If
If F >= 2 Then
If Bis(N) = "" Then Bis(N) = Fin - Es
End If
If F >= 1 Then
If Uno(N) = "" Then Uno(N) = Fin - Es
End If
Next
Next
For N = 1 To 90
Nu(1) = N : Nu(2) = Uno(N) : Nu(3) = Bis(N) : Nu(4) = Ter(N): Nu(5) = Qua(N)
AddRigaTabella(Nu)
Next
CreaTabellaOrdinabile(2)
End Sub