Come implementare la tabella colorata... in questo script? [risolto]

[lotto_tom75]

Ho ritrovato, nella mia collezione di script, questo ermeticissimo e sibillino script che è straordinariamente potente nella creazione di qualsiasi gruppo di formazioni per qualsiasi classe e distanza desiderata a partire dai 90.

Complimentissimi di nuovo... al suo realizzatore che, dallo stile di codice, credo sia il mitico Joe, ma non ne sono sicuro.

Avrei la necessità, come da titolo, di partire per le elaborazioni non dai 90 ma da gruppi numerici doc dinamici di volta in volta diversi... da incollare nell'apposita tabella colorata di immissione.

Questo lo script non modificato...

Sub Main
Q = 10 '<=== Inserisci "Quantità" Numeri in Lunghetta
ReDim aNum(90)
For P = 1 To 90
AvanzamentoElab 1,90,P
'Scrivi String(Q*3 - 1,"=") & " PASSO " & Format2(P),1
For N = 1 To 90
Stringa = Format2(N) & "."
For L = 1 To Q
Stringa = Stringa & Format2(Fuori90(N + L*P)) & "."
Next
For LL = 3*Q To 3*Q Step 3
Scrivi Left(Stringa,LL - 1)
Next
'Scrivi
Next
Next
End Sub

E questa qui sotto la versione modificata con il mio triste tentativo infruttuoso di implementazione della tabella

Sub Main
Q = 18 '<=== Inserisci "Quantità" Numeri in Lunghetta

ReDim aNum(0)
Dim QuantitaNumeriScelti                                   <--- Anche qui ho provato ad apportare una modifica per quel target
QuantitaNumeriScelti = ScegliNumeri(aNum)  ' <--- qui ho provato a implementare la tabella colorata per l'immissione del gruppo numerico desiderato ma senza anlcun esito...

For P = 1 To QuantitaNumeriScelti                       <--- Anche qui ho provato ad apportare una modifica per quel target
AvanzamentoElab 1,QuantitaNumeriScelti,P       <--- Anche qui ho provato ad apportare una modifica per quel target
'Scrivi String(Q*3 - 1,"=") & " PASSO " & Format2(P),1
For N = 1 To QuantitaNumeriScelti
Stringa = Format2(N) & "."
For L = 1 To Q
Stringa = Stringa & Format2(Fuori90(N + L*P)) & "."
Next
For LL = 3*Q To 3*Q Step 3
Scrivi Left(Stringa,LL - 1)
Next
'Scrivi
Next
Next
End Sub

Qualcuno/a riesce ad implementarla e/o a capire come funziona questo, a mio parere, fantastico e criptico... script?

Grazie e Buon Sabato a Tutti/e

 

[lotto_tom75]

Anche questa volta non so esattamente come ho fatto ma ho risolto da solo
Se a qualcuno/a altro/a interessasse la mia modifica riporto il codice che sviluppa un qualsiasi gruppo numerico desiderato per tutte le classi qui sotto

Sub Main

Q = 8 '<=== Inserisci "Quantità" Numeri in Lunghetta

Q = Q-1 [SIZE=10px]' aggiustamento interno per elaborazione corretta... in base al numero di elementi in lunghetta desiderato[/SIZE]

ReDim aNum(0)
Dim QuantitaNumeriScelti
QuantitaNumeriScelti = ScegliNumeri(aNum)

For P = 1 To QuantitaNumeriScelti
AvanzamentoElab 1,QuantitaNumeriScelti,P
'Scrivi String(Q*3 - 1,"=") & " PASSO " & Format2(P),1 'scrive la riga di separazione "PASSO N."
For N = 1 To QuantitaNumeriScelti
Stringa = aNum(N) & "."
For L = 1 To Q
Stringa = Stringa & (Fuori90(aNum(N) + L * P  ))  & "."
Next
For LL = 3*Q To 3*Q Step 3
'Scrivi Left(Stringa,LL - 0)
Scrivi (Stringa)
Next
Scrivi
Next
Next
End Sub