10 lu Kombinasyonları Listeleme

Katılım
12 Haziran 2014
Mesajlar
1
Excel Vers. ve Dili
2003 türkçe
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,111
Excel Vers. ve Dili
2013 64Bit
English
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
3,034
Excel Vers. ve Dili
2007 Türkçe
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:
Katılım
29 Temmuz 2020
Mesajlar
2
Excel Vers. ve Dili
Private Sub CommandButton1_Click()
Dim MyCombin As Integer
Application.VBE.MainWindow.Visible = Fals
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
 
Üst