9 3 e kombinasyonu

[knkyk1453]

merhaba arkadaşlar örnek olarak 9 seçenek var 3 lü grup olarak kombinasyon yapılabilir mi? 9 seçenekte aynı olanlar tekrarlanabilir? örnek; iddaa da iy ms olarak 9 secenek var. 3 maç yapıp bunların kombinasyonu hakkında bilgi verebilirmisin?

ÖRNEK
a b c d e f g h j
iddaa secenek 1-1 1-x 1-2 x-1 x-x x-2 2-1 2-x 2-2

424 a a
425 a a
426 a b

 

[knkyk1453]

=PERMÜTASYON(9;3) Sonucu 504 ediyor bunun listelenmiş halini yada makrosunu verebilirmisiniz?

 

[halit3]

aşağıdaki linke bir bakınız.

http://www.mrexcel.com/forum/excel-questions/469979-permutation-excel-2.html

kod:

Sub Perm()
Dim lCol As Long, lRow As Long, V As Long, X As Long, Y As Long, Z As Long
Dim vIn As Variant, vOut As Variant
With Range("A1").CurrentRegion
    lCol = .Columns.Count
    lRow = .Rows.Count
    vIn = .Value
    Cells.ClearContents
    .Value = vIn
End With
If lRow ^ lCol > Rows.Count Then
    MsgBox "Not Enough Rows In Spreadsheet"
    Exit Sub
End If
vOut = Range("A1").Resize(lRow ^ lCol, 1)
For V = 2 To lCol
    Z = 0
    For X = 1 To lRow ^ lCol
        If IsEmpty(vOut(X, 1)) Then Exit For
        For Y = 1 To lRow
            If IsEmpty(vIn(Y, V)) Then Exit For
            Z = Z + 1
            Cells(Z, lCol + 2) = vOut(X, 1) & vIn(((Y - 1) Mod lRow) + 1, V)
        Next Y
    Next X
    If V < lCol Then vOut = Cells(1, lCol + 2).Resize(lRow ^ lCol, 1)
Next V
End Sub

 

[knkyk1453]

tesekkür ederim halit3 bey

 

[halit3]

tesekkür ederim halit3 bey

Teşekkürler iyi çalışmalar