総当りではない対戦表 将棋 時間がかぎられるため４回戦

５人のとき（５のひとは１回不戦）
１ー２　３　４　５
２ー１　４　３　５
３ー４　１　２　５
４ー３　２　１　５
５ー４　３　２　１

６人のとき
１ー２　３　４　５
２ー１　６　３　４
３ー５　１　２　６
４ー６　５　１　２
５ー３　４　６　１
６ー４　２　５　３

７人のとき（７の人は１回不戦）
　１－２　３　４　５
　２－１　７　３　４
　３－６　１　２　７
　４－５　６　１　２
　５－４　６　７　１
　６－３　４　５　７
　７－５　２　６　３
　これをエクセルにして名前をいれたらだれとだれが対戦すればいいのかお年寄りにもすぐにわかるようにしたいとおもっております。なお日曜の１０時受付終了で１０：１０開始で直前まで何人になるのかわからないため名前を入力する際に何人のときでも対応できるようにしたいとおもっています。
よろしくおねがいします。

No.1 回答者： wild_kit 回答日時： 2016/04/03 03:08

これ、表の見方が分かりません。

(^_^;)
５名の場合、「各人１回ずつ休んで総当り」なんでしょうが、誰といつ組むのかはっきりしません。
で、独自に対戦表を組んでみました。
添付画像のようにすれば、初めに誰とペアを組むのか、どこで休みになるのか分かりやすいと思います。

　名前は『ｖｌｏｏｋｕｐ』を利用しています。
対戦相手に対応する番号を、名前を表示したいマスの左隣に入れてあります。
例としてｃ２に「２」を入れてあります。
これは１（あきた）が１回戦に当たる相手の番号を示しています。
その右となりｄ２には『＝ＶＬＯＯＫＵＰ（Ｃ２；＄Ａ＄２：＄Ｂ＄６；２）』が入っています。
これの意味を説明します。
Ａ２からＢ６の行列があり、その一番左端（この場合Ａ列）の上から順に『ｃ２』と同じものを探して、同じものがあったらその段の左から『２』列目のものをここ（ｄ２）に表示しなさい。
なおコピーしやすいように行列指定は絶対参照（＄を付けると絶対参照）にしてあります。

これと同じもの（ｃ２の部分は対応するマスに変えてください。）を名前を表示したいマスに入れれば、Ｂ列の名前を書き換えるだけで、全部の名前を書き換えることができます。

　６・７名の場合も、どのタイミングで誰が休むのかなど解読できたら組んでみたいと思います。（その前に締め切られるかも(^_^;)）

No.2 回答者： wild_kit 回答日時： 2016/04/03 04:16

追記

最大参加人数まで各シートに対戦表を作っておく。
「５名」シートに５名対戦表、「６名」シートに６名対戦表・・・最大人数対戦表
各対戦表は、先の例のように『ＶＬＯＯＫＵＰ』を使用して名前を埋められるようにしておく。
　当日は、最大人数のシート（シート名を仮に「１００名」とする）の名前記入欄（先の添付画像であればＢ列）に、先着順で上から順に名前を入れる。
他のシートのＢ列では例えばＢ２に『＝１００名！Ｂ２』と入力する。
これは「ここに『１００名』シートのＢ２に入っているものを入れる」ということです。
http://www.relief.jp/itnote/archives/001800.php

　こうした仕掛けを各シートにしておけば、締め切った後に当日の人数に当たるシートを開けば対戦表の各箇所に名前が埋まります。

No.3 回答者： wild_kit 回答日時： 2016/04/03 05:43

更に追記

６名対戦の場合、元の表通りで休みを入れることなく実施できるので省略。
７名対戦の場合、適度に休みを入れないと二面指しが発生するので、当たり順も含めて変えてみた。（対戦相手は変えてない）

この回答へのお礼

