Alle mogelijke getallen bestaande uit XXX unieke cijfers

[Renee123]

Ik zou graag Excel, bijv. via een macro of VBA, een overzicht willen laten genereren van alle mogelijke getallen. Daarbij geldt de voorwaarde dat het getal bestaat uit de cijfers 0 t/m XXX en elk cijfer mag maar 1x voorkomen.

Dus stel XXX is 1, dan zijn "alle" mogelijke opties 01 en 10 (aantal mogelijkheden is 2 faculteit).

Als XXX is 2, dan zijn de opties 012, 021, 102, 120, 201 en 210 (3 faculteit).

Voor deze voorbeelden is het sneller om het handmatig even uit te werken. Maar nou wil ik er naar toe dat XXX bijvoorbeeld 6 of 8 is. Dat maakt het aantal mogelijkheden al te veel om het even snel zelf op te stellen.

Heeft iemand een slim idee hoe ik dit met behulp van Excel kan doen?

 

[sylvester-ponte]

Renee, wat ga je er mee doen?
hier een oud knutseltje van mij.
het is een afbeelding van de natuurlijke getallen op de permutaties van de letters in een string.
als je 0 in geeft geeft de function het aantal permutaties terug.

 

[Renee123]

Renee, wat ga je er mee doen?

Ik wil op een snelle manier alle mogelijke getallen laten genereren uit XXX cijfers waarbij elk cijfer maar 1x mag voorkomen. Deze reeks aan getallen heb ik nodig voor een volgende berekeningsstap.

 

[sylvester-ponte]

interessant, stuur eens een voorbeeldje met hoe het er uit moet gaan zien. (en eventueel ook wat er verder mee gebeurt)

 

[Renee123]

Als de getallen uit de cijfers 0 en 1 moeten bestaan is dit de uitkomst:
01
10

Als de getallen uit de cijfers 0, 1 en 2 moeten bestaan is dit de uitkomst:
012
021
102
120
201
210


Als de getallen uit de cijfers 0, 1, 2 en 3 moeten bestaan is dit de uitkomst:
0123
0132
0213
0231
0312
0321
1023
1032
1203
1230
1302
1320
2013
2031
2103
2130
2301
2310
3012
3021
3102
3120
3201
3210

etc etc.

Alle mogelijke getallen met de cijfers "0 en 1" en met "0, 1 en 2" zijn snel zelf op te stellen (zie hierboven). De uitkomsten met de cijfers "0, 1, 2 en 3" is al wat meer werk, maar kan je redelijk snel doen.
Uiteindelijk moet ik er misschien naar toe om alle mogelijke getallen met de cijfers "0, 1, 2, 3, 4, 5, 6, 7, 8, 9" te laten genereren. En die 3,6 miljoen (10 faculteit) mogelijkheden ga ik niet met de hand in zitten kloppen

De berekening die daarna volgt is niet spannend... Ik heb gewoon unieke getallen nodig waarbij elk cijfer maar 1x gebruikt mag worden

 

[sylvester-ponte]

stuur liever een excel bestandje
of voldoet mijn bestandje ook

 

[sylvester-ponte]

hier een mogelijkheid:

 

[Renee123]

Yes, hier kan ik mee verder!

Dank, einde bericht

 

[snb]

Of zo:

Sub M_snb()
   For j = 123 To 3210
      c00 = Format(j, "0000")
      If InStr(c00, "0") + InStr(c00, "1") + InStr(c00, "2") + InStr(c00, 3) = 10 Then c01 = c01 & vbLf & c00
   Next
   
   MsgBox c01
End Sub

 

[sylvester-ponte]

snb, :d

 

[snb]

Iets algemener:

n is het aantal gewenste elementen

Sub M_snb()
    ReDim sp(10 ^ 6, 0)
    t00 = "0123456789"
    
    n = 4
    
    For j = Left(t00, n) To StrReverse(Left(t00, n))
      sp(y, 0) = Format(j, String(n, "0"))
      For jj = 0 To n - 1
        If InStr(sp(y, 0), jj) = 0 Then Exit For
      Next
      If jj = n Then y = y + 1
    Next
    
    Cells(1).Resize(UBound(sp)) = sp
End Sub

 

[sylvester-ponte]

snb , ik heb hem met n = 9 getest : dat duurt wel een paar koppen koffie



na de koffie heb ik hen afgebroken.

 

[snb]

Ja, maar je weet natuurlijk ook wel om hoeveel elementen het gaat .....

 

[sylvester-ponte]

ja dat klop, maar als je een subje om mijn function bouwt gaat het veel sneller: zie voorbeeld

ps ik zie dat hij de laatste permutatie niet doet maar dat mag de pret niet drukken.

 

[cow18]

    Cells(1).Resize(UBound(Opl) + 1) = Opl

:d:d:d

 

[sylvester-ponte]

:thumb::d

 

[rebmog]

Hierbij nog een uitwerking op basis van een ander algoritme:

 

[snb]

@Rebmog

Pfff, gaat erg snel; moet ik nog even op kauwen :thumb::thumb:

 

[ExcelAmateur]

@rebmog,

Ik heb het bestandje ook eens geprobeerd.
Als je de tien cijfers wil gebruiken, loopt het vast.
Ik denk dat de kolom niet lang genoeg is, met 9 cijfers is er geen probleem.

Is het mogelijk om het vullen van de cellen over meerdere kolommen te verdelen?

Ik heb wel wat zitten proberen maar ben er niet ingeslagen. (Te weinig verstand ervan)
Bij 9 word het cijfer 9 niet gebruikt.

Alvast hartelijk bedankt.

 

[rebmog]

De beperking was inderdaad het aantal rijen van Excel. Ik heb het voorbeeldje uitgebreid, zodat deze ook met 10 verschillende cijfers om kan gaan. Dit duurt wel een paar seconden omdat het gaat om meer dan 3,5 miljoen permutaties. Deze getallen worden over verschillende kolommen verdeeld.