Exelde kombinasyon ücreti karsılıgı

[Svornnone]

Arkadaşlar bana bir sistem lazım bunu size örnek olarak göstereyim .

Sıra / 0 / 1 / 2 /
__________________
1 *
2 *
3 *
4 *
5 *
6 *
7 *
8 *
9 *
10 *
11 *
12 *
13 *
14 *
15 *

Mesela arkadaşlar gördüğünüz üzere 15 tane sıra var her sıranın 3 farklı seçeneği var 0 1 ve 2 . Arkdaşlar bu 15 tane sıranın her birisi 0 olabilir veya 1 olabilir veyada 2 olabilir.Veyada 14 tanesi 1 olur 15. sıra 2 olur bu şekilde en son seçeneğe kadar sanırsam 3400 e yakın farklı farklı sonuclar çıkacak bunu yapabilecek birisini arıyorum . Hatasız bir şekilde yapabilecek birisi varsa emeğinin karsılıgını alacaktır . Yardımlarınız için şimdiden teşekkürler .

 

[ÖmerBey]

Benim hesabıma göre 3 üzeri 15 (3^15) tane değer çıkıyor. Oda 14348907 farklı sonuç ediyor. Siz 3400'ü nasıl buldunuz.

 

[Svornnone]

Biz 15 üzeri 3 olarak hesapladık .

 

[ÖmerBey]

3 sıranın 15 seçeneği olsaydı dediğiniz olurdu ama 15 sıranın her birine 3 farklı değer geleceği için 3.3.3.3...3=3^15 olur.

 

[Svornnone]

Eminmisin usta bize böyle denildide 3400 e yakın bi sonuç çıkacak olarak belirtildi .

 

[ÖmerBey]

Şu kodu deneyiniz, ancak ben sadece iki değer yazdım ve 2^15 yani 32768 farklı değer oluştu.
3. değeri girdiğiniz zaman excel satır sayısı bile yetersiz kalacaktır.

Sub kod()
değer = Array(0, 1)
Application.ScreenUpdating = False
For a = LBound(değer) To UBound(değer)
    For b = LBound(değer) To UBound(değer)
        For c = LBound(değer) To UBound(değer)
            For d = LBound(değer) To UBound(değer)
                For e = LBound(değer) To UBound(değer)
                    For f = LBound(değer) To UBound(değer)
                        For g = LBound(değer) To UBound(değer)
                            For h = LBound(değer) To UBound(değer)
                                For i = LBound(değer) To UBound(değer)
                                    For j = LBound(değer) To UBound(değer)
                                        For k = LBound(değer) To UBound(değer)
                                            For l = LBound(değer) To UBound(değer)
                                                For m = LBound(değer) To UBound(değer)
                                                    For n = LBound(değer) To UBound(değer)
                                                        For o = LBound(değer) To UBound(değer)
                                                            sat = sat + 1
                                                            Cells(sat, 1) = değer(a)
                                                            Cells(sat, 2) = değer(b)
                                                            Cells(sat, 3) = değer(c)
                                                            Cells(sat, 4) = değer(d)
                                                            Cells(sat, 5) = değer(e)
                                                            Cells(sat, 6) = değer(f)
                                                            Cells(sat, 7) = değer(g)
                                                            Cells(sat, 8) = değer(h)
                                                            Cells(sat, 9) = değer(i)
                                                            Cells(sat, 10) = değer(j)
                                                            Cells(sat, 11) = değer(k)
                                                            Cells(sat, 12) = değer(l)
                                                            Cells(sat, 13) = değer(m)
                                                            Cells(sat, 14) = değer(n)
                                                            Cells(sat, 15) = değer(o)
                                                        Next
                                                    Next
                                                Next
                                            Next
                                        Next
                                    Next
                                Next
                            Next
                        Next
                    Next
                Next
            Next
        Next
    Next
Next
End Sub

 

[Svornnone]

Peki ustam saolasın bilgilendirdiğin için