3 ihtimalli 4 futbol maçının muhtemel sonuçları

[indir]

Arkadaşlar örneğin 3 ihtimalli 4 futbol maçının muhtemel sonuçlarını Excel de nasıl hücreye yazdırabilirim ? ihtimal ve maç sayısını arrtırıp yükseltebileceğim şekilde..

örnek iki maçın ise 9 ihtimali vardır

1 1 1 0 0 0 2 2 2
1 0 2 1 0 2 1 0 2

 

[indir]

Arkadaşlar örneğin 3 ihtimalli 4 futbol maçının muhtemel sonuçlarını Excel de nasıl hücreye yazdırabilirim ? ihtimal ve maç sayısını arrtırıp yükseltebileceğim şekilde..

örnek iki maçın ise 9 ihtimali vardır

 

[nsertoglu]

a) "Örnek" isimli bir sayfa yaratın,
b) A kolonuna aşağıdaki kod ve ihtimalleri yazın
151-1
151-2
152-0
152-1
152-2
153-0
153-1
153-2

c) aşağıdaki kodu makronuza ekleyin:
Sub KOMB_D_TireliSatr()
Application.ScreenUpdating = False
Sheets("Örnek").Select
satr = Cells(65536, "A").End(xlUp).Row ' ihtimal listesi
yk = 4 ' kombinasyonun yazılacağı ilk kolon
sec = InputBox("Kombinasyon Adedi : ", "Kombinasyon", 2)
[C1] = "Hesaplanıyor..."
[D:K].ClearContents

If sec = 2 Then GoSub komb2
If sec = 3 Then GoSub komb3
If sec = 4 Then GoSub komb4
If sec = 5 Then GoSub komb5
If sec = 6 Then GoSub komb6
[B1] = "Komb.Adedi:"
Cells(1, 1).Select
sonK = Selection.End(xlToRight).Column
For k = yk To sonK ' yazılan kolonlardaki kupon adedi hesaplanacak
Rng = Cells(1, k).Address & ":" & Cells(65536, k).Address
rsay = 65536 - WorksheetFunction.CountBlank(Range(Rng))
topl = topl + rsay
Next k
[C1] = topl
Columns("A:U").EntireColumn.AutoFit
MsgBox "İŞLEMİNİZ TAMAMLANMIŞTIR.", vbInformation
End

komb2:
For x1 = 1 To satr - 1
For x2 = x1 + 1 To satr
satır = satır + 1
If satır > 65000 Then yk = yk + 1
Cells(satır, yk) = Cells(x1, 1) & " * " & Cells(x2, 1)
Next x2, x1
Return

komb3:
For x1 = 1 To satr - 2
For x2 = x1 + 1 To satr - 1
For x3 = x2 + 1 To satr
satır = satır + 1
If satır > 65000 Then yk = yk + 1
Cells(satır, yk) = Cells(x1, 1) & " * " & Cells(x2, 1) & " * " & Cells(x3, 1)
Next x3, x2, x1
Return

komb4:
For x1 = 1 To satr - 3
For x2 = x1 + 1 To satr - 2
For x3 = x2 + 1 To satr - 1
For x4 = x3 + 1 To satr
satır = satır + 1
If satır > 65000 Then yk = yk + 1
Cells(satır, yk) = Cells(x1, 1) & " - " & Cells(x2, 1) & " - " & Cells(x3, 1) & " - " & Cells(x4, 1)
Next x4, x3, x2, x1
Return

komb5:
For x1 = 1 To satr - 4
For x2 = x1 + 1 To satr - 3
For x3 = x2 + 1 To satr - 2
For x4 = x3 + 1 To satr - 1
For x5 = x4 + 1 To satr
satır = satır + 1
If satır > 65000 Then
yk = yk + 1
satır = 1
End If
Cells(satır, yk) = Cells(x1, 1) & " - " & Cells(x2, 1) & " - " & Cells(x3, 1) & " - " & Cells(x4, 1) & " - " & Cells(x5, 1)
Next x5, x4, x3, x2, x1
Return

komb6:
For x1 = 1 To satr - 5
For x2 = x1 + 1 To satr - 4
For x3 = x2 + 1 To satr - 3
For x4 = x3 + 1 To satr - 2
For x5 = x4 + 1 To satr - 1
For x6 = x5 + 1 To satr
satır = satır + 1
If satır > 65000 Then yk = yk + 1
Cells(satır, yk) = Cells(x1, 1) & " - " & Cells(x2, 1) & " - " & Cells(x3, 1) & " - " & Cells(x4, 1) & " - " & Cells(x5, 1) & " - " & Cells(x6, 1)
Next x6, x5, x4, x3, x2, x1
Return

End Sub

Deneyin bakalım istediğniz bu mudur

 

[indir]

Benziyorda yatay hali olmalı Dosyadaki gibi ;İstedğim gibi değil , bu ne iş yapıyor ?
eksik sonuç veriyor

 

[nsertoglu]

Benziyorda yatay hali olmalı Dosyadaki gibi ;İstedğim gibi değil , bu ne iş yapıyor ?
eksik sonuç veriyor

"İşlemeyen kas gelişmez", "Armut Piş Ağzıma Düş" demiş bazı büyüklerimiz; "HAZIR LOKMA ÇÖZÜM" istemek için adresin burası olmadığına inanıyorum, aksi durumda benim yerim burası değildir..