software

I would be grateful for help with listing all the possible game
combinations within a set of tennis.

I just need to list all the possible combinations of which player (1 or
2) wins each game.

So for 6-0 to a player it is obviously 1,1,1,1,1.

6-1 can be 1,1,1,1,1,2,1 etc

Is there a way excel can list all the possible combinations?

Even if I just have a combination of all the ways 1 and 2 can win in a
12 game period.

I guess it is just 2*2*2*2*2 etc but how do I list it in 1s and 2s?Hope this is clear!--
Raigmore
------------------------------------------------------------------------
Raigmore's Profile: www.excelforum.com/member.php...oamp;userid=30071
View this thread: www.excelforum.com/showthread...hreadid=497492Raigmore,

Well, as you said there is only one combination for a 6-0 win but for 6-1
there will be 6 combinations and for 6-2 there are 21 combinations. This
fits in with the formula: =SUM( COMBIN( {list of total games in Sets} ,
{ No of wins for played No 2} ) 1 ie

=SUM(COMBIN({7,8}-1,{1,2})) 1

array entered with Ctrl Shift Enter

if that is not just a coincidence then the array formula:

=SUM(COMBIN({7,8,9,10,11}-1,{1,2,3,4,5})) 1

will give us 462 possible combinations for a win.

Of course my maths is no where near good enough to prove that this is true,
perhaps one of the clever people around here can chip in and tell us.--
HTH

Sandy
with @tiscali.co.uk

quot;Raigmorequot; gt; wrote in
message ...
gt;
gt; I would be grateful for help with listing all the possible game
gt; combinations within a set of tennis.
gt;
gt; I just need to list all the possible combinations of which player (1 or
gt; 2) wins each game.
gt;
gt; So for 6-0 to a player it is obviously 1,1,1,1,1.
gt;
gt; 6-1 can be 1,1,1,1,1,2,1 etc
gt;
gt; Is there a way excel can list all the possible combinations?
gt;
gt; Even if I just have a combination of all the ways 1 and 2 can win in a
gt; 12 game period.
gt;
gt; I guess it is just 2*2*2*2*2 etc but how do I list it in 1s and 2s?
gt;
gt;
gt; Hope this is clear!
gt;
gt;
gt; --
gt; Raigmore
gt; ------------------------------------------------------------------------
gt; Raigmore's Profile:
gt; www.excelforum.com/member.php...oamp;userid=30071
gt; View this thread: www.excelforum.com/showthread...hreadid=497492
gt;
Or without having to array enter it:

=SUMPRODUCT(COMBIN({7,8,9,10,11}-1,{1,2,3,4,5})) 1

--
HTH

Sandy
with @tiscali.co.ukquot;Sandy Mannquot; gt; wrote in message
...
gt; Raigmore,
gt;
gt; Well, as you said there is only one combination for a 6-0 win but for 6-1
gt; there will be 6 combinations and for 6-2 there are 21 combinations. This
gt; fits in with the formula: =SUM( COMBIN( {list of total games in Sets} ,
gt; { No of wins for played No 2} ) 1 ie
gt;
gt; =SUM(COMBIN({7,8}-1,{1,2})) 1
gt;
gt; array entered with Ctrl Shift Enter
gt;
gt; if that is not just a coincidence then the array formula:
gt;
gt; =SUM(COMBIN({7,8,9,10,11}-1,{1,2,3,4,5})) 1
gt;
gt; will give us 462 possible combinations for a win.
gt;
gt; Of course my maths is no where near good enough to prove that this is
gt; true,
gt; perhaps one of the clever people around here can chip in and tell us.
gt;
gt;
gt; --
gt; HTH
gt;
gt; Sandy
gt;
gt; with @tiscali.co.uk
gt;
gt; quot;Raigmorequot; gt; wrote
gt; in message ...
gt;gt;
gt;gt; I would be grateful for help with listing all the possible game
gt;gt; combinations within a set of tennis.
gt;gt;
gt;gt; I just need to list all the possible combinations of which player (1 or
gt;gt; 2) wins each game.
gt;gt;
gt;gt; So for 6-0 to a player it is obviously 1,1,1,1,1.
gt;gt;
gt;gt; 6-1 can be 1,1,1,1,1,2,1 etc
gt;gt;
gt;gt; Is there a way excel can list all the possible combinations?
gt;gt;
gt;gt; Even if I just have a combination of all the ways 1 and 2 can win in a
gt;gt; 12 game period.
gt;gt;
gt;gt; I guess it is just 2*2*2*2*2 etc but how do I list it in 1s and 2s?
gt;gt;
gt;gt;
gt;gt; Hope this is clear!
gt;gt;
gt;gt;
gt;gt; --
gt;gt; Raigmore
gt;gt; ------------------------------------------------------------------------
gt;gt; Raigmore's Profile:
gt;gt; www.excelforum.com/member.php...oamp;userid=30071
gt;gt; View this thread:
gt;gt; www.excelforum.com/showthread...hreadid=497492
gt;gt;
gt;
gt;
Raigmore,

Well, we can brute force it. Run the macro below, with a blank sheet active.

This assumes that you aren't using the quot;Must win by 2 gamesquot; rule - otherwise, there's an infinite
number of combinations.

With that assumption, the set ends after a maximum of 11 games, with a winner guaranteed. There are
924 possible combinations.

HTH,
Bernie
MS Excel MVP

Sub BruteForce()
For i = 1 To 11
Cells(1, i).Value = quot;Game quot; amp; i
Next i
Cells(1, 12).Value = quot;Winnerquot;

RCount = 2
For a = 1 To 2
For b = 1 To 2
For c = 1 To 2
For d = 1 To 2
For e = 1 To 2
For f = 1 To 2
For g = 1 To 2
For h = 1 To 2
For i = 1 To 2
For j = 1 To 2
For k = 1 To 2

Result = a amp; quot; quot; amp; b amp; quot; quot; amp; c amp; quot; quot; amp; d amp; _
quot; quot; amp; e amp; quot; quot; amp; f amp; quot; quot; amp; g amp; quot; quot; amp; h amp; _
quot; quot; amp; i amp; quot; quot; amp; j amp; quot; quot; amp; k

splResult = Split(Result, quot; quot;)

Count1 = 0
Count2 = 0

For m = LBound(splResult) To UBound(splResult)
If CInt(splResult(m)) = 1 Then
Count1 = Count1 1
Else
Count2 = Count2 1
End If
Next m

If Count1 = 6 Then
For n = LBound(splResult) To UBound(splResult)
Cells(RCount, n 1).Value = splResult(n)
If splResult(n) = 1 Then Count1 = Count1 - 1
If Count1 = 0 Then GoTo Written1
Next n
Written1:
Cells(RCount, 12).Value = 1
RCount = RCount 1
End If

If Count2 = 6 Then
For n = LBound(splResult) To UBound(splResult)
Cells(RCount, n 1).Value = splResult(n)
If splResult(n) = 2 Then Count2 = Count2 - 1
If Count2 = 0 Then GoTo Written2
Next n
Written2:
Cells(RCount, 12).Value = 2
RCount = RCount 1
End If

Next k
Next j
Next i
Next h
Next g
Next f
Next e
Next d
Next c
Next b
Next a

Cells.EntireColumn.AutoFit
End Sub
quot;Raigmorequot; gt; wrote in message
...
gt;
gt; I would be grateful for help with listing all the possible game
gt; combinations within a set of tennis.
gt;
gt; I just need to list all the possible combinations of which player (1 or
gt; 2) wins each game.
gt;
gt; So for 6-0 to a player it is obviously 1,1,1,1,1.
gt;
gt; 6-1 can be 1,1,1,1,1,2,1 etc
gt;
gt; Is there a way excel can list all the possible combinations?
gt;
gt; Even if I just have a combination of all the ways 1 and 2 can win in a
gt; 12 game period.
gt;
gt; I guess it is just 2*2*2*2*2 etc but how do I list it in 1s and 2s?
gt;
gt;
gt; Hope this is clear!
gt;
gt;
gt; --
gt; Raigmore
gt; ------------------------------------------------------------------------
gt; Raigmore's Profile: www.excelforum.com/member.php...oamp;userid=30071
gt; View this thread: www.excelforum.com/showthread...hreadid=497492
gt;
Bernie,

In XL97 your code chokes on:

splResult = Split(Result, quot; quot;)

with *Split* hilighted and saying quot;Sub or function not definedquot;. Asking
Help about *Split* brings up the page about Splitting the window. May I ask
what *Split* does in later versions of XL?--
Regards

Sandy
with @tiscali.co.ukquot;Bernie Deitrickquot; lt;deitbe @ consumer dot orggt; wrote in message
...
gt; Raigmore,
gt;
gt; Well, we can brute force it. Run the macro below, with a blank sheet
gt; active.
gt;
gt; This assumes that you aren't using the quot;Must win by 2 gamesquot; rule -
gt; otherwise, there's an infinite number of combinations.
gt;
gt; With that assumption, the set ends after a maximum of 11 games, with a
gt; winner guaranteed. There are 924 possible combinations.
gt;
gt; HTH,
gt; Bernie
gt; MS Excel MVP
gt;
gt; Sub BruteForce()
gt; For i = 1 To 11
gt; Cells(1, i).Value = quot;Game quot; amp; i
gt; Next i
gt; Cells(1, 12).Value = quot;Winnerquot;
gt;
gt; RCount = 2
gt; For a = 1 To 2
gt; For b = 1 To 2
gt; For c = 1 To 2
gt; For d = 1 To 2
gt; For e = 1 To 2
gt; For f = 1 To 2
gt; For g = 1 To 2
gt; For h = 1 To 2
gt; For i = 1 To 2
gt; For j = 1 To 2
gt; For k = 1 To 2
gt;
gt; Result = a amp; quot; quot; amp; b amp; quot; quot; amp; c amp; quot; quot; amp; d amp; _
gt; quot; quot; amp; e amp; quot; quot; amp; f amp; quot; quot; amp; g amp; quot; quot; amp; h amp; _
gt; quot; quot; amp; i amp; quot; quot; amp; j amp; quot; quot; amp; k
gt;
gt; splResult = Split(Result, quot; quot;)
gt;
gt; Count1 = 0
gt; Count2 = 0
gt;
gt; For m = LBound(splResult) To UBound(splResult)
gt; If CInt(splResult(m)) = 1 Then
gt; Count1 = Count1 1
gt; Else
gt; Count2 = Count2 1
gt; End If
gt; Next m
gt;
gt; If Count1 = 6 Then
gt; For n = LBound(splResult) To UBound(splResult)
gt; Cells(RCount, n 1).Value = splResult(n)
gt; If splResult(n) = 1 Then Count1 = Count1 - 1
gt; If Count1 = 0 Then GoTo Written1
gt; Next n
gt; Written1:
gt; Cells(RCount, 12).Value = 1
gt; RCount = RCount 1
gt; End If
gt;
gt; If Count2 = 6 Then
gt; For n = LBound(splResult) To UBound(splResult)
gt; Cells(RCount, n 1).Value = splResult(n)
gt; If splResult(n) = 2 Then Count2 = Count2 - 1
gt; If Count2 = 0 Then GoTo Written2
gt; Next n
gt; Written2:
gt; Cells(RCount, 12).Value = 2
gt; RCount = RCount 1
gt; End If
gt;
gt; Next k
gt; Next j
gt; Next i
gt; Next h
gt; Next g
gt; Next f
gt; Next e
gt; Next d
gt; Next c
gt; Next b
gt; Next a
gt;
gt; Cells.EntireColumn.AutoFit
gt; End Sub
gt;
gt;
gt;
gt; quot;Raigmorequot; gt; wrote
gt; in message ...
gt;gt;
gt;gt; I would be grateful for help with listing all the possible game
gt;gt; combinations within a set of tennis.
gt;gt;
gt;gt; I just need to list all the possible combinations of which player (1 or
gt;gt; 2) wins each game.
gt;gt;
gt;gt; So for 6-0 to a player it is obviously 1,1,1,1,1.
gt;gt;
gt;gt; 6-1 can be 1,1,1,1,1,2,1 etc
gt;gt;
gt;gt; Is there a way excel can list all the possible combinations?
gt;gt;
gt;gt; Even if I just have a combination of all the ways 1 and 2 can win in a
gt;gt; 12 game period.
gt;gt;
gt;gt; I guess it is just 2*2*2*2*2 etc but how do I list it in 1s and 2s?
gt;gt;
gt;gt;
gt;gt; Hope this is clear!
gt;gt;
gt;gt;
gt;gt; --
gt;gt; Raigmore
gt;gt; ------------------------------------------------------------------------
gt;gt; Raigmore's Profile:
gt;gt; www.excelforum.com/member.php...oamp;userid=30071
gt;gt; View this thread:
gt;gt; www.excelforum.com/showthread...hreadid=497492
gt;gt;
gt;
gt;
Sandy,

In later versions, split returns an array of values from the string that is passed it, broken apart
by, in this case, spaces. So, with an input of

This is the input string.

It will output an array

This
is
the
input
string.

The way around not having it in XL97 is to step through the string looking for spaces, writing the
values out to an array. There is certainly code in the archives showing how to do this. If you
_really_ need it, I can re-write this to work in lt;yuckgt; XL97.

HTH,
Bernie
MS Excel MVPquot;Sandy Mannquot; gt; wrote in message
...
gt; Bernie,
gt;
gt; In XL97 your code chokes on:
gt;
gt; splResult = Split(Result, quot; quot;)
gt;
gt; with *Split* hilighted and saying quot;Sub or function not definedquot;. Asking Help about *Split*
gt; brings up the page about Splitting the window. May I ask what *Split* does in later versions of
gt; XL?
gt;
gt;
gt; --
gt; Regards
gt;
gt; Sandy
gt;
gt; with @tiscali.co.uk
gt;
gt;
gt; quot;Bernie Deitrickquot; lt;deitbe @ consumer dot orggt; wrote in message
gt; ...
gt;gt; Raigmore,
gt;gt;
gt;gt; Well, we can brute force it. Run the macro below, with a blank sheet active.
gt;gt;
gt;gt; This assumes that you aren't using the quot;Must win by 2 gamesquot; rule - otherwise, there's an
gt;gt; infinite number of combinations.
gt;gt;
gt;gt; With that assumption, the set ends after a maximum of 11 games, with a winner guaranteed. There
gt;gt; are 924 possible combinations.
gt;gt;
gt;gt; HTH,
gt;gt; Bernie
gt;gt; MS Excel MVP
gt;gt;
gt;gt; Sub BruteForce()
gt;gt; For i = 1 To 11
gt;gt; Cells(1, i).Value = quot;Game quot; amp; i
gt;gt; Next i
gt;gt; Cells(1, 12).Value = quot;Winnerquot;
gt;gt;
gt;gt; RCount = 2
gt;gt; For a = 1 To 2
gt;gt; For b = 1 To 2
gt;gt; For c = 1 To 2
gt;gt; For d = 1 To 2
gt;gt; For e = 1 To 2
gt;gt; For f = 1 To 2
gt;gt; For g = 1 To 2
gt;gt; For h = 1 To 2
gt;gt; For i = 1 To 2
gt;gt; For j = 1 To 2
gt;gt; For k = 1 To 2
gt;gt;
gt;gt; Result = a amp; quot; quot; amp; b amp; quot; quot; amp; c amp; quot; quot; amp; d amp; _
gt;gt; quot; quot; amp; e amp; quot; quot; amp; f amp; quot; quot; amp; g amp; quot; quot; amp; h amp; _
gt;gt; quot; quot; amp; i amp; quot; quot; amp; j amp; quot; quot; amp; k
gt;gt;
gt;gt; splResult = Split(Result, quot; quot;)
gt;gt;
gt;gt; Count1 = 0
gt;gt; Count2 = 0
gt;gt;
gt;gt; For m = LBound(splResult) To UBound(splResult)
gt;gt; If CInt(splResult(m)) = 1 Then
gt;gt; Count1 = Count1 1
gt;gt; Else
gt;gt; Count2 = Count2 1
gt;gt; End If
gt;gt; Next m
gt;gt;
gt;gt; If Count1 = 6 Then
gt;gt; For n = LBound(splResult) To UBound(splResult)
gt;gt; Cells(RCount, n 1).Value = splResult(n)
gt;gt; If splResult(n) = 1 Then Count1 = Count1 - 1
gt;gt; If Count1 = 0 Then GoTo Written1
gt;gt; Next n
gt;gt; Written1:
gt;gt; Cells(RCount, 12).Value = 1
gt;gt; RCount = RCount 1
gt;gt; End If
gt;gt;
gt;gt; If Count2 = 6 Then
gt;gt; For n = LBound(splResult) To UBound(splResult)
gt;gt; Cells(RCount, n 1).Value = splResult(n)
gt;gt; If splResult(n) = 2 Then Count2 = Count2 - 1
gt;gt; If Count2 = 0 Then GoTo Written2
gt;gt; Next n
gt;gt; Written2:
gt;gt; Cells(RCount, 12).Value = 2
gt;gt; RCount = RCount 1
gt;gt; End If
gt;gt;
gt;gt; Next k
gt;gt; Next j
gt;gt; Next i
gt;gt; Next h
gt;gt; Next g
gt;gt; Next f
gt;gt; Next e
gt;gt; Next d
gt;gt; Next c
gt;gt; Next b
gt;gt; Next a
gt;gt;
gt;gt; Cells.EntireColumn.AutoFit
gt;gt; End Sub
gt;gt;
gt;gt;
gt;gt;
gt;gt; quot;Raigmorequot; gt; wrote in message
gt;gt; ...
gt;gt;gt;
gt;gt;gt; I would be grateful for help with listing all the possible game
gt;gt;gt; combinations within a set of tennis.
gt;gt;gt;
gt;gt;gt; I just need to list all the possible combinations of which player (1 or
gt;gt;gt; 2) wins each game.
gt;gt;gt;
gt;gt;gt; So for 6-0 to a player it is obviously 1,1,1,1,1.
gt;gt;gt;
gt;gt;gt; 6-1 can be 1,1,1,1,1,2,1 etc
gt;gt;gt;
gt;gt;gt; Is there a way excel can list all the possible combinations?
gt;gt;gt;
gt;gt;gt; Even if I just have a combination of all the ways 1 and 2 can win in a
gt;gt;gt; 12 game period.
gt;gt;gt;
gt;gt;gt; I guess it is just 2*2*2*2*2 etc but how do I list it in 1s and 2s?
gt;gt;gt;
gt;gt;gt;
gt;gt;gt; Hope this is clear!
gt;gt;gt;
gt;gt;gt;
gt;gt;gt; --
gt;gt;gt; Raigmore
gt;gt;gt; ------------------------------------------------------------------------
gt;gt;gt; Raigmore's Profile: www.excelforum.com/member.php...oamp;userid=30071
gt;gt;gt; View this thread: www.excelforum.com/showthread...hreadid=497492
gt;gt;gt;
gt;gt;
gt;gt;
gt;
gt;
Public Function ReadUntil(ByRef sIn As String, _
sDelim As String, Optional bCompare As Long _
= vbBinaryCompare) As String
Dim nPos As String
nPos = InStr(1, sIn, sDelim, bCompare)
If nPos gt; 0 Then
ReadUntil = Left(sIn, nPos - 1)
sIn = Mid(sIn, nPos Len(sDelim))
End If
End Function
Public Function Split97(ByVal sIn As String, Optional sDelim As _
String, Optional nLimit As Long = -1, Optional bCompare As _
Long = vbBinaryCompare) As Variant
Dim sRead As String, sOut() As String, nC As Integer
If sDelim = quot;quot; Then
Split97 = sIn
End If
sRead = ReadUntil(sIn, sDelim, bCompare)
Do
ReDim Preserve sOut(nC)
sOut(nC) = sRead
nC = nC 1
If nLimit lt;gt; -1 And nC gt;= nLimit Then Exit Do
sRead = ReadUntil(sIn, sDelim)
Loop While sRead lt;gt; quot;quot;
ReDim Preserve sOut(nC)
sOut(nC) = sIn
Split97 = sOut
End Function

The readuntil and split97 functions were stolen from the MSKB:
support.microsoft.com/default...b;en-us;188007
HOWTO: Simulate Visual Basic 6.0 String Functions in VB5

=======
If the original string isn't too long, you could try Tom Ogilvy's split97:

Function Split97(sStr As String, sdelim As String) As Variant
'from Tom Ogilvy
Split97 = Evaluate(quot;{quot;quot;quot; amp; _
Application.Substitute(sStr, sdelim, quot;quot;quot;,quot;quot;quot;) amp; quot;quot;quot;}quot;)
End Function

Sandy Mann wrote:
gt;
gt; Bernie,
gt;
gt; In XL97 your code chokes on:
gt;
gt; splResult = Split(Result, quot; quot;)
gt;
gt; with *Split* hilighted and saying quot;Sub or function not definedquot;. Asking
gt; Help about *Split* brings up the page about Splitting the window. May I ask
gt; what *Split* does in later versions of XL?
gt;
gt; --
gt; Regards
gt;
gt; Sandy
gt;
gt; with @tiscali.co.uk
gt;
gt; quot;Bernie Deitrickquot; lt;deitbe @ consumer dot orggt; wrote in message
gt; ...
gt; gt; Raigmore,
gt; gt;
gt; gt; Well, we can brute force it. Run the macro below, with a blank sheet
gt; gt; active.
gt; gt;
gt; gt; This assumes that you aren't using the quot;Must win by 2 gamesquot; rule -
gt; gt; otherwise, there's an infinite number of combinations.
gt; gt;
gt; gt; With that assumption, the set ends after a maximum of 11 games, with a
gt; gt; winner guaranteed. There are 924 possible combinations.
gt; gt;
gt; gt; HTH,
gt; gt; Bernie
gt; gt; MS Excel MVP
gt; gt;
gt; gt; Sub BruteForce()
gt; gt; For i = 1 To 11
gt; gt; Cells(1, i).Value = quot;Game quot; amp; i
gt; gt; Next i
gt; gt; Cells(1, 12).Value = quot;Winnerquot;
gt; gt;
gt; gt; RCount = 2
gt; gt; For a = 1 To 2
gt; gt; For b = 1 To 2
gt; gt; For c = 1 To 2
gt; gt; For d = 1 To 2
gt; gt; For e = 1 To 2
gt; gt; For f = 1 To 2
gt; gt; For g = 1 To 2
gt; gt; For h = 1 To 2
gt; gt; For i = 1 To 2
gt; gt; For j = 1 To 2
gt; gt; For k = 1 To 2
gt; gt;
gt; gt; Result = a amp; quot; quot; amp; b amp; quot; quot; amp; c amp; quot; quot; amp; d amp; _
gt; gt; quot; quot; amp; e amp; quot; quot; amp; f amp; quot; quot; amp; g amp; quot; quot; amp; h amp; _
gt; gt; quot; quot; amp; i amp; quot; quot; amp; j amp; quot; quot; amp; k
gt; gt;
gt; gt; splResult = Split(Result, quot; quot;)
gt; gt;
gt; gt; Count1 = 0
gt; gt; Count2 = 0
gt; gt;
gt; gt; For m = LBound(splResult) To UBound(splResult)
gt; gt; If CInt(splResult(m)) = 1 Then
gt; gt; Count1 = Count1 1
gt; gt; Else
gt; gt; Count2 = Count2 1
gt; gt; End If
gt; gt; Next m
gt; gt;
gt; gt; If Count1 = 6 Then
gt; gt; For n = LBound(splResult) To UBound(splResult)
gt; gt; Cells(RCount, n 1).Value = splResult(n)
gt; gt; If splResult(n) = 1 Then Count1 = Count1 - 1
gt; gt; If Count1 = 0 Then GoTo Written1
gt; gt; Next n
gt; gt; Written1:
gt; gt; Cells(RCount, 12).Value = 1
gt; gt; RCount = RCount 1
gt; gt; End If
gt; gt;
gt; gt; If Count2 = 6 Then
gt; gt; For n = LBound(splResult) To UBound(splResult)
gt; gt; Cells(RCount, n 1).Value = splResult(n)
gt; gt; If splResult(n) = 2 Then Count2 = Count2 - 1
gt; gt; If Count2 = 0 Then GoTo Written2
gt; gt; Next n
gt; gt; Written2:
gt; gt; Cells(RCount, 12).Value = 2
gt; gt; RCount = RCount 1
gt; gt; End If
gt; gt;
gt; gt; Next k
gt; gt; Next j
gt; gt; Next i
gt; gt; Next h
gt; gt; Next g
gt; gt; Next f
gt; gt; Next e
gt; gt; Next d
gt; gt; Next c
gt; gt; Next b
gt; gt; Next a
gt; gt;
gt; gt; Cells.EntireColumn.AutoFit
gt; gt; End Sub
gt; gt;
gt; gt;
gt; gt;
gt; gt; quot;Raigmorequot; gt; wrote
gt; gt; in message ...
gt; gt;gt;
gt; gt;gt; I would be grateful for help with listing all the possible game
gt; gt;gt; combinations within a set of tennis.
gt; gt;gt;
gt; gt;gt; I just need to list all the possible combinations of which player (1 or
gt; gt;gt; 2) wins each game.
gt; gt;gt;
gt; gt;gt; So for 6-0 to a player it is obviously 1,1,1,1,1.
gt; gt;gt;
gt; gt;gt; 6-1 can be 1,1,1,1,1,2,1 etc
gt; gt;gt;
gt; gt;gt; Is there a way excel can list all the possible combinations?
gt; gt;gt;
gt; gt;gt; Even if I just have a combination of all the ways 1 and 2 can win in a
gt; gt;gt; 12 game period.
gt; gt;gt;
gt; gt;gt; I guess it is just 2*2*2*2*2 etc but how do I list it in 1s and 2s?
gt; gt;gt;
gt; gt;gt;
gt; gt;gt; Hope this is clear!
gt; gt;gt;
gt; gt;gt;
gt; gt;gt; --
gt; gt;gt; Raigmore
gt; gt;gt; ------------------------------------------------------------------------
gt; gt;gt; Raigmore's Profile:
gt; gt;gt; www.excelforum.com/member.php...oamp;userid=30071
gt; gt;gt; View this thread:
gt; gt;gt; www.excelforum.com/showthread...hreadid=497492
gt; gt;gt;
gt; gt;
gt; gt;

--

Dave Peterson

Thank you Dave, I will try it out.

--
Regards

Sandy
with @tiscali.co.uk

quot;Dave Petersonquot; gt; wrote in message
...
gt; Public Function ReadUntil(ByRef sIn As String, _
gt; sDelim As String, Optional bCompare As Long _
gt; = vbBinaryCompare) As String
gt; Dim nPos As String
gt; nPos = InStr(1, sIn, sDelim, bCompare)
gt; If nPos gt; 0 Then
gt; ReadUntil = Left(sIn, nPos - 1)
gt; sIn = Mid(sIn, nPos Len(sDelim))
gt; End If
gt; End Function
gt; Public Function Split97(ByVal sIn As String, Optional sDelim As _
gt; String, Optional nLimit As Long = -1, Optional bCompare As _
gt; Long = vbBinaryCompare) As Variant
gt; Dim sRead As String, sOut() As String, nC As Integer
gt; If sDelim = quot;quot; Then
gt; Split97 = sIn
gt; End If
gt; sRead = ReadUntil(sIn, sDelim, bCompare)
gt; Do
gt; ReDim Preserve sOut(nC)
gt; sOut(nC) = sRead
gt; nC = nC 1
gt; If nLimit lt;gt; -1 And nC gt;= nLimit Then Exit Do
gt; sRead = ReadUntil(sIn, sDelim)
gt; Loop While sRead lt;gt; quot;quot;
gt; ReDim Preserve sOut(nC)
gt; sOut(nC) = sIn
gt; Split97 = sOut
gt; End Function
gt;
gt; The readuntil and split97 functions were stolen from the MSKB:
gt; support.microsoft.com/default...b;en-us;188007
gt; HOWTO: Simulate Visual Basic 6.0 String Functions in VB5
gt;
gt; =======
gt; If the original string isn't too long, you could try Tom Ogilvy's split97:
gt;
gt; Function Split97(sStr As String, sdelim As String) As Variant
gt; 'from Tom Ogilvy
gt; Split97 = Evaluate(quot;{quot;quot;quot; amp; _
gt; Application.Substitute(sStr, sdelim, quot;quot;quot;,quot;quot;quot;) amp; quot;quot;quot;}quot;)
gt; End Function
gt;
gt; Sandy Mann wrote:
gt;gt;
gt;gt; Bernie,
gt;gt;
gt;gt; In XL97 your code chokes on:
gt;gt;
gt;gt; splResult = Split(Result, quot; quot;)
gt;gt;
gt;gt; with *Split* hilighted and saying quot;Sub or function not definedquot;. Asking
gt;gt; Help about *Split* brings up the page about Splitting the window. May I
gt;gt; ask
gt;gt; what *Split* does in later versions of XL?
gt;gt;
gt;gt; --
gt;gt; Regards
gt;gt;
gt;gt; Sandy
gt;gt;
gt;gt; with @tiscali.co.uk
gt;gt;
gt;gt; quot;Bernie Deitrickquot; lt;deitbe @ consumer dot orggt; wrote in message
gt;gt; ...
gt;gt; gt; Raigmore,
gt;gt; gt;
gt;gt; gt; Well, we can brute force it. Run the macro below, with a blank sheet
gt;gt; gt; active.
gt;gt; gt;
gt;gt; gt; This assumes that you aren't using the quot;Must win by 2 gamesquot; rule -
gt;gt; gt; otherwise, there's an infinite number of combinations.
gt;gt; gt;
gt;gt; gt; With that assumption, the set ends after a maximum of 11 games, with a
gt;gt; gt; winner guaranteed. There are 924 possible combinations.
gt;gt; gt;
gt;gt; gt; HTH,
gt;gt; gt; Bernie
gt;gt; gt; MS Excel MVP
gt;gt; gt;
gt;gt; gt; Sub BruteForce()
gt;gt; gt; For i = 1 To 11
gt;gt; gt; Cells(1, i).Value = quot;Game quot; amp; i
gt;gt; gt; Next i
gt;gt; gt; Cells(1, 12).Value = quot;Winnerquot;
gt;gt; gt;
gt;gt; gt; RCount = 2
gt;gt; gt; For a = 1 To 2
gt;gt; gt; For b = 1 To 2
gt;gt; gt; For c = 1 To 2
gt;gt; gt; For d = 1 To 2
gt;gt; gt; For e = 1 To 2
gt;gt; gt; For f = 1 To 2
gt;gt; gt; For g = 1 To 2
gt;gt; gt; For h = 1 To 2
gt;gt; gt; For i = 1 To 2
gt;gt; gt; For j = 1 To 2
gt;gt; gt; For k = 1 To 2
gt;gt; gt;
gt;gt; gt; Result = a amp; quot; quot; amp; b amp; quot; quot; amp; c amp; quot; quot; amp; d amp; _
gt;gt; gt; quot; quot; amp; e amp; quot; quot; amp; f amp; quot; quot; amp; g amp; quot; quot; amp; h amp; _
gt;gt; gt; quot; quot; amp; i amp; quot; quot; amp; j amp; quot; quot; amp; k
gt;gt; gt;
gt;gt; gt; splResult = Split(Result, quot; quot;)
gt;gt; gt;
gt;gt; gt; Count1 = 0
gt;gt; gt; Count2 = 0
gt;gt; gt;
gt;gt; gt; For m = LBound(splResult) To UBound(splResult)
gt;gt; gt; If CInt(splResult(m)) = 1 Then
gt;gt; gt; Count1 = Count1 1
gt;gt; gt; Else
gt;gt; gt; Count2 = Count2 1
gt;gt; gt; End If
gt;gt; gt; Next m
gt;gt; gt;
gt;gt; gt; If Count1 = 6 Then
gt;gt; gt; For n = LBound(splResult) To UBound(splResult)
gt;gt; gt; Cells(RCount, n 1).Value = splResult(n)
gt;gt; gt; If splResult(n) = 1 Then Count1 = Count1 - 1
gt;gt; gt; If Count1 = 0 Then GoTo Written1
gt;gt; gt; Next n
gt;gt; gt; Written1:
gt;gt; gt; Cells(RCount, 12).Value = 1
gt;gt; gt; RCount = RCount 1
gt;gt; gt; End If
gt;gt; gt;
gt;gt; gt; If Count2 = 6 Then
gt;gt; gt; For n = LBound(splResult) To UBound(splResult)
gt;gt; gt; Cells(RCount, n 1).Value = splResult(n)
gt;gt; gt; If splResult(n) = 2 Then Count2 = Count2 - 1
gt;gt; gt; If Count2 = 0 Then GoTo Written2
gt;gt; gt; Next n
gt;gt; gt; Written2:
gt;gt; gt; Cells(RCount, 12).Value = 2
gt;gt; gt; RCount = RCount 1
gt;gt; gt; End If
gt;gt; gt;
gt;gt; gt; Next k
gt;gt; gt; Next j
gt;gt; gt; Next i
gt;gt; gt; Next h
gt;gt; gt; Next g
gt;gt; gt; Next f
gt;gt; gt; Next e
gt;gt; gt; Next d
gt;gt; gt; Next c
gt;gt; gt; Next b
gt;gt; gt; Next a
gt;gt; gt;
gt;gt; gt; Cells.EntireColumn.AutoFit
gt;gt; gt; End Sub
gt;gt; gt;
gt;gt; gt;
gt;gt; gt;
gt;gt; gt; quot;Raigmorequot; gt;
gt;gt; gt; wrote
gt;gt; gt; in message
gt;gt; gt; ...
gt;gt; gt;gt;
gt;gt; gt;gt; I would be grateful for help with listing all the possible game
gt;gt; gt;gt; combinations within a set of tennis.
gt;gt; gt;gt;
gt;gt; gt;gt; I just need to list all the possible combinations of which player (1
gt;gt; gt;gt; or
gt;gt; gt;gt; 2) wins each game.
gt;gt; gt;gt;
gt;gt; gt;gt; So for 6-0 to a player it is obviously 1,1,1,1,1.
gt;gt; gt;gt;
gt;gt; gt;gt; 6-1 can be 1,1,1,1,1,2,1 etc
gt;gt; gt;gt;
gt;gt; gt;gt; Is there a way excel can list all the possible combinations?
gt;gt; gt;gt;
gt;gt; gt;gt; Even if I just have a combination of all the ways 1 and 2 can win in a
gt;gt; gt;gt; 12 game period.
gt;gt; gt;gt;
gt;gt; gt;gt; I guess it is just 2*2*2*2*2 etc but how do I list it in 1s and 2s?
gt;gt; gt;gt;
gt;gt; gt;gt;
gt;gt; gt;gt; Hope this is clear!
gt;gt; gt;gt;
gt;gt; gt;gt;
gt;gt; gt;gt; --
gt;gt; gt;gt; Raigmore
gt;gt; gt;gt; ------------------------------------------------------------------------
gt;gt; gt;gt; Raigmore's Profile:
gt;gt; gt;gt; www.excelforum.com/member.php...oamp;userid=30071
gt;gt; gt;gt; View this thread:
gt;gt; gt;gt; www.excelforum.com/showthread...hreadid=497492
gt;gt; gt;gt;
gt;gt; gt;
gt;gt; gt;
gt;
gt; --
gt;
gt; Dave Peterson
Sandy,

Below is a macro rewritten without Split, which is probably a little bit faster. Give it a try.

HTH,
Bernie
MS Excel MVP

Sub BruteForce2()
For i = 1 To 11
Cells(1, i).Value = quot;Game quot; amp; i
Next i
Cells(1, 12).Value = quot;Winnerquot;

RCount = 2
For a = 1 To 2
For b = 1 To 2
For c = 1 To 2
For d = 1 To 2
For e = 1 To 2
For f = 1 To 2
For g = 1 To 2
For h = 1 To 2
For i = 1 To 2
For j = 1 To 2
For k = 1 To 2

Result = a amp; quot; quot; amp; b amp; quot; quot; amp; c amp; quot; quot; amp; d amp; _
quot; quot; amp; e amp; quot; quot; amp; f amp; quot; quot; amp; g amp; quot; quot; amp; h amp; _
quot; quot; amp; i amp; quot; quot; amp; j amp; quot; quot; amp; k

Count1 = Len(Result) - Len(Application.Substitute(Result, quot;1quot;, quot;quot;))
Count2 = Len(Result) - Len(Application.Substitute(Result, quot;2quot;, quot;quot;))

If Count1 = 6 Then
For n = 1 To 21 Step 2
Cells(RCount, (n 1) / 2).Value = Mid(Result, n, 1)
If CInt(Mid(Result, n, 1)) = 1 Then Count1 = Count1 - 1
If Count1 = 0 Then GoTo Written1
Next n
Written1:
Cells(RCount, 12).Value = 1
RCount = RCount 1
End If

If Count2 = 6 Then
For n = 1 To 21 Step 2
Cells(RCount, (n 1) / 2).Value = Mid(Result, n, 1)
If CInt(Mid(Result, n, 1)) = 2 Then Count2 = Count2 - 1
If Count2 = 0 Then GoTo Written2
Next n
Written2:
Cells(RCount, 12).Value = 2
RCount = RCount 1
End If

Next k
Next j
Next i
Next h
Next g
Next f
Next e
Next d
Next c
Next b
Next a

Cells.EntireColumn.AutoFit
End Subquot;Sandy Mannquot; gt; wrote in message
...
gt; Bernie,
gt;
gt; In XL97 your code chokes on:
gt;
gt; splResult = Split(Result, quot; quot;)
gt;
gt; with *Split* hilighted and saying quot;Sub or function not definedquot;. Asking Help about *Split*
gt; brings up the page about Splitting the window. May I ask what *Split* does in later versions of
gt; XL?
gt;
gt;
gt; --
gt; Regards
gt;
gt; Sandy
gt;
gt; with @tiscali.co.uk
gt;
gt;
gt; quot;Bernie Deitrickquot; lt;deitbe @ consumer dot orggt; wrote in message
gt; ...
gt;gt; Raigmore,
gt;gt;
gt;gt; Well, we can brute force it. Run the macro below, with a blank sheet active.
gt;gt;
gt;gt; This assumes that you aren't using the quot;Must win by 2 gamesquot; rule - otherwise, there's an
gt;gt; infinite number of combinations.
gt;gt;
gt;gt; With that assumption, the set ends after a maximum of 11 games, with a winner guaranteed. There
gt;gt; are 924 possible combinations.
gt;gt;
gt;gt; HTH,
gt;gt; Bernie
gt;gt; MS Excel MVP
gt;gt;
gt;gt; Sub BruteForce()
gt;gt; For i = 1 To 11
gt;gt; Cells(1, i).Value = quot;Game quot; amp; i
gt;gt; Next i
gt;gt; Cells(1, 12).Value = quot;Winnerquot;
gt;gt;
gt;gt; RCount = 2
gt;gt; For a = 1 To 2
gt;gt; For b = 1 To 2
gt;gt; For c = 1 To 2
gt;gt; For d = 1 To 2
gt;gt; For e = 1 To 2
gt;gt; For f = 1 To 2
gt;gt; For g = 1 To 2
gt;gt; For h = 1 To 2
gt;gt; For i = 1 To 2
gt;gt; For j = 1 To 2
gt;gt; For k = 1 To 2
gt;gt;
gt;gt; Result = a amp; quot; quot; amp; b amp; quot; quot; amp; c amp; quot; quot; amp; d amp; _
gt;gt; quot; quot; amp; e amp; quot; quot; amp; f amp; quot; quot; amp; g amp; quot; quot; amp; h amp; _
gt;gt; quot; quot; amp; i amp; quot; quot; amp; j amp; quot; quot; amp; k
gt;gt;
gt;gt; splResult = Split(Result, quot; quot;)
gt;gt;
gt;gt; Count1 = 0
gt;gt; Count2 = 0
gt;gt;
gt;gt; For m = LBound(splResult) To UBound(splResult)
gt;gt; If CInt(splResult(m)) = 1 Then
gt;gt; Count1 = Count1 1
gt;gt; Else
gt;gt; Count2 = Count2 1
gt;gt; End If
gt;gt; Next m
gt;gt;
gt;gt; If Count1 = 6 Then
gt;gt; For n = LBound(splResult) To UBound(splResult)
gt;gt; Cells(RCount, n 1).Value = splResult(n)
gt;gt; If splResult(n) = 1 Then Count1 = Count1 - 1
gt;gt; If Count1 = 0 Then GoTo Written1
gt;gt; Next n
gt;gt; Written1:
gt;gt; Cells(RCount, 12).Value = 1
gt;gt; RCount = RCount 1
gt;gt; End If
gt;gt;
gt;gt; If Count2 = 6 Then
gt;gt; For n = LBound(splResult) To UBound(splResult)
gt;gt; Cells(RCount, n 1).Value = splResult(n)
gt;gt; If splResult(n) = 2 Then Count2 = Count2 - 1
gt;gt; If Count2 = 0 Then GoTo Written2
gt;gt; Next n
gt;gt; Written2:
gt;gt; Cells(RCount, 12).Value = 2
gt;gt; RCount = RCount 1
gt;gt; End If
gt;gt;
gt;gt; Next k
gt;gt; Next j
gt;gt; Next i
gt;gt; Next h
gt;gt; Next g
gt;gt; Next f
gt;gt; Next e
gt;gt; Next d
gt;gt; Next c
gt;gt; Next b
gt;gt; Next a
gt;gt;
gt;gt; Cells.EntireColumn.AutoFit
gt;gt; End Sub
gt;gt;
gt;gt;
gt;gt;
gt;gt; quot;Raigmorequot; gt; wrote in message
gt;gt; ...
gt;gt;gt;
gt;gt;gt; I would be grateful for help with listing all the possible game
gt;gt;gt; combinations within a set of tennis.
gt;gt;gt;
gt;gt;gt; I just need to list all the possible combinations of which player (1 or
gt;gt;gt; 2) wins each game.
gt;gt;gt;
gt;gt;gt; So for 6-0 to a player it is obviously 1,1,1,1,1.
gt;gt;gt;
gt;gt;gt; 6-1 can be 1,1,1,1,1,2,1 etc
gt;gt;gt;
gt;gt;gt; Is there a way excel can list all the possible combinations?
gt;gt;gt;
gt;gt;gt; Even if I just have a combination of all the ways 1 and 2 can win in a
gt;gt;gt; 12 game period.
gt;gt;gt;
gt;gt;gt; I guess it is just 2*2*2*2*2 etc but how do I list it in 1s and 2s?
gt;gt;gt;
gt;gt;gt;
gt;gt;gt; Hope this is clear!
gt;gt;gt;
gt;gt;gt;
gt;gt;gt; --
gt;gt;gt; Raigmore
gt;gt;gt; ------------------------------------------------------------------------
gt;gt;gt; Raigmore's Profile: www.excelforum.com/member.php...oamp;userid=30071
gt;gt;gt; View this thread: www.excelforum.com/showthread...hreadid=497492
gt;gt;gt;
gt;gt;
gt;gt;
gt;
gt;
Thank you Bernie but Dave posted the code from the MSKB that I have yet to
have a look at.

--
Regards

Sandy
with @tiscali.co.uk

quot;Bernie Deitrickquot; lt;deitbe @ consumer dot orggt; wrote in message
...
gt; Sandy,
gt;
gt; In later versions, split returns an array of values from the string that
gt; is passed it, broken apart by, in this case, spaces. So, with an input of
gt;
gt; This is the input string.
gt;
gt; It will output an array
gt;
gt; This
gt; is
gt; the
gt; input
gt; string.
gt;
gt; The way around not having it in XL97 is to step through the string looking
gt; for spaces, writing the values out to an array. There is certainly code
gt; in the archives showing how to do this. If you _really_ need it, I can
gt; re-write this to work in lt;yuckgt; XL97.
gt;
gt; HTH,
gt; Bernie
gt; MS Excel MVP
gt;
gt;
gt; quot;Sandy Mannquot; gt; wrote in message
gt; ...
gt;gt; Bernie,
gt;gt;
gt;gt; In XL97 your code chokes on:
gt;gt;
gt;gt; splResult = Split(Result, quot; quot;)
gt;gt;
gt;gt; with *Split* hilighted and saying quot;Sub or function not definedquot;. Asking
gt;gt; Help about *Split* brings up the page about Splitting the window. May I
gt;gt; ask what *Split* does in later versions of XL?
gt;gt;
gt;gt;
gt;gt; --
gt;gt; Regards
gt;gt;
gt;gt; Sandy
gt;gt;
gt;gt; with @tiscali.co.uk
gt;gt;
gt;gt;
gt;gt; quot;Bernie Deitrickquot; lt;deitbe @ consumer dot orggt; wrote in message
gt;gt; ...
gt;gt;gt; Raigmore,
gt;gt;gt;
gt;gt;gt; Well, we can brute force it. Run the macro below, with a blank sheet
gt;gt;gt; active.
gt;gt;gt;
gt;gt;gt; This assumes that you aren't using the quot;Must win by 2 gamesquot; rule -
gt;gt;gt; otherwise, there's an infinite number of combinations.
gt;gt;gt;
gt;gt;gt; With that assumption, the set ends after a maximum of 11 games, with a
gt;gt;gt; winner guaranteed. There are 924 possible combinations.
gt;gt;gt;
gt;gt;gt; HTH,
gt;gt;gt; Bernie
gt;gt;gt; MS Excel MVP
gt;gt;gt;
gt;gt;gt; Sub BruteForce()
gt;gt;gt; For i = 1 To 11
gt;gt;gt; Cells(1, i).Value = quot;Game quot; amp; i
gt;gt;gt; Next i
gt;gt;gt; Cells(1, 12).Value = quot;Winnerquot;
gt;gt;gt;
gt;gt;gt; RCount = 2
gt;gt;gt; For a = 1 To 2
gt;gt;gt; For b = 1 To 2
gt;gt;gt; For c = 1 To 2
gt;gt;gt; For d = 1 To 2
gt;gt;gt; For e = 1 To 2
gt;gt;gt; For f = 1 To 2
gt;gt;gt; For g = 1 To 2
gt;gt;gt; For h = 1 To 2
gt;gt;gt; For i = 1 To 2
gt;gt;gt; For j = 1 To 2
gt;gt;gt; For k = 1 To 2
gt;gt;gt;
gt;gt;gt; Result = a amp; quot; quot; amp; b amp; quot; quot; amp; c amp; quot; quot; amp; d amp; _
gt;gt;gt; quot; quot; amp; e amp; quot; quot; amp; f amp; quot; quot; amp; g amp; quot; quot; amp; h amp; _
gt;gt;gt; quot; quot; amp; i amp; quot; quot; amp; j amp; quot; quot; amp; k
gt;gt;gt;
gt;gt;gt; splResult = Split(Result, quot; quot;)
gt;gt;gt;
gt;gt;gt; Count1 = 0
gt;gt;gt; Count2 = 0
gt;gt;gt;
gt;gt;gt; For m = LBound(splResult) To UBound(splResult)
gt;gt;gt; If CInt(splResult(m)) = 1 Then
gt;gt;gt; Count1 = Count1 1
gt;gt;gt; Else
gt;gt;gt; Count2 = Count2 1
gt;gt;gt; End If
gt;gt;gt; Next m
gt;gt;gt;
gt;gt;gt; If Count1 = 6 Then
gt;gt;gt; For n = LBound(splResult) To UBound(splResult)
gt;gt;gt; Cells(RCount, n 1).Value = splResult(n)
gt;gt;gt; If splResult(n) = 1 Then Count1 = Count1 - 1
gt;gt;gt; If Count1 = 0 Then GoTo Written1
gt;gt;gt; Next n
gt;gt;gt; Written1:
gt;gt;gt; Cells(RCount, 12).Value = 1
gt;gt;gt; RCount = RCount 1
gt;gt;gt; End If
gt;gt;gt;
gt;gt;gt; If Count2 = 6 Then
gt;gt;gt; For n = LBound(splResult) To UBound(splResult)
gt;gt;gt; Cells(RCount, n 1).Value = splResult(n)
gt;gt;gt; If splResult(n) = 2 Then Count2 = Count2 - 1
gt;gt;gt; If Count2 = 0 Then GoTo Written2
gt;gt;gt; Next n
gt;gt;gt; Written2:
gt;gt;gt; Cells(RCount, 12).Value = 2
gt;gt;gt; RCount = RCount 1
gt;gt;gt; End If
gt;gt;gt;
gt;gt;gt; Next k
gt;gt;gt; Next j
gt;gt;gt; Next i
gt;gt;gt; Next h
gt;gt;gt; Next g
gt;gt;gt; Next f
gt;gt;gt; Next e
gt;gt;gt; Next d
gt;gt;gt; Next c
gt;gt;gt; Next b
gt;gt;gt; Next a
gt;gt;gt;
gt;gt;gt; Cells.EntireColumn.AutoFit
gt;gt;gt; End Sub
gt;gt;gt;
gt;gt;gt;
gt;gt;gt;
gt;gt;gt; quot;Raigmorequot; gt; wrote
gt;gt;gt; in message ...
gt;gt;gt;gt;
gt;gt;gt;gt; I would be grateful for help with listing all the possible game
gt;gt;gt;gt; combinations within a set of tennis.
gt;gt;gt;gt;
gt;gt;gt;gt; I just need to list all the possible combinations of which player (1 or
gt;gt;gt;gt; 2) wins each game.
gt;gt;gt;gt;
gt;gt;gt;gt; So for 6-0 to a player it is obviously 1,1,1,1,1.
gt;gt;gt;gt;
gt;gt;gt;gt; 6-1 can be 1,1,1,1,1,2,1 etc
gt;gt;gt;gt;
gt;gt;gt;gt; Is there a way excel can list all the possible combinations?
gt;gt;gt;gt;
gt;gt;gt;gt; Even if I just have a combination of all the ways 1 and 2 can win in a
gt;gt;gt;gt; 12 game period.
gt;gt;gt;gt;
gt;gt;gt;gt; I guess it is just 2*2*2*2*2 etc but how do I list it in 1s and 2s?
gt;gt;gt;gt;
gt;gt;gt;gt;
gt;gt;gt;gt; Hope this is clear!
gt;gt;gt;gt;
gt;gt;gt;gt;
gt;gt;gt;gt; --
gt;gt;gt;gt; Raigmore
gt;gt;gt;gt; ------------------------------------------------------------------------
gt;gt;gt;gt; Raigmore's Profile:
gt;gt;gt;gt; www.excelforum.com/member.php...oamp;userid=30071
gt;gt;gt;gt; View this thread:
gt;gt;gt;gt; www.excelforum.com/showthread...hreadid=497492
gt;gt;gt;gt;
gt;gt;gt;
gt;gt;gt;
gt;gt;
gt;gt;
gt;
gt;