10 lu Kombinasyonları Listeleme

[kaplanisdileyli]

merhaba arkadşlar

öncelikle forumdaki bilgi paylaşımınıza ve insanlara karşı olan yardımseverliğinize teşekkür ederim...

ben excell de 14 farlı rakamın 10'lu kombinasyonunu yapmaya çalışıyorum ama bir türlü beceremedim.

rakamları buraya yazsam siz o rakamların 10'lu kombinasyonlarını excell de hazırlayıp bana mail olarak gönderebilirmisiniz.

mail adresim kaplanisdileyli@hotmail.com

lütfen bana da yardımcı olabilir misiniz???

gerçekten bu 14 rakamın 10'lu kombinasyonuna çok ihtiyacım var...

rakamlar
5---20---25---35---45---52---56

59---60---63---70---72---73---79

 

[turist]

merhaba arkadşlar

öncelikle forumdaki bilgi paylaşımınıza ve insanlara karşı olan yardımseverliğinize teşekkür ederim...

ben excell de 14 farlı rakamın 10'lu kombinasyonunu yapmaya çalışıyorum ama bir türlü beceremedim.

rakamları buraya yazsam siz o rakamların 10'lu kombinasyonlarını excell de hazırlayıp bana mail olarak gönderebilirmisiniz.

mail adresim kaplanisdileyli@hotmail.com

lütfen bana da yardımcı olabilir misiniz???

gerçekten bu 14 rakamın 10'lu kombinasyonuna çok ihtiyacım var...

rakamlar
5---20---25---35---45---52---56

59---60---63---70---72---73---79

Foruma hoşgeldiniz.
Dosya Gönderilmiştir.

 

[ÖmerBey]

10 taneye kadar dilediğiniz şekilde kombinasyon oluşturabilirsiniz.

Sub Kombinasyon()
On Error Resume Next
Application.ScreenUpdating = False
Cells.ClearContents
x = 1
liste = InputBox("Kombinasyonlarını almak istediğiniz değerleri giriniz." & Chr(10) & "(Değerlerin arasını virgül ile ayırınız.)")
sayı = Split(liste, ",")
k = InputBox("Kaçlı kombinasyon yapmak istiyorsunuz?")
If k > 10 Then MsgBox "En fazla 10'lu kombinasyon oluşturabilirsiniz.", vbCritical: Exit Sub
For a = k - 10 To UBound(sayı) - 9
    For b = a + 1 To UBound(sayı) - 8
        For c = b + 1 To UBound(sayı) - 7
            For d = c + 1 To UBound(sayı) - 6
                For e = d + 1 To UBound(sayı) - 5
                    For f = e + 1 To UBound(sayı) - 4
                        For g = f + 1 To UBound(sayı) - 3
                            For h = g + 1 To UBound(sayı) - 2
                                For i = h + 1 To UBound(sayı) - 1
                                    For j = i + 1 To UBound(sayı)
                                        Cells(x, k - 9) = sayı(a)
                                        Cells(x, k - 8) = sayı(b)
                                        Cells(x, k - 7) = sayı(c)
                                        Cells(x, k - 6) = sayı(d)
                                        Cells(x, k - 5) = sayı(e)
                                        Cells(x, k - 4) = sayı(f)
                                        Cells(x, k - 3) = sayı(g)
                                        Cells(x, k - 2) = sayı(h)
                                        Cells(x, k - 1) = sayı(i)
                                        Cells(x, k - 0) = sayı(j)
                                        x = x + 1
                                    Next
                                    If k = 1 Then GoTo son
                                Next
                                If k = 2 Then GoTo son
                            Next
                            If k = 3 Then GoTo son
                        Next
                        If k = 4 Then GoTo son
                    Next
                    If k = 5 Then GoTo son
                Next
                If k = 6 Then GoTo son
            Next
            If k = 7 Then GoTo son
        Next
        If k = 8 Then GoTo son
    Next
    If k = 9 Then GoTo son
Next
son:
Application.ScreenUpdating = True
End Sub

 

[Saki7263e]

Merhaba 30 un 3 lü kombinasyonuna cok ihtiyacim var lutfen yardimci olun. Excel falan birsry diyorlar hicbirsey anlamadim ondan. 123, 245, 257 gibisinden listeliyecek gibi yapabilen var mi lutfen e mail adresim eseyitsaki@gmail.com