たいへんありがとうございました。とても実用的なエクセル表を
つくることができましたです。
ちなみに１６人まで組み合わせ表があり
組み合わせは
15人は
１－２　３　４　５
２－１　３　４　６
３－５　２　１　７
４ー６　２　１　８
５ー３　１　７　８
６－４　２　７　９
７－１０　５　６　３
８－１１　５　４　１２
９－１３　１０　１１　６
１０ー７　９　１２　１４
１１－８　９　１３　１５
１２－１４　１０　８　１５
１３－９　１１　１４　１５
１４－１２　１０　１３　１５
１５－１１　１２　１３　１４
となっています。
ただクラスがA　 B　Cありひとつのクラスが
１２人も集まることはないので１２人までしかつくって
いません。
あと実際はチェスクロック（時計）を使わない将棋部会なので
終わり次第どんどん対戦相手と将棋をさして適当なところで
弁当をたべるので実際にはどこに休みをいれるかはあまり意識
はしていません。
ただ、この表をつくるにあたってどこに休みをいれれば
一番効率てきなのかは興味があるところです。
久しぶりにエクセルをさわって大変勉強になりました。
将棋部会のお年寄りの方も大変喜んでくれるでしょう。

お礼日時：2016/04/05 10:16

No.4 回答者： 30246kiku 回答日時： 2016/04/04 11:56

雰囲気以下でどうなりますか

標準モジュールに記述して、
参加者氏名をアクティブシートの A1 ～ Axx に入力後、
Samp1 実行で、４回戦までのリーグ表もどきが C 列以降に出力されます

これは、ほぼ１年前の以下

エクセルでの重複しない抽出方法について
http://oshiete.goo.ne.jp/qa/8961968.html

の　＃１ 回答時に作ってみていたものを４回戦まで用に････
（表示状況等は上記を参考にしてください）
ただ、その時には求め切れないチーム数もありましたが、
４回戦程度までならソコソコいけるかも･･･

※ 前提条件として、戦える環境はあること
８人の時、盤が３つしかないとか･･･これはナシということで


Option Explicit

Public Sub Samp1()
　　Dim vA As Variant, vB As Variant, vC As Variant
　　Dim vG As Variant, v As Variant
　　Dim iA() As Long
　　Dim iP As Long, iM As Long
　　Dim i As Long, j As Long, k As Long
　　Const CFIGHT As Long = 4

　　vA = WorksheetFunction.Transpose( _
　　　　　　Range("A1", Cells(Rows.Count, "A").End(xlUp)).Value)
　　ReDim vB(1 To UBound(vA), 1 To UBound(vA))
　　iM = UBound(vA) Mod 2
　　If (iM > 0) Then ReDim vC(1 To UBound(vA), 1 To 2)

　　j = UBound(vA)
　　If (j > CFIGHT) Then j = CFIGHT
　　For i = 1 To j
　　　　ReDim iA(1 To UBound(vA))
　　　　ReDim vG(1 To UBound(vA) \ 2 + 1, 0 To 2)
　　　　If (iM > 0) Then
　　　　　　j = UBound(vA) - i + 1
　　　　　　iA(j) = -1
　　　　　　vC(i, 1) = i
　　　　　　vC(i, 2) = vA(j)
　　　　End If
　　　　iP = 1
　　　　While ((iP > 0) And (iP <= UBound(vA) \ 2))
　　　　　　If (vG(iP, 1) = 0) Then
　　　　　　　　If (iP = 1) Then
　　　　　　　　　　vG(iP, 0) = iA
　　　　　　　　Else
　　　　　　　　　　iA = vG(iP - 1, 0)
　　　　　　　　　　iA(vG(iP - 1, 1)) = -1
　　　　　　　　　　iA(vG(iP - 1, 2)) = -1
　　　　　　　　　　vG(iP, 0) = iA
　　　　　　　　End If
　　　　　　　　For j = 1 To UBound(iA)
　　　　　　　　　　If (iA(j) = 0) Then Exit For
　　　　　　　　Next
　　　　　　　　vG(iP, 2) = j
　　　　　　Else
　　　　　　　　iA = vG(iP, 0)
　　　　　　　　j = vG(iP, 1)
　　　　　　End If
　　　　　　For k = vG(iP, 2) + 1 To UBound(iA)
　　　　　　　　If ((iA(k) = 0) And (vB(j, k) = 0)) Then
　　　　　　　　　　vG(iP, 1) = j
　　　　　　　　　　vG(iP, 2) = k
　　　　　　　　　　iP = iP + 1
　　　　　　　　　　vG(iP, 1) = 0
　　　　　　　　　　Exit For
　　　　　　　　End If
　　　　　　Next
　　　　　　If (k > UBound(iA)) Then iP = iP - 1
　　　　Wend
　　　　If (iP > 0) Then
　　　　　　For j = 1 To iP - 1
　　　　　　　　vB(vG(j, 1), vG(j, 2)) = i
　　　　　　　　vB(vG(j, 2), vG(j, 1)) = i
　　　　　　Next
　　　　End If
　　Next

