Risultati da 1 a 10 di 10

Discussione: combinazioni



  1. #1
    L'avatar di D@nilo
    Clicca e Apri
    Data Registrazione
    Jan 2016
    LocalitÓ
    Roma
    EtÓ
    45
    Messaggi
    1170
    Versione Office
    Excel 2010
    Likes ricevuti
    509
    Likes dati
    571

    combinazioni

    Buonasera a tutti il quesito Ŕ questo Ŕ possibile creare una macro che dati i numeri da 0 a 9 mi scriva tutte le combinazioni di 6 numeri?

  2. #2

    L'avatar di scossa
    Clicca e Apri
    Data Registrazione
    Jul 2015
    LocalitÓ
    Verona Provincia
    EtÓ
    57
    Messaggi
    1017
    Versione Office
    .
    Likes ricevuti
    366
    Likes dati
    0

    Re: combinazioni

    Direi di sý, sono solo 999.999 combinazioni
    Bye!
    scossa
    scossa's web site
    ___
    Se tu hai una mela, e io ho una mela, e ce le scambiamo, allora tu ed io abbiamo sempre una mela per uno. Ma se tu hai un'idea, ed io ho un'idea, e ce le scambiamo, allora abbiamo entrambi due idee. (George Bernard Shaw)

  3. #3
    L'avatar di ggratis
    Clicca e Apri
    Data Registrazione
    Sep 2015
    LocalitÓ
    Lecce - Pisa
    EtÓ
    45
    Messaggi
    737
    Versione Office
    Excel 2010
    Likes ricevuti
    257
    Likes dati
    215

    Re: combinazioni

    a meno che non intenda 10!/6!*(10-6)!=210

  4. #4
    L'avatar di D@nilo
    Clicca e Apri
    Data Registrazione
    Jan 2016
    LocalitÓ
    Roma
    EtÓ
    45
    Messaggi
    1170
    Versione Office
    Excel 2010
    Likes ricevuti
    509
    Likes dati
    571

    Re: combinazioni

    Se non vado errato il prontuario del lotto dice che con 10 numeri si possono fare 210 sestine

  5. #5
    L'avatar di ggratis
    Clicca e Apri
    Data Registrazione
    Sep 2015
    LocalitÓ
    Lecce - Pisa
    EtÓ
    45
    Messaggi
    737
    Versione Office
    Excel 2010
    Likes ricevuti
    257
    Likes dati
    215

  6. #6
    L'avatar di GiuseppeMN
    Clicca e Apri
    Data Registrazione
    Oct 2015
    LocalitÓ
    Mantova
    Messaggi
    864
    Versione Office
    2000 - 2013
    Likes ricevuti
    285
    Likes dati
    160

    Re: combinazioni

    Buona sera a Tutti.

    Credo che 210 combinazioni sia il valore corretto.

    Premetto che "non Ŕ tutta farina del mio sacco"; mi sono semplicemente limitatoa ad adattare alla Richiesta di Danilo un Codice trovato in Forum.

    Codice: 
    Option Explicit
    
    Sub Prova()
    Application.ScreenUpdating = False
    Dim x As Byte, y As Byte, i As Byte
    Dim j As Integer, k As Integer, l As Integer, m As Integer, n As Integer
        With Columns("D:I").EntireColumn
            .Hidden = False
            .ClearContents
        End With
        
        y = 4
        x = 3
        i = 3
        
        While Cells(i, 1) <> ""
            j = i + 1
                While Cells(j, 1) <> ""
                    k = j + 1
                    While Cells(k, 1) <> ""
                        l = k + 1
                        While Cells(l, 1) <> ""
                            m = l + 1
                            While Cells(m, 1) <> ""
                                n = m + 1
                                    While Cells(n, 1) <> ""
                                    Cells(x, y) = (Cells(i, 1))
                                    y = y + 1
                                    Cells(x, y) = (Cells(j, 1))
                                    y = y + 1
                                    Cells(x, y) = (Cells(k, 1))
                                    y = y + 1
                                    Cells(x, y) = (Cells(l, 1))
                                    y = y + 1
                                    Cells(x, y) = (Cells(m, 1))
                                    y = y + 1
                                    Cells(x, y) = (Cells(n, 1))
                                    x = x + 1
                                    n = n + 1
                                    y = 4
                                Wend
                                m = m + 1
                                y = 4
                            Wend
                            l = l + 1
                            y = 4
                        Wend
                        k = k + 1
                        y = 4
                    Wend
                    j = j + 1
                    y = 4
                Wend
                i = i + 1
                y = 4
        Wend
            Range("D2") = Range("D65536").End(xlUp).Row - 2 & " Combinazioni"
    Application.ScreenUpdating = True
    End Sub

    A disposizione.

    Buon fine settimana a Tutti.

    Giuseppe
    File Allegati File Allegati
    Windows XP Excel 2000 - Windows 10 Excel 2013

  7. #7

    L'avatar di scossa
    Clicca e Apri
    Data Registrazione
    Jul 2015
    LocalitÓ
    Verona Provincia
    EtÓ
    57
    Messaggi
    1017
    Versione Office
    .
    Likes ricevuti
    366
    Likes dati
    0

    Re: combinazioni

    Stavo "babbiando" (c'era anche lo smile), visto che non ha specificato di cosa parlava sono stato sul generico ed ho indicato la condizione peggiore: 0 euro, 1 euro, ...., 2.399 euro, .... 999.999 euro (o euri?)
    Bye!
    scossa
    scossa's web site
    ___
    Se tu hai una mela, e io ho una mela, e ce le scambiamo, allora tu ed io abbiamo sempre una mela per uno. Ma se tu hai un'idea, ed io ho un'idea, e ce le scambiamo, allora abbiamo entrambi due idee. (George Bernard Shaw)

  8. #8
    L'avatar di D@nilo
    Clicca e Apri
    Data Registrazione
    Jan 2016
    LocalitÓ
    Roma
    EtÓ
    45
    Messaggi
    1170
    Versione Office
    Excel 2010
    Likes ricevuti
    509
    Likes dati
    571

    Re: combinazioni

    grazie a tutti.....

  9. #9
    L'avatar di raimea
    Clicca e Apri
    Data Registrazione
    Jun 2016
    LocalitÓ
    lago
    EtÓ
    57
    Messaggi
    2
    Versione Office
    2010
    Likes ricevuti
    2
    Likes dati
    0

    Re: combinazioni


  10. #10

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

    Re: combinazioni

    Ne abbiamo giÓ discusso QUI

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 ferposso61 nel forum Domande su Excel in generale
    Risposte: 12
    Ultimo Messaggio: 25/05/16, 22:04

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
  •