-
If you would like to post, please check out the MrExcel Message Board FAQ and register here. If you forgot your password, you can reset your password.
Getting a Table of 729 outcomes in 6 football matches.
- Thread starter Kahindi
- Start date
If 3 football matches have 27 outcomes. Then 6 games can never be 18 outcomes. Outcomes are 729. What I need is the tables containing the all the outcomes. I stand to be corrected.
Last edited by a moderator:
Upvote
1
Definetly not a neet solution, but for this example it should work
Sub gamescores()
Dim count As Integer
Dim sheetName As String
Dim ws As Worksheet
Dim score(2) As String
score(0) = "Team A Win"
score(1) = "Team B Win"
score(2) = "Draw"
sheetName = "matches"
count = 1
Set ws = ThisWorkbook.Sheets(sheetName)
For i = 0 To 2
For j = 0 To 2
For k = 0 To 2
For x = 0 To 2
For y = 0 To 2
For Z = 0 To 2
ws.Cells(count, 1).Value = "Outcome " & count
ws.Cells(count, 2).Value = score(i)
ws.Cells(count, 3).Value = score(j)
ws.Cells(count, 4).Value = score(k)
ws.Cells(count, 5).Value = score(x)
ws.Cells(count, 6).Value = score
ws.Cells(count, 7).Value = score(Z)
count = count + 1
Next
Next
Next
Next
Next
Next
End Sub
Sub gamescores()
Dim count As Integer
Dim sheetName As String
Dim ws As Worksheet
Dim score(2) As String
score(0) = "Team A Win"
score(1) = "Team B Win"
score(2) = "Draw"
sheetName = "matches"
count = 1
Set ws = ThisWorkbook.Sheets(sheetName)
For i = 0 To 2
For j = 0 To 2
For k = 0 To 2
For x = 0 To 2
For y = 0 To 2
For Z = 0 To 2
ws.Cells(count, 1).Value = "Outcome " & count
ws.Cells(count, 2).Value = score(i)
ws.Cells(count, 3).Value = score(j)
ws.Cells(count, 4).Value = score(k)
ws.Cells(count, 5).Value = score(x)
ws.Cells(count, 6).Value = score
ws.Cells(count, 7).Value = score(Z)
count = count + 1
Next
Next
Next
Next
Next
Next
End Sub
Upvote
1
VBA Code:
Sub gamescores()
Dim count As Integer
Dim sheetName As String
Dim ws As Worksheet
Dim score(2) As String
score(0) = "Team A Win"
score(1) = "Team B Win"
score(2) = "Draw"
sheetName = "matches"
count = 1
Set ws = ThisWorkbook.Sheets(sheetName)
For i = 0 To 2
For j = 0 To 2
For k = 0 To 2
For x = 0 To 2
For y = 0 To 2
For Z = 0 To 2
ws.Cells(count, 1).Value = "Outcome " & count
ws.Cells(count, 2).Value = score(i)
ws.Cells(count, 3).Value = score(j)
ws.Cells(count, 4).Value = score(k)
ws.Cells(count, 5).Value = score(x)
ws.Cells(count, 6).Value = score(y)
ws.Cells(count, 7).Value = score(Z)
count = count + 1
Next
Next
Next
Next
Next
Next
End Sub
Last edited by a moderator:
Upvote
0
I would be glad if I get the table ready containing the ountcomes from you. I beg
Upvote
0
Fluff
MrExcel MVP, Moderator
- Joined
- Jun 12, 2014
- Messages
- 92,392
- Office Version
- 365
- Platform
- Windows
Is this what you want?
| Fluff.xlsm | ||||||||
|---|---|---|---|---|---|---|---|---|
| A | B | C | D | E | F | |||
| 1 | A wins | A wins | A wins | A wins | A wins | A wins | ||
| 2 | A wins | A wins | A wins | A wins | A wins | B wins | ||
| 3 | A wins | A wins | A wins | A wins | A wins | Draw | ||
| 4 | A wins | A wins | A wins | A wins | B wins | A wins | ||
| 5 | A wins | A wins | A wins | A wins | B wins | B wins | ||
| 6 | A wins | A wins | A wins | A wins | B wins | Draw | ||
| 7 | A wins | A wins | A wins | A wins | Draw | A wins | ||
| 8 | A wins | A wins | A wins | A wins | Draw | B wins | ||
| 9 | A wins | A wins | A wins | A wins | Draw | Draw | ||
| 10 | A wins | A wins | A wins | B wins | A wins | A wins | ||
| 11 | A wins | A wins | A wins | B wins | A wins | B wins | ||
| 12 | A wins | A wins | A wins | B wins | A wins | Draw | ||
| 13 | A wins | A wins | A wins | B wins | B wins | A wins | ||
| 14 | A wins | A wins | A wins | B wins | B wins | B wins | ||
| 15 | A wins | A wins | A wins | B wins | B wins | Draw | ||
| 16 | A wins | A wins | A wins | B wins | Draw | A wins | ||
| 17 | A wins | A wins | A wins | B wins | Draw | B wins | ||
| 18 | A wins | A wins | A wins | B wins | Draw | Draw | ||
| 19 | A wins | A wins | A wins | Draw | A wins | A wins | ||
| 20 | A wins | A wins | A wins | Draw | A wins | B wins | ||
| 21 | A wins | A wins | A wins | Draw | A wins | Draw | ||
| 22 | A wins | A wins | A wins | Draw | B wins | A wins | ||
| 23 | A wins | A wins | A wins | Draw | B wins | B wins | ||
| 24 | A wins | A wins | A wins | Draw | B wins | Draw | ||
| 25 | A wins | A wins | A wins | Draw | Draw | A wins | ||
| 26 | A wins | A wins | A wins | Draw | Draw | B wins | ||
| 27 | A wins | A wins | A wins | Draw | Draw | Draw | ||
| 28 | A wins | A wins | B wins | A wins | A wins | A wins | ||
| 29 | A wins | A wins | B wins | A wins | A wins | B wins | ||
| 30 | A wins | A wins | B wins | A wins | A wins | Draw | ||
| 31 | A wins | A wins | B wins | A wins | B wins | A wins | ||
| 32 | A wins | A wins | B wins | A wins | B wins | B wins | ||
| 33 | A wins | A wins | B wins | A wins | B wins | Draw | ||
| 34 | A wins | A wins | B wins | A wins | Draw | A wins | ||
| 35 | A wins | A wins | B wins | A wins | Draw | B wins | ||
| 36 | A wins | A wins | B wins | A wins | Draw | Draw | ||
| 37 | A wins | A wins | B wins | B wins | A wins | A wins | ||
| 38 | A wins | A wins | B wins | B wins | A wins | B wins | ||
| 39 | A wins | A wins | B wins | B wins | A wins | Draw | ||
| 40 | A wins | A wins | B wins | B wins | B wins | A wins | ||
Main | ||||||||
| Cell Formulas | ||
|---|---|---|
| Range | Formula | |
| A1:F729 | A1 | =CHOOSE(MID(BASE(SEQUENCE(3^6,,0),3,6),SEQUENCE(,6),1)+1,"A wins","B wins","Draw") |
| Dynamic array formulas. | ||
Upvote
0
I don't see Loses. I only see wins and draws. And should be 729 outcomes im thr excel sheet. I will really appreciate when one gets the sheet nicely.
Upvote
0
Might be correct sir but I don't see loses and should be 729 total outcomes. Maybe I see another sheet from you. I will appreciate
Upvote
0
Similar threads
- Question
- Locked
- Question
