Ottimizzare questa struttura se possibile...

[lotto_tom75]

Nel mio script under construction

ho questa struttura "pesante" che vorrei se possibile alleggerire il + possibile...

If AddLunghetta(collLunghette,clsL) Then nTrov = nTrov + 1:Call ImpostaGiocata(1,vettoredastringaformazione,aRuotetmp,po,co,Sortediverifica): Call TabellaOrdinata(inizio,counterrange,Sortediverifica,vettoredastringaformazione,aRuotetmp,co,nProdotte,nclasse,contaesitipos,contaesitineg,contacasinongiocabili,quanteestrazioniverificare,contatorecasi) : Call TabellaOrdinataSeconda(inizio,counterrange,Sortediverifica,vettoredastringaformazione,aRuotetmp,co,nProdotte,nclasse,contaesitipos,contaesitineg,contacasinongiocabili,quanteestrazioniverificare,contatorecasi)_
: Call TabellaOrdinataTerza(inizio,counterrange,Sortediverifica,vettoredastringaformazione,aRuotetmp,co,nProdotte,nclasse,contaesitipos,contaesitineg,contacasinongiocabili,quanteestrazioniverificare,contatorecasi)_
  : Call TabellaOrdinataQuarta(inizio,counterrange,Sortediverifica,vettoredastringaformazione,aRuotetmp,co,nProdotte,nclasse,contaesitipos,contaesitineg,contacasinongiocabili,quanteestrazioniverificare,contatorecasi)_
: Call TabellaOrdinataQuinta(inizio,counterrange,Sortediverifica,vettoredastringaformazione,aRuotetmp,co,nProdotte,nclasse,contaesitipos,contaesitineg,contacasinongiocabili,quanteestrazioniverificare,contatorecasi)_
: Call TabellaOrdinataSesta(inizio,counterrange,Sortediverifica,vettoredastringaformazione,aRuotetmp,co,nProdotte,nclasse,contaesitipos,contaesitineg,contacasinongiocabili,quanteestrazioniverificare,contatorecasi)_
: Call TabellaOrdinataSettima(inizio,counterrange,Sortediverifica,vettoredastringaformazione,aRuotetmp,co,nProdotte,nclasse,contaesitipos,contaesitineg,contacasinongiocabili,quanteestrazioniverificare,contatorecasi)_
: Call TabellaOrdinataOttava(inizio,counterrange,Sortediverifica,vettoredastringaformazione,aRuotetmp,co,nProdotte,nclasse,contaesitipos,contaesitineg,contacasinongiocabili,quanteestrazioniverificare,contatorecasi)_
: Call TabellaOrdinataNona(inizio,counterrange,Sortediverifica,vettoredastringaformazione,aRuotetmp,co,nProdotte,nclasse,contaesitipos,contaesitineg,contacasinongiocabili,quanteestrazioniverificare,contatorecasi)_
: Call TabellaOrdinataDecima(inizio,counterrange,Sortediverifica,vettoredastringaformazione,aRuotetmp,co,nProdotte,nclasse,contaesitipos,contaesitineg,contacasinongiocabili,quanteestrazioniverificare,contatorecasi)_
: Call TabellaOrdinataUndicesima(inizio,counterrange,Sortediverifica,vettoredastringaformazione,aRuotetmp,co,nProdotte,nclasse,contaesitipos,contaesitineg,contacasinongiocabili,quanteestrazioniverificare,contatorecasi)_
: Call TabellaOrdinataDodicesima(inizio,counterrange,Sortediverifica,vettoredastringaformazione,aRuotetmp,co,nProdotte,nclasse,contaesitipos,contaesitineg,contacasinongiocabili,quanteestrazioniverificare,contatorecasi)_
: Call Verificatutto(inizio,counterrange,Sortediverifica,vettoredastringaformazione,aRuotetmp,co,nProdotte,nclasse,contaesitipos,contaesitineg,contacasinongiocabili,quanteestrazioniverificare) ': counterrange = counterrange '+ 1 ' <<< E' QUESTA LA RIGA CHE FUNZIA! :)

In particolare vorrei riccorrere ad una sola di queste tabelle che dinamicamente operi la riduzione progressiva a step 1 per i cicli desiderati del valore Ubound(vettoredastringaformazione)

Infatti ad ogni passaggio per ogni tabella

avviene questo:

Dim xvettorecoppia

xvettorecoppia = vettoredastringaformazione

ColTot = InitSviluppoIntegrale(xvettorecoppia,Classe)

Ovvero appunto viene esaminato il contenuto di vettoredastringaformazione che ad ogni passaggio risulta diminuito di una sola unità

Come potrei ricorrere ad una sola di queste tabelle con il valore Ubound(vettorestringadaformazione) dinamicamente ridotto a step1 per i cicli di riduzione desiderati (es. 10)? Tnx

Per avere alla fine semplicemente... anzichè il corposo code posto all'inizio qualcosa di molto + snello del tipo:

If AddLunghetta(collLunghette,clsL) Then nTrov = nTrov + 1:Call ImpostaGiocata(1,vettoredastringaformazione,aRuotetmp,po,co,Sortediverifica): Call TabellaOrdinataDinamica(inizio,counterrange,Sortediverifica,vettoredastringaformazione,aRuotetmp,co,nProdotte,nclasse,contaesitipos,contaesitineg,contacasinongiocabili,quanteestrazioniverificare,contatorecasi)_
: Call PassaVettoreDastringaFormazioneRidottoDiUnaUnita_
: Call TabellaOrdinataDinamica(inizio,counterrange,Sortediverifica,vettoredastringaformazione,aRuotetmp,co,nProdotte,nclasse,contaesitipos,contaesitineg,contacasinongiocabili,quanteestrazioniverificare,contatorecasi)_
: Call Verificatutto(inizio,counterrange,Sortediverifica,vettoredastringaformazione,aRuotetmp,co,nProdotte,nclasse,contaesitipos,contaesitineg,contacasinongiocabili,quanteestrazioniverificare)