Genere mulige udfald

Ahæm. Vil du virkelig *genere* alle de udfald?

Giver dit eksempel ikke 60 kombinationer?
Eller er 123 det samme som 321?

Hvis 123 === 321 skal det så ikke give 20 kombinationer?

Antallet af kombinationer er 10 - antallet af permutationer er 60.

Jeg vil gætte på at excel ikke kan genere de mulige udfald med mindre at det kan gøres med noget VBA.

Prøv denne her:

http://www.j-walk.com/ss/excel/tips/tip46.htm

Rettelse:
Det forrige link lister kun alle permutationerne.

Denne her lister alle kombinationer, af n elementer taget k af gangen.

Indsæt i et nyt VBA modul
---------------------------------

'
' Credit:  Charles Griffin  <cgriffin@ANL.GOV>
'

'Global Variables
Option Explicit
    Dim colCounter() As Integer
    Dim colBottom() As Integer
    Dim colTop() As Integer
    Dim loopIndex
    Dim rowNum As Integer
    Dim k As Integer
    Dim numCombins As Integer
    Dim outputrng As Range

Sub ListCombinations()
    Dim colNum As Integer
    Dim n As Integer
    MsgBox "Lists all of the combinations of n items taken k at a time."
    n = InputBox("n= ", "n items")
    k = InputBox("k= ", "k at a time")
    ReDim colCounter(1 To k)
    ReDim colBottom(1 To k)
    ReDim colTop(1 To k)
    'Initialize values
    rowNum = 1
    For colNum = 1 To k
        colBottom(colNum) = colNum
        colTop(colNum) = colNum + n - k
        colCounter(colNum) = 0
    Next
    'ActiveSheet.Range("A:IV").ClearContents    '**Put this in if you wantthe wksht cleared**
    Set outputrng = Selection
    numCombins = Application.Combin(n, k)
    MsgBox "The number of combinations is " & numCombins
    loopIndex = 0
    Call forLoop(colBottom(1), colTop(1))
End Sub

Sub rowPrint()
    Dim colNum As Integer
    If rowNum > numCombins Then End
    For colNum = 1 To k
        outputrng(rowNum, colNum) = colCounter(colNum)
    Next
    rowNum = rowNum + 1
End Sub

Sub forLoop(bottom As Integer, top As Integer)
    Dim colNum As Integer
    Dim i As Integer
    loopIndex = loopIndex + 1
    If (loopIndex > k) Then
        Call rowPrint
    Else
        colNum = loopIndex
        For colCounter(colNum) = colBottom(colNum) To colTop(colNum)
            Call forLoop(colBottom(colNum), colTop(colNum))
        Next colCounter(colNum)
        colBottom(loopIndex) = colBottom(loopIndex) + 1
        For i = loopIndex + 1 To k
            colBottom(i) = colBottom(i - 1) + 1
        Next
    End If
    loopIndex = loopIndex - 1
End Sub

------------------------------

Koden kunne vist godt trænge til at blive strammet lidt op, men
den ser ud til at virke.