班編成のデータ集約です（エクセル）

エクセル　初心者です
班編成のデータ集約です

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

以前の質問（質問番号：6548100）

でランダムに（回答していただいた方にマクロで組んでいただいた）
班編成していただきました。
１１週はかぶらないのですが
１２週以降はかぶる場合がでてきます。

教えて戴いた通り班を組むと大丈夫ですが
誰か一週間休み、臨時で交代などあると、ずれてきたりします

そこでリーグ戦表のように
(1,2,3)(4,5,6)～(31,32,33)
の結果を

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

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

できれば、過去の履歴は残したいです
（２週目以降のデータは上書きする感じです）

エクセルでできればよいと考えたのですが
知識が乏しいため、教えていただきたいのです

お願いします

No.1 ベストアンサー 回答者： keithin 回答日時： 2011/02/27 05:56

Ａ１セルに週番号を１とか２とか３と記入する

Ａ２:Ｃ１２に編成を記入する
Ｅ３：Ｅ３５に１から３３
Ｆ２：ＡＬ２に１から３３　を記入する

次のマクロを動かす


Sub macro1()
　Dim n as variant
　Dim r, c1, c2
　n = Range("A1")
　if n = "" then n = "○"
　For r = 2 To 12
　　For c1 = 1 To 3
　　For c2 = 1 To 3
　　　If c1 <> c2 Then
　　　　With Range("E2").Offset(Cells(r, c1), Cells(r, c2))
　　　　If .Value <> "" Then
　　　　　.Interior.ColorIndex = 3
　　　　　.Value = .Value & "," & n
　　　　Else
　　　　　.Value = n
　　　　End If
　　　　End With
　　　End If
　　Next c2
　　Next c1
　Next r
End Sub

編成を変えてＡ１に次の番号を入れ,またマクロを動かす。

この回答へのお礼

keithin様

ありがとうございます。

前回に引き続き大変お世話に
なりました。今後は自分で勉強して
本当にわかない時にご相談させていただきます

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

お礼日時：2011/02/27 12:30