バドミントンの対戦表をエクセルで作りたいのですが

バドミントンのダブルスの対戦表をエクセルで作ろうと思っているのですが、どうやって作ったらいいのかわからず、どなたか知恵を貸していただけないでしょうか？

バドミントンのダブルスは１コート４人で行われるため、４人でバドミントンを行ったりする場合は簡単に組合せが作れます。４人に１番～４番の番号を振り分けると、１番と２番がペアで３番と４番がペア。その次は１番と３番がペアで２番と４番がペア。というふうになります。

しかし、それが例えば２コート、１０人でダブルスをやろうとすると、８人がコートに入り、２人が休みになります。
同じペアで組まないようにしたいので、全員が違うペアと組んで試合をするには、何試合も試合を行わなければいけなくて、その組み合わせを考えるのが自力ではできませんでした。

３コートで１４人とかなってくるともっと複雑で、どうやって組み合わせを考えたらいいかわかりません。

プログラムに詳しい方がおりましたら、どうすればエクセルで計算できるか、ご助力願えませんでしょうか。お願い致します。

No.3 回答者： 090XXXXXXXX 回答日時： 2012/05/03 01:42

エクセルである必要はあるのでしょうか？

完全にランダムでいいのであれば、以下のサイトが携帯からも見えるようですので、コートサイドで使用できると思います。

http://sports.geocities.jp/doubles_pair_site/

ただ、人数によって同じペアと組むことがあったり、全員とペアを組めなかったりしてます。

スマホをお持ちであれば、今はアプリがいくつかあるようです。

参考URL：http://sports.geocities.jp/doubles_pair_site/

No.2 回答者： nda23 回答日時： 2009/07/07 12:00

単純な組合せを作るなら以下のマクロで作れます。

Sub 組合作成(ByVal 人数 As Long)
Dim 表 As Worksheet
Dim 人1&, 人2&, 人3&, 人4&, 列&, 行&, 終&

Set 表 = ThisWorkbook.Worksheets(1)　'第1シートに記録する
表.Cells.ClearContents
If 人数 < 4 Then Exit Sub '４人未満なら何もしない
終 = 人数 - 1
For 人1 = 1 To 終
　　For 人2 = 人1 + 1 To 人数
　　　　行 = 行 + 1
　　　　列 = 1
　　　　For 人3 = 人1 + 1 To 人数
　　　　　　If 人3 <> 人2 Then
　　　　　　　　For 人4 = 人3 + 1 To 人数
　　　　　　　　　　If 人4 <> 人2 Then
　　　　　　　　　　　　If 列 = 1 Then
　　　　　　　　　　　　　　表.Cells(行, 列).NumberFormat = "@"
　　　　　　　　　　　　　　表.Cells(行, 列) = CStr(人1) & "-" & CStr(人2)
　　　　　　　　　　　　End If
　　　　　　　　　　　　列 = 列 + 1
　　　　　　　　　　　　表.Cells(行, 列).NumberFormat = "@"
　　　　　　　　　　　　表.Cells(行, 列) = CStr(人3) & "-" & CStr(人4)
　　　　　　　　　　End If
　　　　　　　　Next
　　　　　　End If
　　　　Next
　　Next
Next
End Sub

厄介なのが、コートと対戦ペアの割り当てです。現在、考慮中です。

No.1 回答者： nag0720 回答日時： 2009/07/07 05:30

ちょっと難しい問題だと思います。

結論から言うと、２コート１０人ダブルスの場合は、全員が他の人と必ず１回だけペアになるような組み合わせは存在しません。
どのような組み合わせを考えても、必ず同じペアになる２人が出てくるかまたはペアにならない２人が出てきます。

理由を簡単に説明すると、
１人がペアを組むのは残り９人ですから、試合をする延べ人数は１０×９＝９０人
１試合４人ですから、試合数は９０÷４＝２２．５
０．５の試合というのはありえないですからそういう組み合わせは不可能ということになります。

なお、２コート９人や３コート１３人のように１人だけ休みの場合は存在します。

同じペアにならない組み合わせでの最大の試合数は２２試合、
必ず１回はペアになる組み合わせでの最小の試合数は２４試合（１回に２試合するとして）、
また、１０人が平等に同じ回数だけ試合をするというなら２０試合（１人８試合）か３０試合（１人１２試合）
ですが、その組み合わせは無数にあります。
実際には、その中でなるべく同じ人との対戦が少なくなる（１～２回、２４,３０試合の場合は２～３回）ような組み合わせが理想だと思います。
これはプログラミングというより数学の組み合わせ理論の問題です。
詳しく知りたい場合はいったん締め切って問題を整理してから、学問＆教育の数学カテゴリーで質問してみてはどうでしょうか。