Risultati da 1 a 13 di 13

Discussione: Combinazioni



  1. #1
    L'avatar di ferposso61
    Clicca e Apri
    Data Registrazione
    Nov 2015
    LocalitÓ
    genova
    EtÓ
    56
    Messaggi
    28
    Versione Office
    2013
    Likes ricevuti
    0
    Likes dati
    4

    Combinazioni

    Buon giorno.
    E possibile con Excel creare una formula che in forma dinamica mi de le combinazioni possibile che si
    possono fare con un determinato numero de valori. Allego file e grazie per il vostro aiuto.
    File Allegati File Allegati

  2. #2
    L'avatar di Marius44
    Clicca e Apri
    Data Registrazione
    Sep 2015
    LocalitÓ
    Catania
    EtÓ
    73
    Messaggi
    3222
    Versione Office
    Excel2010
    Likes ricevuti
    627
    Likes dati
    155

    Re: Combinazioni

    Ciao ferposso61
    se la tua domanda Ŕ QUANTE combinazioni posso fare con 5 valori presi 3 per volta (detto terra-terra) la risposta Ŕ si. Questa la formula: =COMBINAZIONE(5;3)
    se invece vuoi l'ELENCO relativo al numero di combinazioni allora ti dico, ma vorrei essere smentito, che una simile formula non c'Ŕ. Si pu˛ far ricorso a VBA (ma io non ci ho mai provato).

    Ciao,
    Mario

  3. #3

    L'avatar di Rubik72
    Clicca e Apri
    Data Registrazione
    Dec 2015
    LocalitÓ
    Cosenza
    EtÓ
    45
    Messaggi
    2809
    Versione Office
    Excel 2013
    Likes ricevuti
    1020
    Likes dati
    979

    Re: Combinazioni

    Le combinazioni che richiedi si chiamano permutazioni (differenti dalle disposizioni). Ecco una routine che genere 3 o 4 permutazioni di colori:
    Codice: 
    Sub Permutazioni_3()
    Dim a As Integer, b As Integer, c As Integer
    Dim Colori As Variant
    Dim iRow As Long
    
    
    Colori = Array("Azzurro", "Bianco", "Blu", "Nero", "Grigio")
    iRow = 5
    
    
    For a = 1 To 5
        For b = 1 To 5
            If a = b Then GoTo 10
            For c = 1 To 5
                If c = a Or c = b Then GoTo 20
                iRow = iRow + 1
                Cells(iRow, 8) = Colori(a - 1)
                Cells(iRow, 9) = Colori(b - 1)
                Cells(iRow, 10) = Colori(c - 1)
    20:
            Next
    10:
        Next
    Next
    End Sub
    
    
    Sub Permutazioni_4()
    Dim a As Integer, b As Integer, c As Integer, d As Integer
    Dim Colori As Variant
    Dim iRow As Long
    
    
    Colori = Array("Azzurro", "Bianco", "Blu", "Nero", "Grigio")
    iRow = 5
    
    
    For a = 1 To 5
        For b = 1 To 5
            If a = b Then GoTo 10
            For c = 1 To 5
                If c = a Or c = b Then GoTo 20
                    For d = 1 To 5
                        If d = a Or d = b Or d = c Then GoTo 30
                        iRow = iRow + 1
                        Cells(iRow, 13) = Colori(a - 1)
                        Cells(iRow, 14) = Colori(b - 1)
                        Cells(iRow, 15) = Colori(c - 1)
                        Cells(iRow, 16) = Colori(d - 1)
    30:
                    Next
    20:
            Next
    10:
        Next
    Next
    End Sub
    
    
    Sub Disposizioni_3()
    Dim a As Integer, b As Integer, c As Integer
    Dim Colori As Variant
    Dim iRow As Long
    
    
    Colori = Array("Azzurro", "Bianco", "Blu", "Nero", "Grigio")
    
    
    For a = 1 To 5 - 2
        For b = a + 1 To 5 - 1
            For c = b + 1 To 5 - 0
                iRow = iRow + 1
                Cells(iRow, 8) = Colori(a - 1)
                Cells(iRow, 9) = Colori(b - 1)
                Cells(iRow, 10) = Colori(c - 1)
            Next
        Next
    Next
    End Sub
    Nel ciclo ho inserito anche una disposizione (la combinazione dei colori indipendentemente il posto che occupano)
    Ti consiglio questi video di approfondimento dove vengono spiegate in maniera semplice:
    Permutazioni
    Disposizioni
    Combinazioni

    EDIT: Scusa Marius non avevo fatto il refresh e non mi ero accorto che avevi giÓ risposto.

  4. I seguenti 7 utenti hanno dato un "Like" a Rubik72 per questo post:


  5. #4
    L'avatar di Marius44
    Clicca e Apri
    Data Registrazione
    Sep 2015
    LocalitÓ
    Catania
    EtÓ
    73
    Messaggi
    3222
    Versione Office
    Excel2010
    Likes ricevuti
    627
    Likes dati
    155

    Re: Combinazioni

    Ottimo lavoro, Rubik :255:
    Veramente eccellente.

    Ciao,
    Mario

  6. #5
    L'avatar di ferposso61
    Clicca e Apri
    Data Registrazione
    Nov 2015
    LocalitÓ
    genova
    EtÓ
    56
    Messaggi
    28
    Versione Office
    2013
    Likes ricevuti
    0
    Likes dati
    4

    Re: Combinazioni

    Grazie mille Rubik72 per il tuo lavoro ma io del VBA no capisco niente
    stavo cercando una formula che mi da tutte le combinazioni possibile
    e diversi colori hanno un ordine.

  7. #6
    L'avatar di dracoscrigno
    Clicca e Apri
    Data Registrazione
    May 2016
    LocalitÓ
    ferrara
    EtÓ
    41
    Messaggi
    2074
    Versione Office
    office pro 2010
    Likes ricevuti
    440
    Likes dati
    241

    Re: Combinazioni

    ferposso61.

    credo che tu debba chiarire se
    cerchi una formula che ti restituisca un numero (il numero di combinazioni possibili)

    oppure stai cercando una procedura che ti enunci esplicitamente ogni possibile combinazione (una tabella con scritte tutte le combinazioni)

  8. #7
    L'avatar di ferposso61
    Clicca e Apri
    Data Registrazione
    Nov 2015
    LocalitÓ
    genova
    EtÓ
    56
    Messaggi
    28
    Versione Office
    2013
    Likes ricevuti
    0
    Likes dati
    4

    Re: Combinazioni

    Grazie dracoscrigno per il tuo interesse non cerco il numero di combinazioni, cero una tabella con scritte tutte le combinazioni.
    Io stoi provando con la funzione Indice.

  9. #8
    L'avatar di ferposso61
    Clicca e Apri
    Data Registrazione
    Nov 2015
    LocalitÓ
    genova
    EtÓ
    56
    Messaggi
    28
    Versione Office
    2013
    Likes ricevuti
    0
    Likes dati
    4

    Re: Combinazioni

    Citazione Originariamente Scritto da Marius44 Visualizza Messaggio
    Ciao ferposso61
    se la tua domanda Ŕ QUANTE combinazioni posso fare con 5 valori presi 3 per volta (detto terra-terra) la risposta Ŕ si. Questa la formula: =COMBINAZIONE(5;3)
    se invece vuoi l'ELENCO relativo al numero di combinazioni allora ti dico, ma vorrei essere smentito, che una simile formula non c'Ŕ. Si pu˛ far ricorso a VBA (ma io non ci ho mai provato).

    Ciao,
    Mario
    Ciao Marius 44 io non cerco il numero di combinazioni sino il elenco de tutte le possibile combinazione. Grazie comunque per il tuo interesse a la mia domanda

  10. #9

    L'avatar di Rubik72
    Clicca e Apri
    Data Registrazione
    Dec 2015
    LocalitÓ
    Cosenza
    EtÓ
    45
    Messaggi
    2809
    Versione Office
    Excel 2013
    Likes ricevuti
    1020
    Likes dati
    979

    Re: Combinazioni

    Citazione Originariamente Scritto da ferposso61 Visualizza Messaggio
    Grazie mille Rubik72 per il tuo lavoro ma io del VBA no capisco niente
    stavo cercando una formula che mi da tutte le combinazioni possibile
    e diversi colori hanno un ordine.
    ╚ l'occasione giusta per cominciare

    Inviato dal mio GT-I9301I utilizzando Tapatalk

  11. #10
    L'avatar di ferposso61
    Clicca e Apri
    Data Registrazione
    Nov 2015
    LocalitÓ
    genova
    EtÓ
    56
    Messaggi
    28
    Versione Office
    2013
    Likes ricevuti
    0
    Likes dati
    4

    Re: Combinazioni

    Grazie ci provo allora come posso fare per copiare lo che tu mi hai fatto nel mio file
    Io ho provato con la funzione indice e confronta pero in certe celle i appare un triangolino verde e dopo me dice
    "La formula nella cella differisce dalle formule in quest'area del foglio di calcolo". Posso fare da meno o si pu˛
    aggiustare. Grazie di nuovo.
    File Allegati File Allegati

  12. #11

    L'avatar di Rubik72
    Clicca e Apri
    Data Registrazione
    Dec 2015
    LocalitÓ
    Cosenza
    EtÓ
    45
    Messaggi
    2809
    Versione Office
    Excel 2013
    Likes ricevuti
    1020
    Likes dati
    979

    Re: Combinazioni

    Per usare il codice del post #3 segui queste istruzioni:
    1. Apri l'edito VBA (ALT+F11)
    2. Inserisci/Modulo
    3. Copia il codice nel nuovo Modulo
    4. Nel foglio inserisci un pulsante (forma oppure Sviluppo/Inserisci) e associalo alla routine.

    P.S. se la scheda Sviluppo non Ŕ visibile vai a File/Opzioni/Personalizza Barra multifunzione e spunta "Sviluppo"

    Fammi sapere.

  13. #12

    L'avatar di cromagno
    Clicca e Apri
    Data Registrazione
    Aug 2015
    LocalitÓ
    Sardegna
    EtÓ
    37
    Messaggi
    4020
    Versione Office
    2013
    Likes ricevuti
    1228
    Likes dati
    923

    Re: Combinazioni

    Citazione Originariamente Scritto da ferposso61 Visualizza Messaggio
    Grazie ci provo allora come posso fare per copiare lo che tu mi hai fatto nel mio file
    Io ho provato con la funzione indice e confronta pero in certe celle i appare un triangolino verde e dopo me dice
    "La formula nella cella differisce dalle formule in quest'area del foglio di calcolo". Posso fare da meno o si pu˛
    aggiustare. Grazie di nuovo.
    Ciao a tutti,

    @ferposso61

    i "triangolini verdi" sono solo un'informazione. Questo perchŔ per ottenere il risultato voluto hai modificato le formule solo dove volevi che ti restituisse un risultato differente.
    Capirai che questo lo puoi fare se conosci giÓ il risultato, ma a questo punto l'uso della formula per automatizzare il calcolo non avrebbe pi¨ senso.

    Non ti ha risposto nessuno in merito alle formule per il semplice fatto che il lavoro proposto da Rubik (un saluto) Ŕ il migliore che tu possa ottenere col minimo sforzo.
    Con le formule, non dico che sia impossibile, ma si complicherebbe esponenzialmente all'aumentare delle combinazioni e quindi diventerebbe difficilmente gestibile... cosa che con il VBA si pu˛ gestire molto pi¨ facilmente grazie ai cicli (es. "For...next, Do...Loop, etc...).

    "Sono le persone che nessuno immagina che possano fare certe cose, quelle che fanno cose che nessuno pu˛ immaginare."

  14. #13
    L'avatar di ferposso61
    Clicca e Apri
    Data Registrazione
    Nov 2015
    LocalitÓ
    genova
    EtÓ
    56
    Messaggi
    28
    Versione Office
    2013
    Likes ricevuti
    0
    Likes dati
    4

    Re: Combinazioni

    Grazie a tutti per il vostro aiuto trattare di capire un poco del VBA

Discussioni Simili

  1. [Risolto] Tutte le combinazioni
    Di ferposso61 nel forum Domande su Excel in generale
    Risposte: 9
    Ultimo Messaggio: 09/02/17, 00:30
  2. Estrarre combinazioni da una riga
    Di dario nel forum Domande su Excel VBA e MACRO
    Risposte: 9
    Ultimo Messaggio: 12/09/16, 20:33
  3. combinazioni
    Di D@nilo nel forum Domande su Excel VBA e MACRO
    Risposte: 9
    Ultimo Messaggio: 29/08/16, 14:44

Permessi di Scrittura

  • Tu non puoi inviare nuove discussioni
  • Tu non puoi inviare risposte
  • Tu non puoi inviare allegati
  • Tu non puoi modificare i tuoi messaggi
  •