19 sayısının 4 lü kombinasyonu listeleme

[excellence07]

Mrblar iş yeri için 19 farklı sayının excelde 4 lü kombinasyonunu alt alta nasıl listelerim bir projeyle yardımcı olursanız sevinirim.
örn: 1234
1235
1236
1237
2357
4852 gibi ,şimdiden teşekkürler

 

[Mehmet Şahin]

Merhaba,
şöyle bir örnek buldum. Herhangi bir hücreye sayıyı yazın, hücreyi seçin ve butonu tıklayın. Kolay gelsin.

 

[lark]

Merhaba,
Bir modül açarak aşağıdaki kodu yapıştırıp bir deneyin.Diğer arkadaşımın kopyaladığı dosya sanırım varyasyon dökümü yapıyor.
Kolay gelsin.


Sub Kombinasyon19x4()
Range("A1").Select
Z = 0
For i = 1 To 19
For j = i + 1 To 19
For k = j + 1 To 19
For q = k + 1 To 19
ActiveCell.Offset(Z, 0).Value = i & " " & j & " " & k & " " & q
Z = Z + 1
Next
Next
Next
Next
End Sub

 

[Necdet]

Kombinasyon

Merhaba,

Sub Kombinasyon()
 
    Dim dz()    As Variant, _
        d()     As Integer, _
        i       As Long, _
        i1      As Long, _
        i2      As Long, _
        i3      As Long, _
        i4      As Long, _
        Adt     As Long
    Adt = Application.WorksheetFunction.Combin(19, 4)
    ReDim d(1 To 19)
    ReDim dz(1 To Adt)
    
    
    'Sayılar Diziye Alınıyor
    For i = 2 To Cells(Rows.Count, "C").End(3).Row
        d(i - 1) = Cells(i, "C")
    Next i
    i = 0
    
    For i1 = 1 To 19 - 3
     For i2 = i1 + 1 To 19 - 2
      For i3 = i2 + 1 To 19 - 1
       For i4 = i3 + 1 To 19
       
            i = i + 1
            dz(i) = Format(d(i1), "00") & "-" & _
                    Format(d(i2), "00") & "-" & _
                    Format(d(i3), "00") & "-" & _
                    Format(d(i4), "00")
       Next
      Next
     Next
    Next
    Range("A2").Resize(i, 1) = Application.WorksheetFunction.Transpose(dz)
    
End Sub

 

[excellence07]

slm arkadaslar
gondermıs oldugunuz lınk calısmıyor yardımcı olabılırmısınız

 

[Necdet]

Merhaba,

Link mink vermedim ki doğrudan dosya verdim. makroları etkinleştirin ve butona basın, bu kadar basit.

 

[bekir38]

merhabalar,,
7 farklı kişinin 3 lü kombinasyonu nasıl olur arkadaşlar?

yukardaki formülü revize etmeye çalıştım ama excelde çalışmadı,,,


Sub Kombinasyon()

Dim dz() As Variant, _
d() As Integer, _
i As Long, _
i1 As Long, _
i2 As Long, _
i3 As Long, _
Adt As Long
Adt = Application.WorksheetFunction.Combin(7, 3)
ReDim d(1 To 7)
ReDim dz(1 To Adt)


'Sayılar Diziye Alınıyor
For i = 2 To Cells(Rows.Count, "C").End(3).Row
d(i - 1) = Cells(i, "C")
Next i
i = 0

For i1 = 1 To 7 - 3
For i2 = i1 + 1 To 7 - 2
For i3 = i2 + 1 To 7 - 1


i = i + 1
dz(i) = Format(d(i1), "00") & "-" & _
Format(d(i2), "00") & "-" & _
Format(d(i3), "00") & "-" & _

Next
Next
Next
Range("A2").Resize(i, 1) = Application.WorksheetFunction.Transpose(dz)

End Sub