• 締切済み

14事業所の組み合わせ

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

みんなの回答

  • tom04
  • ベストアンサー率49% (2537/5117)
回答No.3

こんばんは! 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

nakai1115
質問者

お礼

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

回答No.2

まず、リーグ戦の対戦表を作ります。 ちょっと探してみたら、 http://www.digital-nation.info/league_table/ で作れます。 このリーグ戦の対戦表というのは、もともと総当たりで試合をする(というか、試合結果を書く)ために使うものですが、その、結果を書くところに、順番に数字を入れていく(または、直接、開催月を書き入れてゆく)と、もれなく組み合わせを作ることができます。 「バランス良く」というのが、意見が分かれるところですが、対戦表を見ながらだと、たとえば、斜め方向に埋めてゆくと、同じ事業所が連続しないような組み合わせを作ることができます。

nakai1115
質問者

お礼

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

  • yasuto07
  • ベストアンサー率12% (1344/10625)
回答No.1

14枚の札を作り、箱に入れて、2枚づつ抜いて行く、、、全部抜いたら、また同じことをすればいい、 箱を振ること、混ぜればバランスいいでしょう。

関連するQ&A

専門家に質問してみよう