エクセル マクロ？です

質問

エクセル　初心者です

教えて戴きたいのですが
会社の部署にて33人在籍しております。
3人1班で構成しており11班あります。
一週間交代で班を交代します。

エクセルで管理したいと考えているのですが
できれば11週全てかぶらないようにしたいのですが
マクロなどでできるでしょうか？

　例えば　1さん～３３さんがいたら
シートに毎週の記録をしていき
１さん１１さん２２さんは2週目以降当たらないなど

説明がうまくできませんがよろしくお願いします

回答No.7

keithin · ベストアンサー

試しにマクロで総当たり的にかぶらない組み合わせを見てみたら，270週とちょっとぐらい出てきました。
ただし（１，１１，２２）は二度無いけど，（１，１１，２３）はアリの条件です。
とりあえず60週分ほど並べてみますので，切り取って使ってください。

１～１５週
(01,12,23),(01,12,19),(01,13,27),(01,08,33),(01,03,24)
(02,13,24),(02,05,15),(02,15,18),(02,07,24),(02,25,31)
(03,14,25),(03,25,27),(03,09,11),(03,06,09),(04,13,16)
(04,15,26),(04,06,33),(04,05,28),(04,20,25),(05,11,28)
(05,16,27),(07,14,23),(06,12,33),(05,23,29),(06,22,29)
(06,17,28),(08,18,22),(07,10,20),(10,15,22),(07,10,26)
(07,18,29),(09,11,13),(08,14,21),(11,18,27),(08,18,30)
(08,19,30),(10,17,24),(16,23,26),(12,14,31),(09,27,32)
(09,20,31),(16,20,31),(17,19,30),(13,17,30),(12,19,21)
(10,21,32),(21,28,30),(22,25,29),(16,19,28),(14,20,23)
(11,22,33),(26,29,32),(24,31,32),(21,26,32),(15,17,33)

(01,03,27),(01,03,20),(01,18,30),(01,21,23),(01,03,09)
(02,16,20),(02,08,21),(02,08,10),(02,05,25),(02,29,32)
(04,06,30),(04,23,31),(03,07,25),(03,14,30),(04,08,25)
(05,12,25),(05,10,18),(04,13,21),(04,15,29),(05,22,23)
(07,09,14),(06,24,30),(05,15,23),(06,11,13),(06,07,33)
(08,15,28),(07,22,27),(06,24,31),(07,17,26),(10,12,17)
(10,18,22),(09,32,33),(09,12,27),(08,20,32),(11,24,26)
(11,23,33),(11,13,14),(11,16,26),(09,12,24),(13,14,18)
(13,24,26),(12,17,25),(14,19,33),(10,16,18),(15,19,28)
(17,21,32),(15,28,29),(17,20,29),(19,28,31),(16,21,31)
(19,29,31),(16,19,26),(22,28,32),(22,27,33),(20,27,30)

(01,06,28),(01,16,17),(01,12,25),(01,02,03),(01,02,07)
(02,15,30),(02,04,14),(02,16,22),(04,10,21),(03,15,16)
(03,04,07),(03,07,21),(03,05,31),(05,27,28),(04,06,17)
(05,22,25),(05,11,20),(04,24,28),(06,20,26),(05,21,27)
(08,31,33),(06,12,29),(06,10,21),(07,25,33),(08,14,18)
(09,20,32),(08,22,26),(07,08,15),(08,11,16),(09,23,33)
(10,12,29),(09,25,28),(09,23,26),(09,22,31),(10,29,31)
(11,26,27),(10,13,15),(11,14,20),(12,14,29),(11,13,26)
(13,17,18),(18,24,32),(13,29,30),(13,19,32),(12,22,30)
(14,19,24),(19,23,33),(17,27,33),(15,17,18),(19,25,28)
(16,21,23),(27,30,31),(18,19,32),(23,24,30),(20,24,32)

お礼

keithin様ありがとうございました。

私の仕事が一つ減りました（笑）

次のステップになると思うのですが
(1,2,3)(4,5,6)～(31,32,33)
の結果を

