14事業所の組み合わせ

質問

はじめまして。40代会社員女性です。
私の務める会社に事業所が14箇所あり、偶数月に2事業所ずつ集まり会議（飲み会？）をするのですが、次回に集まる予定の事業所が、今月で閉鎖されてしまい、新たに新しい事業所ができるので、全体が14事業所というのは変わらないのですが、新たに組み直して、先の予定を立ててほしいと上司に頼まれました。（現在平成３2年分まで組んでありました。）
こういうのがとても苦手で、よくわからないのですが、バランスよく組み合わせる方法が、ありましたら教えて下さい。よろしくお願いします。

回答No.3

tom04

こんばんは！

14事業所から2事業所を重複なしに組み合わせれば良いと思います。
とりあえず一回りするためには91通りの組み合わせになるはずです。

単にそのすべてを表示するのは簡単ですが、
＞バランスよく組み合わせる方法
の部分で問題が出てきます。

一例ですが、ExcelのVBAでやってみました。
↓の画像のようにA列2行目から各事業所名を並べておきます。
そして画面左下の選択されているSheet見出し（Sheet1の場合は「Sheet1」となっているところ）で
右クリック　→　コードの表示　→　VBE画面が表示されますので、カーソルが点滅しているところに
↓のコードをコピー＆ペースト　→　Excel画面に戻り（VBE画面を閉じて）マクロを実行してみてください。
（Alt+F8キー　→　マクロ　→　マクロ実行です）

Sub 組合わせ() 'この行から
Dim i As Long, j As Long, cnt As Long, lastRow As Long, lastRow2 As Long
lastRow = Cells(Rows.Count, "A").End(xlUp).Row
lastRow2 = Cells(Rows.Count, "C").End(xlUp).Row
If lastRow2 > 1 Then
Range(Cells(2, "C"), Cells(lastRow2, "D")).ClearContents
End If
cnt = 1
For i = 2 To lastRow - 1
For j = i + 1 To lastRow
cnt = cnt + 1
With Cells(cnt, "E")
.Value = Cells(i, "A")
.Offset(, 1) = Cells(j, "A")
End With
Next j
Next i
lastRow2 = Cells(Rows.Count, "E").End(xlUp).Row
With Range(Cells(2, "G"), Cells(lastRow2, "G"))
.Formula = "=rand()"
.Value = .Value
End With
With Range(Cells(2, "C"), Cells(lastRow2, "D"))
.Formula = "=INDEX(E:E,MATCH(SMALL($G:$G,ROW(A1)),$G:$G,FALSE))"
.Value = .Value
End With
Range("E:G").Clear
End Sub 'この行まで

これでC・D列に91通り（14事業所の場合）の組み合わせが表示されるはずです。
（すべての事業所が13回ずつ出現します）

※　同じ事業所が何度も続けて並ぶ場合は、バランス的に良くないので
もう一度マクロを実行してください。
この操作をある程度バランスが良いな！と思われるまで繰り返してみてください。

こんな感じではどうでしょうか？m(_ _)m

お礼

回答ありがとうございます。
助かりました。が、とても私には高度なテクニック？で、これから勉強したいとおもいます。
ありがとうございました。

回答No.2

麻野 なぎ（@asano_nagi）

まず、リーグ戦の対戦表を作ります。

ちょっと探してみたら、
http://www.digital-nation.info/league_table/

で作れます。

このリーグ戦の対戦表というのは、もともと総当たりで試合をする（というか、試合結果を書く）ために使うものですが、その、結果を書くところに、順番に数字を入れていく（または、直接、開催月を書き入れてゆく）と、もれなく組み合わせを作ることができます。

「バランス良く」というのが、意見が分かれるところですが、対戦表を見ながらだと、たとえば、斜め方向に埋めてゆくと、同じ事業所が連続しないような組み合わせを作ることができます。

お礼

回答ありがとうございます。
お礼が遅くなり申し訳ございません。
参考にさせていただきました。助かりました。
ありがとうございました。

回答No.1

yasuto07

14枚の札を作り、箱に入れて、2枚づつ抜いて行く、、、全部抜いたら、また同じことをすればいい、

箱を振ること、混ぜればバランスいいでしょう。