10 lu Kombinasyonları Listeleme

Katılım
12 Haziran 2014
Mesajlar
1
Beğeniler
0
Excel Vers. ve Dili
2003 türkçe
#1
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

Destek Ekibi
Destek Ekibi
Katılım
18 Kasım 2009
Mesajlar
5,110
Beğeniler
565
Excel Vers. ve Dili
2013 64Bit
English
#2
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

Destek Ekibi
Destek Ekibi
Katılım
22 Ekim 2012
Mesajlar
2,809
Beğeniler
239
Excel Vers. ve Dili
2007 Türkçe
#3
10 taneye kadar dilediğiniz şekilde kombinasyon oluşturabilirsiniz.
Kod:
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
 

Ekli dosyalar

Son düzenleme:
Üst