velocizzare macro

[Statix]

Ciao a tutti,
dovrei velocizzare questa macro se è possibile

Codice: Seleziona tutto

Sub Cinquina()
Dim I As Integer: Dim J As Integer: Dim K As Integer: Dim L  As Integer: Dim M As Integer




For I = 1 To 86
For J = 1 + I To 87
For K = 1 + J To 88
For L = 1 + K To 89
For M = 1 + L To 90
   
Range("A2") = I
Range("B2") = J
Range("C2") = K
Range("D2") = L
Range("E2") = M

Next M
Next L
Next K
Next J
Next I
End Sub

[wallace&gromit]

Magari ci spieghi prima che senso ha?

[klingklang]

Direi che genera tutte le possibili cinquine del lotto. Salvo che poi le scrive tutte nello stesso punto e quindi alla fine avrai una sola cinquina...
Da parte mia, se lo desideri, posso suggerirti di provare il mio (lungamente testato) strumento per la generazione di combinazioni di elementi: fa parte del mio programma e lo trovi qui. Devi scrivere i numeri da 1 a 90, selezionarli, avviare lo strumento e selezionare "Combinazioni semplici di 90 elementi presi 5 a 5". Tempo di esecuzione sulla mia macchina, circa 10 minuti (sono oltre 43 milioni di combinazioni)

[Statix]

ciao a tutti, ciao KlingKlang, wallace
in effetti la macro sviluppa tutte le cinquine di 90 numeri, nello stesso range A2:E2,
ma ho una condizione in F1 che se rispettata mi salva la cinquina nel range H2:M2 accodandole di volta in volta
quindi non serve scriverle tutte le cinquine.

[klingklang]

In tal caso, al meglio delle mie conoscenze, non c'è molto da velocizzare. Se vedessimo tutta la macro, con le condizioni da rispettare e il successivo accodamento, magari si potrebbe fare qualcosa, in ogni caso lascio la parola ai miei più validi colleghi, anche perché per mia policy personale ho deciso di non contribuire allo sviluppo di sistemi per il gioco d'azzardo

[Statix]

ok, grazie per il momento, più tardi vedo di postare un esempio di cosa dovrei realizzare

[wallace&gromit]

A parte l'effetto scenico (discutibile) di vedere i numerini muoversi sullo schermo non vedo l'interesse di fare scrivere ogni volta le cinquine nelle celle. Ovviamente è questo il punto che rallenta il tutto. Quindi il consiglio è di fare girare i tuoi loop e confrontare nella macro l'eventuale coincidenza con i tuoi vincoli, al limite fai scrivere le cinquine nelle celle solo in quei casi in cui trovi una combinazione che corrisponde alle tue richieste.

[Anthony47]

Quale e' la condizione scritta in F1, per vedere come portarla in una macro?

Intanto potresti vedere se riesci a usare quanto proposto ad altro utente qui: viewtopic.php?f=26&t=110340#p647710
Il file di cui trovi il link sviluppa le combinazioni di N elementi a gruppi di K con verifica che la somma dei fattori sia quanto impostato in P2

Come lì scrivo

Il controllo del vincolo della somma viene fatto dalla Function cCOLSum in Modulo1; se ci sono altri controlli da fare alle combinazioni calcolate quello e' l'aggancio in cui inserirsi

Quindi in prima battuta potresti vedere se riesci autonomamente a inserire all'interno della Function cCOLSum la condizione che hai in mente tu. Noi siamo qui

Ciao a tutti