Combinazioni possibili

[OscarPartecipante Oscar Karma: 45 pts]

Guidoc ha scritto:

sembra andare bene, ma come faccio a portarla sul file dove mi serve?

Ci metti un pulsante copi la macro poi la incolli , ma devono essere nella stessa posizione e nello stesso foglio altrimenti niente

 

Prova anche questa è molto più veloce della prima 

Si può sempre applicare il calcolo del tempo di esecuzione

Allegati:

You must be logged in to view attached files.

[OscarPartecipante Oscar Karma: 45 pts]

Se non ci riesci mandami l'originale

[GuidocPartecipante Guidoc]

sembrava andare bene ma in realtà intercetta il primo ambo uscito, non l'ultimo.

Inoltre non me li da tutti, ti mando immagine per farti vedere

Allegati:

You must be logged in to view attached files.

[OscarPartecipante Oscar Karma: 45 pts]

Guidoc ha scritto:

sembrava andare bene ma in realtà intercetta il primo ambo uscito, non l'ultimo.

Dall'immagine non si capisce niente , probabilmente hai sbagliato qualcosa nel copiarlo vedi se l'archivio e in ordine come quello che hai mandato a me o è invertito

[OscarPartecipante Oscar Karma: 45 pts]

Ho fatto un controllo va benissimo

[GuidocPartecipante Guidoc]

Hai ragione. Funziona. Non funzionava perche calcolava da 4 a 116.

Però prende un po di tempo. Ci vorrebbe una barra di avanzamento per vedere a che punto di avanzamento e arrivata in un dato momento. Qualcosa di simile è presente nel tan Distanze

[OscarPartecipante Oscar Karma: 45 pts]

Guidoc ha scritto:

Hai ragione. Funziona. Non funzionava perche calcolava da 4 a 116.

Sei capace di metterla , comunque con una barra rallenta ancora di più

[OscarPartecipante Oscar Karma: 45 pts]

Vedi come ho fatto poi prova a farlo nel tuo

Allegati:

You must be logged in to view attached files.

[GuidocPartecipante Guidoc]

eseguendo mi da errore 424 Necessario Oggetto utilizzando l'85.2

Private Sub CommandButton1_Click()
Application.Calculation = xlManual
Labell.Visible = True
For i = 4 To 3200
Label2.Width = i / 3200 * 183
DoEvents
For Y = 3 To 4007
Conta = 0
For X = 1 To 2
If WorksheetFunction.CountIf(Foglio4.Range("E" & i, "J" & i), Foglio5.Cells(Y, 5 + X)) Then
Conta = Conta + 1
If Conta = 2 Then Foglio5.Cells(Y, 9) = Foglio4.Cells(i, 4): Conta = 0: Exit For
End If
Next
Next
Next
Label1.Visible = False
Label2.Width = 0
Application.Calculation = xlAutomatic
Application.ScreenUpdating = True
End Sub

[OscarPartecipante Oscar Karma: 45 pts]

Guidoc ha scritto:

eseguendo mi da errore 424 Necessario Oggetto utilizzando l'85.2

Manca le Label1 e la Label2  le devi mettere tu

 Labell.Visible = True    <<<<  Sostituisci con   Label1.Visible=True

[GuidocPartecipante Guidoc]

come faccio ad aggiungerle?

[OscarPartecipante Oscar Karma: 45 pts]

Guidoc ha scritto:

come faccio ad aggiungerle?

Da sviluppo inserisci

[OscarPartecipante Oscar Karma: 45 pts]

Copiale da questo foglio poi le incolli nel tuo dove ti servono le Label sono 2 una dentro l'altra che fa da cornice

Allegati:

You must be logged in to view attached files.

[GuidocPartecipante Guidoc]

ora va e sembra andare bene, grazie!

[pino88 pino88]

ciao, in excel inserisco nella barra della formula =combinazione(10;2) e mi da come risultato 45( chef sono led combinazioni con 10 numeri). mac sea volessi vedere le 45 combinazioni in altrettante celle , come posso visualizzarle?

[lucy89 lucy89]

ciao, in excel inserisco nella barra della formula =combinazione(10;2) e mi da come risultato 45( che sono le combinazioni con 10 numeri). ma se volessi vedere le 45 combinazioni in altrettante celle , come posso visualizzarle?

[OscarPartecipante Oscar Karma: 45 pts]

lucy89 ha scritto:

combinazione(10;2)

La formula  combinazione è solo un calcolo matematico (non uno sviluppo)

[Marius44Moderatore Marius44 Karma: 58 pts]

Salve a tutti

Premesso che non è consigliabile accodarsi ad una discussione di un anno fa (ne va della visibilità), per fare quello che vuoi occorre VBA.

Apri una tua discussione e allega un file d'esempio con ciò che vuoi ottenere.

Ciao,

Mario

[Autore]

Articoli