Frequenza posizione numero a scelta ?!

[Sakti]

Buon Natale e festività a Tutti.
Questo era d'obbligo, visto il periodo incombente..
Volevo chiedere se ci fosse uno script con tabella che mi desse la frequenza
di posizione, ( 1° 2° 3° 4° o 5°) di un numero a scelta, su ogni ruota.
Ringrazio in anticipo e spero passiate le feste con le persone a voi più care.

 

[alessandro63]

Questo script è di MIKI58
Sub Main
'Ritardo & frequenze Posizionale
Dim T
Ini = 8117'EstrazioneIni
fin = EstrazioneFin
Scrivi Space(20) & "Frequenze" & Space(40) & "Ritardi",1
r = InputBox("Quale Ruota",,1)
T = Array(T,"Numero","Fp1","Fp2","Fp3","Fp4","Fp5","Min","Max"," - ","Rp1","Rp2","Rp3","Rp4","Rp5","Min","Max")
Call InitTabella(T,0,,3,5,"arial balck")
For n = 1 To 90
For p = 1 To 5
ReDim apos(5)
apos(p) = True
a = EstrattoFrequenza(r,n,Ini,fin,,,apos)
b = EstrattoRitardo(r,n,Ini,fin,,,apos)
ReDim Preserve pos(p)
pos(p) = a
ReDim Preserve por(p)
por(p) = b
min = MinimoV(pos,1,- 1)
max = MassimoV(pos)
minR = MinimoV(por,1,- 1)
MaxR = MassimoV(por)
'riga = riga & FormattaStringa(a,"000") & " "
Next
T = Array(T,n,pos(1),pos(2),pos(3),pos(4),pos(5),min,max,"--",por(1),por(2),por(3),por(4),por(5),minR,maxR)
Call AddRigaTabella(T)
Call SetColoreCella(1,6,0)
Call SetColoreCella(7,3,0)
Call SetColoreCella(8,4,0)
Call SetColoreCella(9,0,5)
Call SetColoreCella(15,3,0)
Call SetColoreCella(16,4,0)
For x = 2 To 6
If T(x) = min Then Call SetColoreCella((x),3,1)
If T(x) = max Then Call SetColoreCella((x),4,1)
Next
For xx = 10 To 14
If T(xx) = minR Then Call SetColoreCella((xx),3,1)
If T(xx) = maxR Then Call SetColoreCella((xx),4,1)
If T(xx) = 0 Then Call SetColoreCella((xx),2,4)
Next
Next
CreaTabella
End Sub

 

[Sakti]

Grazie mille, sapevo che nel forum ci sarebbe stata una persono dal cuore grande...
Veramente Grazie Mille..
Rinnovo i miei auguri a Te e a Tutti.