Help!

PC-Problemen?
De vrijwilligers van Oplossing.be zoeken gratis met u mee!

Hulp bij posten

Recente topics

Auteur Topic: alle mogelijke 6 cijfercombinaties van 1 tot 42  (gelezen 8753 keer)

0 leden en 1 gast bekijken dit topic.

Offline MarioVBM

  • Nieuw lid
  • Berichten: 6
  • Oplossing.be
alle mogelijke 6 cijfercombinaties van 1 tot 42
« Gepost op: 13 januari 2017, 14:42:44 »
Hallo

Ik zat al een hele tijd mijn hoofd te breken en naar een oplossing te zoeken en ik heb nooit een antwoord kunnen vinden. Omdat ik alles al uit de kast had gehaald om dit op te lossen, zonder resultaat, heb ik dan maar de zoektocht naar een antwoord laten vallen. Tot ik vandaag toevallig op jullie website ben gestoten en een paar leuke interessante vragen en antwoorden heb gevonden. Hopelijk kunnen jullie dit oplossen het zou veel voor mij betekenen.

De vraag gaat als volgt:

Men weet dat de er in de Belgische lotto 5 245 786 combinaties mogelijk zijn.

Eerste combinatie = 1-2-3-4-5-6

Combinatie nr 2= 1-2-3-4-5-7
Combinatie nr 3= 1-2-3-4-5-8
Combinatie nr 4= 1-2-3-4-5-9
Combinatie nr 38= 1-2-3-4-5-42
Combinatie nr 39= 1-2-3-4-6-7

De laatste combinatie en dus combinatie nr 5 245 786= 37-38-39-40-41-42

Dus is het mogelijk om alle combinaties via excel te laten genereren?
Zou het mogelijk zijn om een invulvak te hebben om te bepalen hoeveel getallen te kiezen uit hoeveel (vb 5 uit 50 of 6 uit 42 of 6 uit 89 of zelfs 2 uit 10)

Hopelijk kunnen jullie me helpen.

Offline RedHead

  • Excel-Expert
  • Ambassadeur
  • *****
  • Berichten: 2.277
  • Geslacht: Man
  • Met Excel lukt 't wel.... (toch???)
Re: alle mogelijke 6 cijfercombinaties van 1 tot 42
« Reactie #1 Gepost op: 15 januari 2017, 12:32:45 »
Dat zal dus altijd dit gaan opleveren...
Eerste combinatie = 1-2-3-4-5-6
Combinatie nr 2= 1-2-3-4-5-7
Combinatie nr 3= 1-2-3-4-5-8
Combinatie nr 4= 1-2-3-4-5-9
Enz...

Wat had jij voor uit kosten voor ogen?
______________________________

Groet, Leo

Offline pitufo

  • Ambassadeur
  • *****
  • Berichten: 1.343
  • Geslacht: Man
Re: alle mogelijke 6 cijfercombinaties van 1 tot 42
« Reactie #2 Gepost op: 15 januari 2017, 18:08:53 »
https://www.oplossing.be/excel/alle-combinaties-van-5cijfers-uit-een-lijst120-halen/msg224720/?topicseen#new
In bovenstaand onderwerp - waar je zelf overigens ook op gereageerd hebt - vind je al alle antwoorden op je vragen ! Wel even inloggen natuurlijk om toegang tot de bijlagen te krijgen.

Anderzijds : waarom iemand in vredesnaam meer dan 5 miljoen combinaties zou willen oplijsten is voor mij een enorm raadsel...
Mocht je dat toch willen doen, dan zal je de code die je daar vindt lichtjes moeten uitbreiden (o.a. omdat Excel te weinig rijen heeft), of anders kan je vanuit vba alles rechtstreeks in een tekstbestand schrijven.

By the way : de Belgische lotto werkt al geruime tijd met 45 getallen (dat geeft enkele ??? combinaties meer, met name 8145060)
"De computer doet wel degelijk wat je hem vraagt,
 maar NIET wat je DENKT dat je hem vraagt"

Offline MarioVBM

  • Nieuw lid
  • Berichten: 6
  • Oplossing.be
Re: alle mogelijke 6 cijfercombinaties van 1 tot 42
« Reactie #3 Gepost op: 17 januari 2017, 10:00:30 »
Klopt Pitufo,
maar ik vind er de code niet

