• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Kombinasyon sonucunu sayfalara yazdırabilirmiyiz

bana on numara için 40 sayı giricem bunun kombınasyonu lazım lütfennn cok acill yardım edinnnnn
 
WINRAR programınız varsa iki dosyayıda kullanabilirsiniz.
 
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.
 
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
 
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.
 
Cok tesekkurler korhan bey.bu sekilde kombinasyon cok tutar mi yani hafizayi zorlayim hata verir mi sizce
 
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.
 
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 :)
 
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
 
"...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...
 
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
 
Son düzenleme:
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
 
Örnek dosya eklerseniz daha anlaşılır olabilir. Kriterleride dosya üzerinde açıklarsınız.
 
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.
 
İstediğiniz kombinasyon için aşağıdaki kodları kullanabilirsiniz.
Kod: 
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
 
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.
Kod: 
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
 
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
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst