Kombinasyon sonucunu sayfalara yazdırabilirmiyiz

[water_000]

bu dosyaları acmak için hangi program lazım lütfennnn

 

[water_000]

bana on numara için 40 sayı giricem bunun kombınasyonu lazım lütfennn cok acill yardım edinnnnn

 

[Korhan Ayhan]

WINRAR programınız varsa iki dosyayıda kullanabilirsiniz.

 

[Korhan Ayhan]

Excel 2013 için aşağıdaki işlemi uygularsanız hata mesajını engellemiş olursunuz.

DOSYA-SEÇENEKLER-GÜVEN MERKEZİ-GÜVEN MERKEZİ AYARLARI-MAKRO AYARLARI menüsünden "VBA projesi nesne modeli erişimine güven" seçeneğini aktif hale getirin.

 

[water_000]

Cok tesekkur ederim problemi cozdum 40 sayinin 10 lu kombinasyonunu yaptim yanliz 259 sayfadan sonra hata verdi.anladigim kadariyla pc nin hafizasiyla alakali peki ben kombinasyonu 2 tane 10 lu 2 tane 20 li 2 tane 30 lu 2 tane 40 li 2 tane 50 li yapamazmiyim boyle bir program var mi lutfennn

 

[Korhan Ayhan]

Haluk beyin hazırladığı dosya ile istediğiniz şekilde kombinasyonlar üretebilirsiniz.

İstediğiniz kombinasyonları ayrı ayrı listeleyip boş bir excel kitabına kopyalarsanız istediğiniz sonuca ulaşabilirsiniz.

 

[water_000]

Cok tesekkurler korhan bey.bu sekilde kombinasyon cok tutar mi yani hafizayi zorlayim hata verir mi sizce

 

[Korhan Ayhan]

Hafıza sorunu için maalesef yapabileceğim birşey yok... Bu şekilde kullanmak durumundasınız.

Farklı kombinasyon konularını da inceleyebilirsiniz. Belki istediğiniz şekilde çalışan bir örnek bulabilirsiniz.

 

[water_000]

yok hafıza yetersız olmasına artık yapabılecek bırsey yok aradıgımkombınasyonu aradımbulamadım ekı eklıyorum soyle bır kombınasyon ıstıyorum yardımcı olursanız cok sevınırım gercekten.boylece benım sorularımdanda kurtulmuş olursunuz

 

[water_000]

1 14 21 30 33 40 50 60 66 70
2 15 22 31 34 41 51 61 67 73
3 16 23 32 35 42 52 65 68 75

bu sekılde bır kombınasyon lazım bana var mı bıldıgınız bır calışma ornegı 1.ci sırada 1 2 3 sayıları dısında başka sayı kullanmıcak 2.cide öle 3 te devam edıcek benım yazdıgım sayıların dışında oynamıcak

 

[Korhan Ayhan]

"...oynamıcak" ifadesini kullanmışsınız. Sanırım şans oyunları için bu çözümü istiyorsunuz.

Forumda sayısal loto ya da on numara ifadesi arama yapınız...

 

[water_000]

1 14 21 30 33 40 50 60 66 70
2 15 22 31 34 41 51 61 67 73
3 16 23 32 35 42 52 65 68 75


aradım ama bulamadım yardım edınlutfen ya benım ıstedıgım sadece


1 14 21 30 33 40 50 60 66 70



1 14 21 30 33 40 50 60 66 73

1 14 21 30 33 40 50 60 66 75


bu sekıl kombınasyon bırıncı sıra sadece 1 2 3 ile başlıcak

 

[water_000]

yani olayın özeti

10 10 20 20 30 30 40 40 50 50

yanı 2 tane 10 2 tane 20 2 tane 30 2 tane 40 2 tane 50 olucak

 

[Korhan Ayhan]

Örnek dosya eklerseniz daha anlaşılır olabilir. Kriterleride dosya üzerinde açıklarsınız.

 

[water_000]

Ekli dosyayı görüntüle kombınasyon i.xlsx umarım yapabilmişimdir

 

[water_000]

yokmu bu kombınasyonu yapabılcek bir program bılen yaaa

 

[water_000]

birde birşeyi merak ediyorum.bu on numarada 2,5 mılyon olasılık yokmuydu.hani 2.5 mılyon kupon yapan 10 bılırdi mutlaka.ama 40 sayı bıle 800 mılyon kupon yapıyor.nasıl oluyor bu ya anlamadım.

 

[ÖmerBey]

İstediğiniz kombinasyon için aşağıdaki kodları kullanabilirsiniz.

Sub Kombinasyon()
x = 8
For a = 1 To 5
    For b = 6 To 10
        For c = 20 To 24
            For d = 25 To 29
                For e = 30 To 34
                    For f = 35 To 39
                        For g = 40 To 44
                            For h = 45 To 49
                                For i = 50 To 54
                                    For j = 55 To 59
                                        Cells(x, "A") = a
                                        Cells(x, "B") = b
                                        Cells(x, "C") = c
                                        Cells(x, "D") = d
                                        Cells(x, "E") = e
                                        Cells(x, "F") = f
                                        Cells(x, "G") = g
                                        Cells(x, "H") = h
                                        Cells(x, "I") = i
                                        Cells(x, "J") = j
                                        x = x + 1
                                    Next j
                                Next i
                            Next h
                        Next g
                    Next f
                Next e
            Next d
        Next c
    Next b
Next a
End Sub

 

[ÖmerBey]

Sonradan farkettim yaklaşık 10 milyon sonuç çıkıyor bu da tek sayfaya sığmayacağı için hata oluşacaktır. Aşağıdaki kodu deneyiniz.

Sub Kombinasyon()
For m = 1 To 10 - Sheets.Count
    Sheets.Add after:=Sheets(Sheets.Count)
Next
For n = 1 To 10
    Sheets(n).Name = n
Next
sayfa = 1
Set syf = Sheets(sayfa)
x = 8
For a = 1 To 5
    For b = 6 To 10
        For c = 20 To 24
            For d = 25 To 29
                For e = 30 To 34
                    For f = 35 To 39
                        For g = 40 To 44
                            For h = 45 To 49
                                For i = 50 To 54
                                    For j = 55 To 59
                                        If x = 1000000 Then
                                            sayfa = sayfa + 1
                                            Set syf = Sheets(sayfa)
                                            x = 8
                                        End If
                                        syf.Cells(x, "A") = a
                                        syf.Cells(x, "B") = b
                                        syf.Cells(x, "C") = c
                                        syf.Cells(x, "D") = d
                                        syf.Cells(x, "E") = e
                                        syf.Cells(x, "F") = f
                                        syf.Cells(x, "G") = g
                                        syf.Cells(x, "H") = h
                                        syf.Cells(x, "I") = i
                                        syf.Cells(x, "J") = j
                                        x = x + 1
                                    Next j
                                Next i
                            Next h
                        Next g
                    Next f
                Next e
            Next d
        Next c
    Next b
Next a
End Sub

 

[water_000]

cok teşekkür ederim yardım edermısınız bu konuda profosyonel değilim de.bu kodu excelde nereye yapıştırıcam