Offline pitufo

  • Ambassadeur
  • *****
  • Berichten: 1.343
  • Geslacht: Man
Re: alle mogelijke 6 cijfercombinaties van 1 tot 42
« Reactie #4 Gepost op: 20 januari 2017, 18:37:37 »
Dan heb je waarschijnlijk ook het tabblad "Ontwikkelaars" niet op het lint staan ?
Klik op de Office-knop en daarna op "Opties voor Excel" en dan op "Populair" en zet een vinkje bij "Tabblad Ontwikkelaars op het lint weergeven". Bevestig met "OK".
Op tabblad "Ontwikkelaars" vind je vervolgens "Programmacode weergeven".
Daar kan je trouwens ook met Alt-F11 komen.
"De computer doet wel degelijk wat je hem vraagt,
 maar NIET wat je DENKT dat je hem vraagt"

Offline MarioVBM

  • Nieuw lid
  • Berichten: 6
  • Oplossing.be
Re: alle mogelijke 6 cijfercombinaties van 1 tot 42
« Reactie #5 Gepost op: 29 januari 2017, 14:57:53 »
bedankt, maar welke excel file die vind ik niet.

Offline SoftAid

  • Administrator
  • Ambassadeur
  • *****
  • Berichten: 20.128
  • Geslacht: Man
  • Nobody is perfect, not even me...
Re: alle mogelijke 6 cijfercombinaties van 1 tot 42
« Reactie #6 Gepost op: 29 januari 2017, 15:29:54 »
Hallo MarioVBM,

Pitufo verwees reeds naar dat bestand in een vorige reactie: KLIK HIER voor het bedoelde topic.

:) SoftAid :)             
Maximum grootte bijlagen vergroot naar 4 MB
Dubbelposten, het posten op verschillende forums van dezelfde vraag, dient op
voorhand gemeld te worden, met een link naar het topic op de andere site.
Overtreding van deze regel kan bestraft worden met verbanning !

Offline RedHead

  • Excel-Expert
  • Ambassadeur
  • *****
  • Berichten: 2.277
  • Geslacht: Man
  • Met Excel lukt 't wel.... (toch???)
Re: alle mogelijke 6 cijfercombinaties van 1 tot 42
« Reactie #7 Gepost op: 29 januari 2017, 15:43:32 »
Ik denk dat de TS niet 1 pagina terug gaat (van de 2...). Op pagina 2 van het topic staat namelijk geen bijlage meer.
Dus om het héél specifiek te maken.. Klik hier voor de juiste reactie mét bijlage...  ;)
______________________________

Groet, Leo

Offline MarioVBM

  • Nieuw lid
  • Berichten: 6
  • Oplossing.be
Re: alle mogelijke 6 cijfercombinaties van 1 tot 42
« Reactie #8 Gepost op: 31 januari 2017, 18:08:34 »
allen bedankt, voor de hulp.

Zoals Pitufo meldde heeft excel te weinig rijen hoe kan ik het nu overschrijven via vba naar Excel?

Offline dizzl

  • Ambassadeur
  • *****
  • Berichten: 2.345
  • I've Upped my standards,now,up yours!
Re: alle mogelijke 6 cijfercombinaties van 1 tot 42
« Reactie #9 Gepost op: 31 januari 2017, 18:51:28 »
je zou ze in 2,3 of 4 kolommen kunnen zetten?
Systeem  : Intel Core i5-4440 3.1Ghz, 3.1GHz 16Giga Ram 64Bits
Software : Windows 10 professional, Avira, Office 2016 Professional

Offline MarioVBM

  • Nieuw lid
  • Berichten: 6
  • Oplossing.be
Re: alle mogelijke 6 cijfercombinaties van 1 tot 42
« Reactie #10 Gepost op: 06 februari 2017, 09:46:31 »
dizzl ik ken amper iets van VBA, heb enkele jaren geleden excel gekregen maar vba en macro's hebben we vluchtig eens gezien.

Offline dizzl

  • Ambassadeur
  • *****
  • Berichten: 2.345
  • I've Upped my standards,now,up yours!
