Per Joe e tutti <correzione script> Gentilmente

[Lucio P.]

Ciao Joe e a tutti quelli che sanno comporre script, si può adattare questo script che hai fatto alle nuove esigenze?
Gentilmente avrei bisogno di verificare una statistica (cinquina isocrona per ambo a ruota) proveniente da due numeri isotopi ma composta come segue e prendendo come riferimento l’output esistente. I puntini non sono necessari, li ho messi solo affinché rimangano ordinati nel post.
Ho bisogno di avere l’output come lo script perché agevola lavorando su Excel.

Questo l’output attuale
3950...Ba...88-89...66.67...st1...47...3997
3951...Ba...88-89...58.59...st1...89...4040
3952...Ba...88-89...26.27...st1...229..4181
3953...Ba...88-89...15.16...st1...79...4032
3954...Ba...88-89...79.80...st1...44...3998



Quello che vorrei ottenere sono due ruote con numero isotopo al quale applicare gli adattatori o somme 88-89- 90 -01-02 o se preferite (-02-01 |90|+01 +02); laddove la somma novanta (90) è il numero isotopo riscontrato sulle due o tre ruote e medesima posizione.
Perché questi adattatori? Il motivo è semplice:
Ogni numero appena sortito in linea di massima è candidato alla frequenza e quindi ripetersi. I laterali più vicini a esso sono secondo me i più probabili a breve.

Esempio reale:

Iniz……..Ruo..…….Adattatori……….Pos…..Rit…..Fine

3951...Ba-Fi...58.59.60.61.62...st1...04...3955
3951...Ge-Pa...32.33.34.35.36...st1...12...3963
3951...Ge-Pa...58.59.60.61.62...st2...17...3968
3951...Fi-Ge...61.62.63.64.65...st4...08...3959
3951...Mi-Pa...57.58.59.60.61...st5...17...3968
Ringrazio per la cortese attenzione.
Ciao

Vedi immagine
https://dl.dropbox.com/u/18220462/IMMAGINI/ISOTOPI .PNG


MI EDITO

Chiedo scusa avevo dimenticato d'inserire lo scripit fatto da Joe, eccolo.

'V 3.0 con Bi_Adattatore_Sommativo By JoeSub Main()
Dim Ru(1),N(2),Po,So
Ru(1) = ScegliRuota
Po = InputBox("Inserisci (1-5)","SCELTA DELLA POSIZIONE",1) : So = Po + 5
AD1 = InputBox("Primo Adattatore ","Adattatore Sommativo",55)
AD2 = InputBox("Secondo Adattatore ","Adattatore Sommativo",70)
Ini = 3950 'EstrazioneFin-1000 'STO TT-NZ: Max 393
Fin = EstrazioneFin
For Es = Ini To Fin
Messaggio Fin - Es
E = Estratto(Es,Ru(1),Po) : N(1) = Fuori90(E + Ad1) : N(2) = Fuori90(E + Ad2)
s = SeriePrima(Es + 1,Fin,N,Ru,So)
If s > 0 Then
rt = s - es
casi = casi + 1
If rt > mx Then mx = rt
If rt > 150 Then c = c + 1
If rt > 200 Then c1 = c1 + 1
If s = Fin Then
ColoreTesto 1
Scrivi FormatSpace(es,4,1) & " " & SiglaRuota(Ru(1)) & " " & Format2(AD1) & "-" & Format2(AD2) & " ",0,0
Scrivi Format2(N(1)) & "." & Format2(N(2)) & " st" & Po & " " & FormatSpace(rt,4,1) & " " & s
ColoreTesto 0
Else
ColoreTesto 0
Scrivi FormatSpace(es,4,1) & " " & SiglaRuota(Ru(1)) & " " & Format2(AD1) & "-" & Format2(AD2) & " ",0,0
Scrivi Format2(N(1)) & "." & Format2(N(2)) & " st" & Po & " " & FormatSpace(rt,4,1) & " " & s
ColoreTesto 0
End If
Else
If s = 0 Then
s1 = fin
at = fin - es
casi1 = casi1 + 1
If at > max Then max = at
ColoreTesto 2
Scrivi FormatSpace(es,4,1) & " " & SiglaRuota(Ru(1)) & " " & Format2(AD1) & "-" & Format2(AD2) & " ",0,0
Scrivi Format2(N(1)) & "." & Format2(N(2)) & " at" & Po & " " & FormatSpace(at,4,1) & " " & s1
ColoreTesto 0
End If
End If
Next
'Scrivi "casi Storici " & casi
'Scrivi "mx sto " & mx
'Scrivi ">150 " & c & " " & FormatNumber(c/casi*100,2)
'Scrivi ">200 " & c1 & " " & FormatNumber(c1/casi*100,2)
'Scrivi "casi attuali " & casi1
'Scrivi "mx att " & max
End Sub