Çift sayıların 10 lu kombinasyonunu listelemek

[sercanpolat]

Merhaba arkadaşlar aranıza yeni katıldım.Sizlere bir sorum olucak.Elimde 40 adet sayı var bu sayılar 2 den 80 kadar olan çift sayılar.Bunlardan 10 adet şekline kombinsayonlar yapmam isteniyor.acaba bu konuyu excelde sizlrein saysinde yapabilirmiyim.
not:excelim başlangıç düzeyinde

şimdiden teşekkürler

 

[Huseyinkis]

Merhaba arkadaşlar aranıza yeni katıldım.Sizlere bir sorum olucak.Elimde 40 adet sayı var bu sayılar 2 den 80 kadar olan çift sayılar.Bunlardan 10 adet şekline kombinsayonlar yapmam isteniyor.acaba bu konuyu excelde sizlrein saysinde yapabilirmiyim.
not:excelim başlangıç düzeyinde

şimdiden teşekkürler

Bu arada konu başlığınız düzelte bilirmisiniz.


Bunları Yapmak Mümkün fakat vaktinizi alıcak bir işlem olucaktır..

40 / 10 kombinasyonu = 847.660.528 rakamdan oluşur. Eğer Hala istiyorsanız elinizdeki çift rakamları gönderin txt dosyası olarak yapmaya çalışayım. VB60 da..

 

[lark]

Merhaba

Excel geliştirici sekmesinden "visual basic" seçerek çalışma kitabınıza bir modül ekleyerek aşağıdaki kodu yapıştırın. Excel dosyanızı kaydettiğiniz yerde bir txt dosya oluşturacaktır. Arkadaşın da dediği gibi yaklaşık 850 milyon satırlık bir dosya olacaktır. Sabırlar diliyorum. Bence yarım dakika çalıştırıp, ctrl-break'e basıp yarıda keserek, txt dosyanıza bir bakın.
kolay gelsin.

Sub kombin()
Open "DOSYA.TXT" For Output As #1
For i = 2 To 80 Step 2
For j = i + 2 To 80 Step 2
For k = j + 2 To 80 Step 2
For q = k + 2 To 80 Step 2
For x = q + 2 To 80 Step 2
For w = x + 2 To 80 Step 2
For t = w + 2 To 80 Step 2
For r = t + 2 To 80 Step 2
For s = r + 2 To 80 Step 2
For u = s + 2 To 80 Step 2
Print #1, Str(i) + Str(j) + Str(k) + Str(q) + Str(x) + Str(w) + Str(t) + Str(r) + Str(s) + Str(u)
Next: Next: Next: Next: Next: Next: Next: Next: Next: Next
Close #1
End Sub

 

[sercanpolat]

2 den 80 ne kadar olan tüm çift sayılar

 

[Huseyinkis]

Ekteki dosyayı kullanarak lark arkadaşın verdiği kodlarla txt oluşturabilirsin kodlarda biraz değişiklik yaptım. Dosya içerisinde açıklam mevcut.