Condividi:        

Excel trovare gli addendi non ripetuti che danno una somma

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

Excel trovare gli addendi non ripetuti che danno una somma

Postdi abgate » 24/02/19 10:47

Buongiorno a tutti, mi ritrovo nuovamente a chiedere il vostro aiuto
devo trovare tutte le somme di 5 numeri non ripetuti che costituiscono un numero definito da me.
I numeri sono:
1
2
3
5
6
9
12
13
14
16
19
22
23
24
25
26
28
29
31
32
33
34
35
37
38
41
43
46
48
49
50
52
53
55

Il valore da trovare è variabile, ma comunque compreso tra 90 e 200.

per fare un esempio pratico, per ottenere 136 una delle n possibilità è 55+43+28+1+9, tutti numeri compresi nella lista.
ho provato a cercare qualcosa sul sito, ma credo di non aver trovato nulla che faccia a caso mio
è un problema risolvibile secondo voi?
grazie sempre e buona domenica
abgate
Newbie
 
Post: 7
Iscritto il: 21/04/18 14:25

Sponsor
 

Re: Excel trovare gli addendi non ripetuti che danno una som

Postdi Marius44 » 24/02/19 21:04

Ciao
Prova a dare uno sguardo a questo indirizzo http://www.pc-facile.com/forum/viewtopic.php?f=26&t=110098 e adattala alle tue esigenze (cioà non far calcolare la combinazione se ci sono due o più righe contigue)
Ciao,
Mario
Marius44
Utente Senior
 
Post: 658
Iscritto il: 07/09/15 22:00

Re: Excel trovare gli addendi non ripetuti che danno una som

Postdi Anthony47 » 24/02/19 21:38

Mario ti ha gia' dato la cosa piu' simile alla tua richiesta.
Tuttavia le macro contenute in quel file sono poco facilmente modificabili; e poi il limite di 5 addendi consente qualche velocizzazione all'algoritmo di ricerca.

Per dire che ho sviluppato una variante di quel file, che consente l'impostazione del numero di addendi da valutare, con la scelta "Fino a N" oppure "Esattamante N"

Il nuovo file e' scaricabile qui: https://www.dropbox.com/s/stnzsg2cpgn2h ... .xlsm?dl=0

A parte la scelta del numero di addendi, le norme di utilizzo sono le stesse della discussione di cui hai gia' il link; e comunque sono ribadite nel foglio Help.

Fai sapere...
Avatar utente
Anthony47
Moderatore
 
Post: 19431
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Excel trovare gli addendi non ripetuti che danno una som

Postdi Marius44 » 24/02/19 23:09

Ciao Anthony
Conserverò gelosamente anche questo tuo lavoro (e cercherò di ... capirlo :) )

Ma sono convinto che l'OP nel chiedere " tutte le somme di 5 numeri non ripetuti " intendesse anche che non fossero in righe contigue. Se non sono in errore, aggiungerei un pulsante al quale collegare questa macro
Codice: Seleziona tutto
Sub EliminaRigheContigue()

Call CercaComb308

'dopo aver calcolato con la macro di Anthony
'ripasso il tutto per eliminare quelle che
'hanno due o più numeri in righe contingue
uc = Cells(1, Columns.Count).End(xlToLeft).Column
ur = Cells(Rows.Count, 3).End(xlUp).Row
For J = 3 To uc
  For I = 2 To ur - 4
    If Cells(I, J) <> "" And Cells(I + 1, J) <> "" Then
      Cells(1, J) = ""
      Exit For
    End If
  Next I
Next J
End Sub


Ciao,
Mario
Marius44
Utente Senior
 
Post: 658
Iscritto il: 07/09/15 22:00

Re: Excel trovare gli addendi non ripetuti che danno una som

Postdi abgate » 25/02/19 10:35

grazie Anthony e Marius, è proprio quello che cercavo, funziona perfettamente. :)
abgate
Newbie
 
Post: 7
Iscritto il: 21/04/18 14:25

Re: Excel trovare gli addendi non ripetuti che danno una som

Postdi raimea » 23/12/21 16:30

ciao
ho scaricato questo file come indicato sopra qui:

https://www.dropbox.com/s/stnzsg2cpgn2h%20...%20.xlsm?dl=0

ma poi il file mi va in errore qui:
macro cercacombo308 quella avviata dal puls >> avvia

Codice: Seleziona tutto
    End If
    If FlAvvia = True Then Exit Do
Loop
OB_UpTo = Foglio1.OB_FinoA.Value   '<<<  si blocca qui

myT0 = Timer
With UserForm2



chiedo , c'e una versione funzionante ?

grazie
S.O. win10, Excell 2019
Avatar utente
raimea
Utente Senior
 
Post: 1427
Iscritto il: 11/02/10 07:33
Località: lago

Re: Excel trovare gli addendi non ripetuti che danno una som

Postdi Anthony47 » 23/12/21 19:04

