みんなの「教えて(疑問・質問)」にみんなで「答える」Q&Aコミュニティ

こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

班編成のデータ集約です(エクセル)

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

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

以前の質問(質問番号:6548100)

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

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

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

  1 2 3 4 5 6 7 8 9 …33
1/ 〇 〇
2〇 / 〇
3〇〇 /
4      /〇〇

33

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

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

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

お願いします

投稿日時 - 2011-02-26 22:57:22

QNo.6552795

困ってます

質問者が選んだベストアンサー

A1セルに週番号を1とか2とか3と記入する
A2:C12に編成を記入する
E3:E35に1から33
F2:AL2に1から33 を記入する

次のマクロを動かす


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

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

投稿日時 - 2011-02-27 05:56:44

お礼

keithin様

ありがとうございます。

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

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

投稿日時 - 2011-02-27 12:30:33

ANo.1

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(1)

あなたにオススメの質問