Re: alle mogelijke 6 cijfercombinaties van 1 tot 42
« Reactie #11 Gepost op: 06 februari 2017, 11:11:56 »
Allicht kan het eleganter maar dit is het principe voor 4 kolommen
Zo geraak je aan 4 miljoen combinaties maar er zijn er een 3 miljard.
Als je elke combinatie (vb gescheiden door een komma) in één cel zou zetten, kom je er wel.
Sub Knop1_Klikken()
    'max is het aantal getallen waaruit je kan kiezen
   
    Max = 45
    rij = 1
   
    'We schrijven in 4 kolommen
    teller = 1
   
    For g1 = 1 To Max
        For g2 = g1 + 1 To Max
            For g3 = g2 + 1 To Max
                For g4 = g3 + 1 To Max
                    For g5 = g4 + 1 To Max
                        For g6 = g5 + 1 To Max
                            If teller = 1 Then
                                Range("a" & rij) = g1
                                Range("b" & rij) = g2
                                Range("c" & rij) = g3
                                Range("d" & rij) = g4
                                Range("e" & rij) = g5
                                Range("f" & rij) = g6
                             End If
                            If teller = 2 Then
                                Range("h" & rij) = g1
                                Range("i" & rij) = g2
                                Range("j" & rij) = g3
                                Range("k" & rij) = g4
                                Range("l" & rij) = g5
                                Range("m" & rij) = g6
                             End If
                            If teller = 3 Then
                                Range("o" & rij) = g1
                                Range("p" & rij) = g2
                                Range("q" & rij) = g3
                                Range("r" & rij) = g4
                                Range("s" & rij) = g5
                                Range("t" & rij) = g6
                             End If
                            If teller = 4 Then
                                Range("o" & rij) = g1
                                Range("p" & rij) = g2
                                Range("q" & rij) = g3
                                Range("r" & rij) = g4
                                Range("s" & rij) = g5
                                Range("t" & rij) = g6
                                teller = 0
                                rij = rij + 1
                             End If
                             teller = teller + 1
                               

                                           
                        Next g6
                    Next g5
                Next g4
            Next g3
        Next g2
    Next g1
    MsgBox "klaar"
End Sub
Systeem  : Intel Core i5-4440 3.1Ghz, 3.1GHz 16Giga Ram 64Bits
Software : Windows 10 professional, Avira, Office 2016 Professional

Offline pitufo

  • Ambassadeur
  • *****
  • Berichten: 1.343
  • Geslacht: Man
Re: alle mogelijke 6 cijfercombinaties van 1 tot 42
« Reactie #12 Gepost op: 06 februari 2017, 12:36:53 »
Hallo dizzl,

Het is niet dat ik weigerde om voor een oplossing te zorgen (zie mijn voorgaande bijdragen), maar ik hoopte dat TS eerst een tipje van de sluier zou willen oplichten over het WAAROM. Het mysterie blijft evenwel bestaan...
Maar na je verdienstelijke poging heb ik niet veel keuze meer...
Ik vraag me wel af hoe je aan 3 miljard combinaties komt. Er zijn er niet meer (of niet minder) dan 8145060, namelijk : 45!/((45-6)!*6!)
Met alle tellers "to max" te laten lopen ga je ook in de problemen komen; je krijgt in sommige resultaten dan meermaals hetzelfde getal.
In de oplossing hierbij heb ik een en ander opgevangen. Er is ook voor gekozen (maar dat is een kwestie van smaak) om de resultaten van boven naar onder weer te geven, en pas naar rechts te gaan als alle rijen "opgebruikt" zijn.

Mvg,
pitufo
"De computer doet wel degelijk wat je hem vraagt,
 maar NIET wat je DENKT dat je hem vraagt"

Offline dizzl

  • Ambassadeur
  • *****
  • Berichten: 2.345
  • I've Upped my standards,now,up yours!
Re: alle mogelijke 6 cijfercombinaties van 1 tot 42
« Reactie #13 Gepost op: 07 februari 2017, 07:21:09 »
Dit is idd eleganter en hoe kwam ik bij 3 miljard ..om de verkeerde manier allicht ,)
goed gedaan!
Systeem  : Intel Core i5-4440 3.1Ghz, 3.1GHz 16Giga Ram 64Bits
Software : Windows 10 professional, Avira, Office 2016 Professional

 


www.combell.com