mogelijke cijfer combinaties

[civus]

ik ben een student en op school hebben we zeer weinig gezien van excel.
Maar ik wou alle mogelijke codes zoeken van de getallen 0, 1, 2, 3, 4, 5.
Maar zo dat in elke combinatie, die 6 getallen zitten en zo dat geen enkel getal meerdere keren voorkomt in die combinatie.

kan iemand mij hiermee helpen

 

[Wigi]

Laat ik je al waarschuwen, dit is niet simpel... Ik meen mij code te herinneren in VBA die dat doet, ik zal het proberen op te snorren nu.

Wigi

 

[Paul-RT]

720 mogelijkheden met 6 cijfers.
(6 faculteit)
1*2*3*4*5*6 = 720.

Sterkte.

 

[GiMe]

Als ik me niet vergis is dit de functie "faculteit" of in dit geval 6*5*4*3*2*1 of 6! = 720.
Is trouwens een functie van excel

GiMe

 

[Wigi]

Als ik me niet vergis is dit de functie "faculteit" of in dit geval 6*5*4*3*2*1 of 6! = 720.
Is trouwens een functie van excel

GiMe

Civus

wil je het aantal, of allemaal onder mekaar gezet de 6! mogelijkheden?

 

[Wigi]

COMBINATIES en PERMUTATIES zijn trouwens ingebouwde functies om het aantal te kennen.

 

[GiMe]

wil je het aantal, of allemaal onder mekaar gezet de 6! mogelijkheden?

Wigi,

De mogelijke permutaties onder mekaar lijkt me leuk !!

GiMe

 

[Wigi]

Wigi,

De mogelijke permutaties onder mekaar lijkt me leuk !!

GiMe

Allé dan, omdat jij het bent en omdat je het zo vriendelijk vraagt...

Hier gaan we:

Hier is de link.

Wat jullie moeten doen, is de code plakken in een nieuwe module in VBA. Je opent een nieuw bestand, doet Alt-F11 en plakt de code op de pagina, te beginnen vanaf Option Explicit.

Dan typ je in cel A1 een P, in A2 een 6 en in de cellen daaronder 0 tot en met 5.

Dan voer je de macro uit met naam ListPermutations.

De resultaten komen in een nieuw tabblad.

De code is opgesteld door Myrna Larson, Excel MVP.

Wigi

 

[GiMe]

Dim CurrentRow

Sub GetString()
    Dim InString As String
    InString = InputBox("Enter text to permute:")
    If Len(InString) < 2 Then Exit Sub
    If Len(InString) >= 8 Then
        MsgBox "Too many permutations!"
        Exit Sub
    Else
        ActiveSheet.Columns(1).Clear
        CurrentRow = 1
        Call GetPermutation("", InString)
    End If
End Sub

Sub GetPermutation(x As String, y As String)
'   The source of this algorithm is unknown
    Dim i As Integer, j As Integer
    j = Len(y)
    If j < 2 Then
        Cells(CurrentRow, 1) = x & y
        CurrentRow = CurrentRow + 1
    Else
        For i = 1 To j
            Call GetPermutation(x + Mid(y, i, 1), _
            Left(y, i - 1) + Right(y, j - i))
        Next
    End If
End Sub

Geleend van J-Walk.com

 

[Wigi]

Dim CurrentRow

Sub GetString()
    Dim InString As String
    InString = InputBox("Enter text to permute:")
    If Len(InString) < 2 Then Exit Sub
    If Len(InString) >= 8 Then
        MsgBox "Too many permutations!"
        Exit Sub
    Else
        ActiveSheet.Columns(1).Clear
        CurrentRow = 1
        Call GetPermutation("", InString)
    End If
End Sub

Sub GetPermutation(x As String, y As String)
'   The source of this algorithm is unknown
    Dim i As Integer, j As Integer
    j = Len(y)
    If j < 2 Then
        Cells(CurrentRow, 1) = x & y
        CurrentRow = CurrentRow + 1
    Else
        For i = 1 To j
            Call GetPermutation(x + Mid(y, i, 1), _
            Left(y, i - 1) + Right(y, j - i))
        Next
    End If
End Sub

Geleend van J-Walk.com

Mooi werk van John Walkenbach. Code zal ik eens moeten bestuderen.

 

[civus]

Civus

wil je het aantal, of allemaal onder mekaar gezet de 6! mogelijkheden?

ik zou ze 6! combinaties onder elkaar willen hebben.

 

[Wigi]

ik zou ze 6! combinaties onder elkaar willen hebben.

Doe dan hetgeen ik al eerder uitlegde.

...

Hier gaan we:

Hier is de link.

Wat jullie moeten doen, is de code plakken in een nieuwe module in VBA. Je opent een nieuw bestand, doet Alt-F11 en plakt de code op de pagina, te beginnen vanaf Option Explicit.

Dan typ je in cel A1 een P, in A2 een 6 en in de cellen daaronder 0 tot en met 5.

Dan voer je de macro uit met naam ListPermutations.

De resultaten komen in een nieuw tabblad.

De code is opgesteld door Myrna Larson, Excel MVP.

Wigi

 

[civus]

als ik die code in voer krijg ik 'enter text to permute' zoals het word bestand laat zien. Dus niet het gewenste resultaat.

 

[Wigi]

Je hebt mijn werkwijze gemixt met de link van GiMe.

Wigi

 

[civus]

als ik uw code gebruik meld excel een 'compileer' fout

 

[Wigi]

Kan je je file hier niet gezipt bijhangen?

 

[civus]

het lukt me niet om een bestand erbij te hangen. ik zal straks nog eens proberen.

 

[civus]

hierbij mijn gezipte file

 

[Wigi]

Je moet alle code kopiëren, dus ook:

Option Explicit

Dim vAllItems As Variant
Dim Buffer() As String
Dim BufferPtr As Long
Dim Results As Worksheet
'
' Posted by Myrna Larson
' July 25, 2000
' Microsoft.Public.Excel.Misc
' Subject: Combin
'
'
'Since you asked, here it is. It is generic, i.e. it isn't written
'specifically for a given population and set size, as yours it. It will do
'permutations or combinations. It uses a recursive routine to generate the subsets, one
'routine for combinations, a different one for permutations.
'To use it, you put the letter C or P (for combinations or permutations) in
'a cell. The cell below that contains the number of items in a subset. The
'Cells below are a list of the items that make up the population. They could be
'numbers, letters and symbols, or words, etc.
'You select the top cell, or the entire range and run the sub. The subsets
'are written to a new sheet in the workbook.
'
'

Bovenaan de rest van de code zetten.

Wigi

 

[civus]

dit lukt nog steeds niet, ik heb niet eerder kunnen antwoorden omdat ik in de examens zit.
Hier bij wel de gezipte excel file.