　１２３４５６７８９…33
１／〇〇
２〇／〇
３〇〇／
４
・
33

のようにリーグ表に履歴が残るようにしたいのですが
教えていただけないでしょうか？

ここまでしていただいて本当にありがとうございました。

回答No.10

keithin

４６～６０週
(01,08,27),(01,24,27),(01,05,13),(01,27,33),(01,07,27)
(02,20,33),(02,09,33),(02,26,30),(02,16,29),(02,24,33)
(03,18,32),(03,16,22),(03,04,12),(03,11,23),(03,29,30)
(04,06,10),(04,12,14),(06,19,23),(04,05,12),(04,12,32)
(05,09,14),(05,18,32),(07,16,29),(06,13,19),(05,21,23)
(07,24,31),(06,07,21),(08,28,32),(07,08,17),(06,14,28)
(11,13,19),(08,25,31),(09,10,20),(09,18,31),(08,15,22)
(12,25,28),(10,13,19),(11,27,33),(10,25,26),(09,13,20)
(15,22,29),(11,15,23),(14,15,31),(14,15,32),(10,16,31)
(16,17,23),(17,26,29),(17,22,24),(20,22,30),(11,18,19)
(21,26,30),(20,28,30),(18,21,25),(21,24,28),(17,25,26)

(01,07,16),(01,02,29),(01,12,18),(01,25,27),(01,18,26)
(02,06,20),(03,13,15),(02,08,25),(02,18,20),(02,07,09)
(03,18,26),(04,09,22),(03,24,27),(03,12,17),(03,14,23)
(04,10,19),(05,18,33),(04,15,28),(04,22,23),(04,13,31)
(05,15,22),(06,20,32),(05,10,29),(05,06,30),(05,11,17)
(08,21,28),(07,25,31),(06,17,23),(07,09,26),(06,08,30)
(09,29,31),(08,12,26),(07,11,30),(08,14,28),(10,16,20)
(11,24,33),(10,16,28),(09,21,32),(10,15,29),(12,27,32)
(12,14,30),(11,21,27),(13,16,19),(11,16,31),(15,25,33)
(13,17,23),(14,17,24),(14,26,31),(13,19,33),(19,22,28)
(25,27,32),(19,23,30),(20,22,33),(21,24,32),(21,24,29)

(01,08,13),(01,08,25),(01,16,32),(01,05,15),(01,29,31)
(02,04,27),(02,06,22),(02,19,22),(02,06,08),(02,04,23)
(03,15,22),(03,13,23),(03,04,27),(03,18,24),(03,09,16)
(05,16,23),(04,28,30),(05,20,30),(04,17,26),(05,11,33)
(06,10,25),(05,12,18),(06,13,15),(07,12,32),(06,15,20)
(07,29,30),(07,20,26),(07,14,25),(09,25,29),(07,13,17)
(09,26,31),(09,16,19),(08,24,33),(10,16,23),(08,21,25)
(11,19,28),(10,14,24),(09,17,29),(11,13,28),(10,18,24)
(12,20,21),(11,29,31),(10,28,31),(14,22,30),(12,19,32)
(14,17,32),(15,17,32),(11,21,26),(19,20,27),(14,28,30)
(18,24,33),(21,27,33),(12,18,23),(21,31,33),(22,26,27)

お礼

keithin様本当にありがとうございました。

もう1年分以上ありますね
凄すぎる！！

お忙しい中、私の為にありがとうございました。

回答No.9

keithin

３１～４５週

(01,26,30),(01,12,29),(01,02,21),(01,05,29),(01,27,32)
(02,16,31),(02,23,28),(03,05,23),(02,04,19),(02,07,21)
(03,09,27),(03,16,26),(04,07,22),(03,07,27),(03,12,24)
(04,07,21),(04,10,18),(06,13,27),(06,15,23),(04,19,25)
(05,08,28),(05,06,22),(08,25,30),(08,12,32),(05,08,33)
(06,15,19),(07,11,24),(09,10,24),(09,11,16),(06,14,15)
(10,11,20),(08,17,20),(11,19,26),(10,17,20),(09,22,23)
(12,17,32),(09,13,14),(12,14,17),(13,18,30),(10,16,29)
(13,14,29),(15,27,32),(15,20,33),(14,21,28),(11,26,30)
(18,25,33),(19,25,31),(16,29,31),(22,26,33),(13,18,31)
(22,23,24),(21,30,33),(18,28,32),(24,25,31),(17,20,28)