Credo che parli della versione CercaCombinaz_V1-308_Vers-N-Valori.xlsm
Io l'ho scaricato e avviato con le impostazioni correnti.
Dopo 40 secondi ha interrotto la ricerca dopo aver trovato 999 combinazioni (e' uno dei limiti imposti).

Tu in quali condizioni hai provato? Hai spostato il codice in altro file?

Ciao
Avatar utente
Anthony47
Moderatore
 
Post: 19431
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Excel trovare gli addendi non ripetuti che danno una som

Postdi raimea » 24/12/21 07:27

ciao
- no , non ho spostato il codice in altro file
- non ho cambiato i valori in col B , sono quelli del file scaricato

- inoltre se lo volessi provare,
NON mi permette di spuntare la voce " esattamente"

vi allego il file che ho scaricato sopra
https://www.dropbox.com/scl/fi/xm6nvomszsgwi3la8602e/CercaCombinaz_V1-308_Vers-N-Valori.xlsm?dl=0&rlkey=66i4iyp0vu49h2ktse

Immagine

https://www.dropbox.com/s/wb6jfj8hmqh6pkm/241221.jpg?dl=0

ciao
S.O. win10, Excell 2019
Avatar utente
raimea
Utente Senior
 
Post: 1427
Iscritto il: 11/02/10 07:33
Località: lago

Re: Excel trovare gli addendi non ripetuti che danno una som

Postdi Anthony47 » 24/12/21 12:47

Il file non e' accessibile
Avatar utente
Anthony47
Moderatore
 
Post: 19431
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Excel trovare gli addendi non ripetuti che danno una som

Postdi raimea » 24/12/21 12:53

S.O. win10, Excell 2019
Avatar utente
raimea
Utente Senior
 
Post: 1427
Iscritto il: 11/02/10 07:33
Località: lago

Re: Excel trovare gli addendi non ripetuti che danno una som

Postdi Anthony47 » 24/12/21 13:19

Mi spiace, ma anche il "tuo" file e' perfettamente funzionante: in meno di 10 secondi trova 999 soluzioni e interrompe la ricerca...

Immagino che hai gia' provato a riavviare il pc...

Come unico suggerimento, prova a sostituire i vari "Foglio1" con Sheets("LAVORO")

Ciao
Avatar utente
Anthony47
Moderatore
 
Post: 19431
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Excel trovare gli addendi non ripetuti che danno una som

Postdi raimea » 24/12/21 14:20

ciao
niente fare ,anche mettendo foglio 1
parte mi presenta maschera di selezionare il tempo
ma poi si blocca

Codice: Seleziona tutto
    If FlAvvia = True Then Exit Do
Loop
OB_UpTo = Sheets("LAVORO").OB_FinoA.Value  '<<< si blocca

myT0 = Timer
With UserForm2


pazienza
grazie
ciao
S.O. win10, Excell 2019
Avatar utente
raimea
Utente Senior
 
Post: 1427
Iscritto il: 11/02/10 07:33
Località: lago

Re: Excel trovare gli addendi non ripetuti che danno una som

Postdi Anthony47 » 24/12/21 15:25

Ma se apri un NUOVO file excel, riesci a inserire sul foglio un "Pulsante di Opzione" prelevandolo dalla casella Controlli ActiveX?
Hai fatto qualche aggiornamento particolare, ultimamente?

Il mio sospetto e' che per qualche motivo il tuo pc non dispone piu' degli ActiveX, in questo caso dovresti riuscire a far funzionare il file in questo modo:
-sostituisci la riga che va in errore con
Codice: Seleziona tutto
OB_UpTo = Foglio1.Range("A17")

In A17 di foglio LAVORO metti la formula
Codice: Seleziona tutto
=SE(A16>0;FALSO;SE(A16=0;VERO;"ERRORE!"))


Formatta ora A16 con la categoria Personalizzato e con il tipo
Codice: Seleziona tutto
"ESATTAMENTE";-#.##0;"FINO A";"Errore!"


Ora puoi usare A16 per indicare "Fino a [n elementi]" oppure "Esattamente [n elementi]" rispettivamente scrivendoci 0 oppure 1

Mi interessano in ogni caso anche le risposte ai quesiti iniziali

Ciao
Avatar utente
Anthony47
Moderatore
 
Post: 19431
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Excel trovare gli addendi non ripetuti che danno una som

Postdi raimea » 24/12/21 15:42

ciao
ora funziona quasi tutto

Ma se apri un NUOVO file excel, riesci a inserire sul foglio un "Pulsante di Opzione" prelevandolo dalla casella Controlli ActiveX?


az
non non melo permette ne nel tuo file
ne in uno nuovo

- non ho fatto aggiornamenti recentemente

- ho riportato le modifiche richieste
ora mi trova le 999 combinazioni

In A16
se metto 1 scrive esattamente e in A17 diventa Falso
se metto 0 scrive fino A e in A17 diventa Vero

ma in entrambi i casi mi dice che ha trovato 999 combinazioni

forse non ho ben capito come usare la casella A16 ?

ciao
S.O. win10, Excell 2019
Avatar utente
raimea
Utente Senior
 
Post: 1427
Iscritto il: 11/02/10 07:33
Località: lago

Re: Excel trovare gli addendi non ripetuti che danno una som

Postdi raimea » 24/12/21 15:59

ciao
non posso piu modif post sopra continuo qui......

ho letto e trovato come attivare i Controlli ActivX

ora funziona anche la vers senza le modifiche
e posso scegliere il numero addendi


PS
anche con le formule tutto ok
ho capito come interpretare la casella A16

grazie

ciao
S.O. win10, Excell 2019
Avatar utente
raimea
Utente Senior
 
Post: 1427
Iscritto il: 11/02/10 07:33
Località: lago


Torna a Applicazioni Office Windows


Topic correlati a "Excel trovare gli addendi non ripetuti che danno una somma":


Chi c’è in linea

Visitano il forum: Nessuno e 18 ospiti

cron