　　With Range("C1")
　　　　.Resize(, UBound(vA) + 3).EntireColumn.Clear
　　　　With .Offset(, 1)
　　　　　　.Value = "氏名"
　　　　　　.Offset(, 1).Resize(, UBound(vA)) = vA
　　　　　　.Offset(1).Resize(UBound(vA)) = _
　　　　　　　　　　WorksheetFunction.Transpose(vA)
　　　　　　.Offset(1, 1).Resize(UBound(vA), UBound(vA)) = vB
　　　　　　With .CurrentRegion
　　　　　　　　.Columns(1).Interior.ColorIndex = 36
　　　　　　　　.Rows(1).Interior.ColorIndex = 36
　　　　　　　　.Borders.LineStyle = xlContinuous
　　　　　　End With
　　　　End With
　　　　If (iM > 0) Then
　　　　　　With .Offset(UBound(vA) + 2)
　　　　　　　　.Value = "休"
　　　　　　　　With .Offset(1).Resize(UBound(vA), 2)
　　　　　　　　　　.Value = vC
　　　　　　　　　　.Borders.LineStyle = xlContinuous
　　　　　　　　End With
　　　　　　End With
　　　　End If
　　　　With .Resize(, UBound(vA) + 2).EntireColumn
　　　　　　.HorizontalAlignment = xlCenter
　　　　　　.AutoFit
　　　　End With
　　End With
End Sub

この回答へのお礼

ありがとうございます。ただ正直難しすぎてよくわかりません。

お礼日時：2016/04/05 10:18

No.5 回答者： 30246kiku 回答日時： 2016/04/05 17:08

＃４です

勘違いしていたようです

> ４回戦

ということで、４回戦する時間帯での組合せを求めていましたが、
1人が４対戦･･･時間帯的には、５回戦分なのですね

提示した処理で奇数人の場合、回戦毎に休む人を切り替えてましたが、
最後に、対戦数の少ない休みの人たちで組合せを組もうとした時、
それまでの処理で既に組合せを使っている場合があり、
きれいに４対戦を組むことができてませんでした
捨ててください


※ 以下はどのように読むことが正しいのでしょうか

> 組み合わせは
> 15人は
> １－２　３　４　５
> ２－１　３　４　６

１番目の人は、1回戦は２の人、２回戦は３の人･･･
なら、
２番目の人の２回戦目は、３の人が終わるまで待つ？
１１番～１４番の４回戦目は、１５の人？
１５番目の人は、３回戦分は見てるだけ？
７回戦分の時間帯がある？


リーグ戦もどきで４回戦しかしないのなら、
リーグ戦表を記述して
１回戦目の対戦のみを指示して
終わった人から、リーグ戦表上で対戦を決めていけば･･･
１５人とかなら、
終わった人群から対戦相手が見つからない･･･少ないように思います

運用的には、この表が大きな紙に書かれていて、
磁石で掲示していたとした場合、例えば
・左の氏名部分に磁石
・１回戦目の相手を確認し･･･
★・対戦中は、その行の対戦相手の所に磁石移動
・終わったら、その部分に結果を記述して
・左の氏名部分に磁石移動
・氏名部分に磁石のある人の対戦状況をみて未対戦なら ★へ

以上　失礼しました