(01,06,25),(01,21,25),(01,26,27),(01,19,29),(01,04,20)
(02,07,27),(02,19,32),(02,15,33),(02,10,16),(02,13,15)
(03,10,17),(03,04,31),(03,21,23),(03,05,20),(03,25,31)
(04,15,23),(05,22,29),(04,06,29),(04,18,32),(05,09,28)
(05,12,20),(06,07,10),(05,22,31),(06,12,14),(06,27,30)
(08,16,18),(08,11,13),(07,16,28),(07,11,22),(07,26,32)
(09,28,31),(09,20,33),(08,24,30),(08,26,33),(08,10,12)
(11,24,30),(12,18,27),(09,11,17),(09,13,23),(11,22,24)
(13,14,26),(14,16,30),(10,18,19),(15,25,27),(14,18,23)
(19,21,22),(15,17,23),(12,13,14),(17,24,30),(16,17,19)
(29,32,33),(24,26,28),(20,25,32),(21,28,31),(21,29,33)

(01,13,15),(01,09,27),(01,07,09),(01,28,31),(01,21,29)
(02,09,14),(02,10,20),(02,05,30),(02,17,22),(02,20,32)
(03,06,10),(03,17,19),(03,23,26),(03,23,33),(03,14,28)
(04,25,30),(04,24,29),(04,08,18),(04,16,18),(04,12,26)
(05,24,29),(05,13,28),(06,17,31),(05,12,29),(05,15,16)
(07,22,26),(06,15,21),(10,12,32),(06,21,30),(06,07,19)
(08,18,33),(07,08,22),(11,22,29),(07,09,10),(08,17,27)
(11,20,21),(11,25,31),(13,16,24),(08,20,26),(09,24,30)
(12,16,32),(12,32,33),(14,27,28),(11,25,32),(10,25,33)
(17,19,23),(14,16,23),(15,21,25),(13,14,27),(11,13,22)
(27,28,31),(18,26,30),(19,20,33),(15,19,24),(18,23,31)

お礼

keithin様ありがとうございました。

感謝しております。

回答No.8

keithin

１６～３０週
(01,02,27),(01,03,11),(01,07,24),(01,10,29),(01,19,22)
(03,19,25),(02,06,30),(02,19,30),(02,09,16),(02,11,32)
(04,08,21),(04,08,27),(03,21,26),(03,23,28),(03,05,30)
(05,16,29),(05,16,21),(04,11,14),(04,07,14),(04,09,17)
(06,22,28),(07,18,28),(05,10,20),(05,15,30),(06,10,13)
(07,15,31),(09,14,22),(06,08,33),(06,26,32),(07,26,29)
(09,10,23),(10,12,13),(09,15,17),(08,19,20),(08,14,20)
(11,24,32),(15,24,29),(12,22,23),(11,24,31),(12,18,33)
(12,18,26),(17,19,32),(13,27,29),(12,27,33),(15,24,31)
(13,14,20),(20,23,25),(16,18,31),(13,17,25),(16,21,27)
(17,30,33),(26,31,33),(25,28,32),(18,21,22),(23,25,28)

(01,12,30),(01,02,33),(01,15,24),(01,09,26),(01,03,07)
(02,10,19),(03,05,10),(02,08,16),(02,06,31),(02,04,26)
(03,07,22),(04,15,32),(03,04,20),(03,15,32),(05,22,33)
(04,14,27),(06,23,30),(05,19,32),(04,19,29),(06,08,32)
(05,32,33),(07,13,18),(06,09,30),(05,10,22),(09,15,31)
(06,09,28),(08,19,31),(07,11,29),(07,21,30),(10,13,14)
(08,21,29),(09,24,27),(10,14,31),(08,27,33),(11,16,18)
(11,20,31),(11,22,26),(12,17,18),(11,17,25),(12,23,28)
(13,15,23),(12,20,29),(13,22,27),(12,14,18),(17,20,24)
(16,18,26),(14,17,28),(21,25,28),(13,16,23),(19,25,30)
(17,24,25),(16,21,25),(23,26,33),(20,24,28),(21,27,29)

(01,15,31),(01,19,21),(01,05,21),(01,11,23),(01,19,32)
(02,08,28),(02,04,18),(02,19,29),(02,17,21),(02,24,26)
(03,06,14),(03,26,28),(03,09,28),(03,06,16),(03,20,27)
(04,13,30),(05,08,24),(04,27,33),(04,19,22),(04,07,17)
(05,12,27),(06,11,17),(06,10,17),(05,18,20),(05,08,11)
(07,19,32),(07,16,20),(07,16,26),(07,10,14),(06,21,28)
(09,20,26),(09,25,27),(08,22,25),(08,09,25),(09,25,33)
(10,21,29),(10,23,32),(11,20,23),(12,24,27),(10,13,23)
(11,17,24),(12,15,31),(12,15,32),(13,28,30),(12,18,31)
(16,18,33),(13,30,33),(13,14,31),(15,32,33),(14,29,30)
(22,23,25),(14,22,29),(18,24,30),(26,29,31),(15,16,22)

お礼

keithin様ありがとうございます。

私にはここまでできません。
もっと勉強しなければいけないといけません

今回はありがとうございました。

回答No.6

layy

＞シートに毎週の記録をしていき
＞１さん１１さん２２さんは2週目以降当たらないなど

今週に、「１さん１１さん２２さん」だとして、
来週や３月に「１さん」や「１１さん」や「２２さん」、が
来なければいい、
かと思ってましたが、
１１週間後の５月第２週あたりで
「１さん１１さん２２さん」の（ペア）でもダメということでしょうか？。

これが良いのであれば、
Ａ列、Ｂ列、Ｃ列
１さん、2011/02/25、2011/05/14
Ｂ列に「2011/02/25」を入れてあげたら、何かのアクションで
１１週間後はいつです、ということでＣ列に「2011/05/14」。
「2011/05/14」が到来したら、Ｂ列に「2011/05/14」
１１週間後はいつです、ということでＣ列に「2011/07/30」。
でも、これは、
最初のサイクルを振り分けたら、
１さん、2011/02/25、の１１週間後であり、さらに１１週間後、・・・・。
おのずと最初から２２週後の「2011/07/30」に決まってしまうのでは、です。

それで、
毎度の「１さん１１さん２２さん」でなくて、
「１さん１４さん２９さん」みたいにしたいとなると、
ランダムに選抜して重複なし、を考えなくてはなりません。

実装の数式なりマクロなり、仕掛けとしてはまだ考えていません。
構成を確認してから、と思っての回答です。

お礼

layy様ありがとうございました。

１２週目以降はかぶるですね（算数がわかっておりませんでした）

できれば、なるべくlayy様の回答にあった

毎度の「１さん１１さん２２さん」でなくて、
「１さん１４さん２９さん」みたいにしたいとなると、

が理想です。
次のステップになると思うのですが
(1,2,3)(4,5,6)～(31,32,33)
の結果を

　１２３４５６７８９…33
１／〇〇
２〇／〇
３〇〇／
４
・
33

のようにリーグ表に履歴が残るようにしたかったのです。

本当にありがとうございました。

回答No.5

MackyNo1

>１１週と書いたのですが間違いで、ずっと続きますので
>前の結果をふまえたりはできないでしょうか？

お互いに重複しない組み合わせの数には限度がありますので、ずっと重複のない組合わせを作成することはできません。

今回のケースでは、私が提示した11組の組み合わせ以外には、おそらく重複のないデータセットはできないと思います。

もしそのようなデータが作成できる場合は、1組だけで良いですので、データセットの例を示してください。

お礼

MackyNo1様また、すぐに回答ありがとうございます。

算数が分かっておりませんでした。

完全にかぶらないのは１１組しかないのですね

１２週目以降は、かぶっても良いとして、班編成します

今回もありがとうございました。

回答No.4

layy

日付入れたら次のサイクル週を出す、そんな仕組みを考えているのでは？。

割り当て表なら１度決めたら終わり。その通りいかないから随時決めたい、のだろう。

過去１１週間担当してない斑がわかる仕掛けでも、次はいつ？、でも良い。

スキルしだいでいろいろ。
カレンダーコントロールはどんなもんか見ておくと良い。

お礼

layy様ありがとうございました。

回答戴いていたのに遅くなって申し訳ありませんでした。

layy様のおっしゃる通りなのです。

エクセルの勉強が足りないためにみなさんにご迷惑をかけます。
一度編成した班をリーグ戦表みたいなものに、自動でリンクできたら
よいと思いました。

もし、layy様がよい仕掛けをご存じなら教えて戴けませんか？

今回はありがとうございました。

回答No.3

MackyNo1

添付画像のような班分けをすれば、11組のいずれにも重複する数字が入らない組み合わせを作成することができます。

A列に１～１１の数字を入力し、B列に１２～２２、C列に２３～３３の数字を入れておきます。

E列およびF列に以下の式を入力して下方向にオートフィルコピーします。

E1セル
=IF(B1+1=23,12,B1+1)

F1セル
=IF(C1+2>33,C1-9,C1+2)

最後にE2～G11セルを選択して、右方向にAH列までオートフィルコピーします。

これでA列の１～１１と１２～２２および２３～３３のパートナーになる人との組み合わせをそれぞれの列に表示することができます。

この数字をランダムに割り当てるにはRAND関数などを利用して適宜割りつけてください。

お礼

MackyNo1様今回は回答いただきありがとうございました。

わざわざ、エクセルを走らせていただきありがとうございます。
１１週と書いたのですが間違いで、ずっと続きますので
前の結果をふまえたりはできないでしょうか？

私の質問がよくなったためにMackyNo1様にご迷惑をかけました。
もし、よい方法があれば教えて戴けないでしょうか？

今回はありがとうございました。

回答No.2

layy

数が１１斑、１年５０週間くらいですから、わざわざランダムでマクロ化にする程？。

今割り当てたら次は１１週間後です。だいたい３ヶ月後。ある斑は１、４、７月とある斑は２、５、８月と手作業の仮決めでもしばらくもつ。

自動化するのは楽ですが、その仕掛けよりザッとやって決めるのがいいのでは。自分でマクロ出来るようになってから考える。

お礼

layy様回答していただきありがとうございました。

layy様のおしゃった通りにできたらよいのですが
今まで手作業で実施してきてかぶっているかのチェックに
時間がものすごくかかり、かぶっていたら
再度班を組み直しておりました。

layy様によいアイデアがあれば教えていただけないでしょうか？

今回はありがとうございました。

回答No.1

imogasi

質問の表現の内容が良くわからない。３３人いて、ランダムに３人を組み合わせ３人組を作りたいと言うことか。
１－３３行Ａ列に連続番号をふる。その横Ｂ列に１－３３の乱数を振る。乱数列を値化して、小さいもの順に並べ替える。
上から３人ずつを１組にする。
乱数はＡ１に=ＲＡＮＤＢＥＴＷＥＥＮ（１，３３）。式を複写。　同じ番号も出る。
値化（式を消す）は、同じＢ列範囲に形式を選択して貼り付けー値を行う。

お礼

早々にご返信ありがとうございました。

うまくできずimogasi様を困らせてしまい申し訳ありませんでした。

imogasi様のおっしゃったようにすると一週間分はできるのですが

次の週からかぶっているかチェックしないといけないので

できたら、自動でチェックまでできたらと思いました。

ここまで説明しておりませんでした。

本当にありがとうございました。