エクセル当番表の作り方エクセルで土日祝日を除いた、平日のみの当番表を作りたいです。カレンダーま

Question

エクセル 当番表の作り方

エクセルで土日祝日を除いた、平日のみの当番表を作りたいです。

カレンダーまでは作成して、土日祝日の削除も行いましたが、当番表のローテーションを自動で入力する方法で詰まりました。

添付した画像のような感じで作成したいです。

また、次の月に変えた時に前の月の続きで表示されるようにしたいです。

わかりにくくてすみませんが、よろしくお願いしますm(_ _)m

tatsu99 · Accepted Answer

No7です。
日付の設定で誤りがありました。下記が正しいです。（添付資料参照）
B２に１、C2に２と入力し、２つのセルを同時に選択します。そして、そのまま右へオートフィルでコピーします。
上記のようにしてください。

d-q-t-p · Answer

#No1・No3・No4です。

> 日付を検索値にするということは、月ごとにローテーションを作り直す
> ということでしょうか？
いいえ。そんなこと一度も書いてませんよね？

縦1列に土日祝日を除いた日付の表を作る
その横にローテーションを循環で並べる
指定月のデータだけ一覧表に表示させる

これだけです。

縦1列の日付データから カレンダーにデータを表示させるのは
VLOOKUPでも INDEX/MATCHでも SUMIFでできますね？

> カレンダーの作り方はもちろんわかるのですが
と書いてますからカレンダーは作れるんですよね？

次月になったらカレンダーを切り替えるだけですよ。

tatsu99 · Answer

まず表の作り方ですが、

A1のセルの書式設定を ####"年" にしてください。（添付図参照）
B1のセルの書式設定を ##"月" にしてください。
これで、2018を入力すると2018年と表示されます。（月も同様です）
マクロでは2018の数値だけ使用するのでこのようにします。

次に日付ですが
B1に１、B2に２と入力し、２つのセルを同時に選択します。そして、そのまま右へオートフィルでコピーします。
そうすると、１から３１の数字が作成されます。

次に曜日ですが、
B3へ
=TEXT(DATE($A$1,$B$1,B$2),"aaa")
と入力し、オートフィルで右へコピーします。そうすると曜日が作成されます。（例え4月でも、31日分まで作成してください）

次に祭日ですが、4月の場合30日が祭日なので、4行目の30日に該当するセルに○を入れてください。
（○でなくても構いません。そのセルが空欄でないならマクロは祭日であると判定します）

その他の見出し（固定文字を作成してください）
A10：D17の表は、マクロ実行時は必要ありませんのでなくても構いませんが、
ローテーションの確認の為にあなたが必要とするなら、その表も作成しておいてください。

以上で、準備が完了です。
以下のマクロを標準モジュールに登録してください。
--------------------------------------------------------
Option Explicit

Public Sub ローテーション作成()
Dim six As Long
Dim lastday As Long
Dim person As Variant
Dim col As Long
Dim dd As Long
person = Array("A", "B", "C", "D", "A2", "B", "C", "D", "A", "B", "C", "D", "A3", "B", "C", "D")
six = Cells(1, "D").Value
If six < 1 Or six > 16 Then
MsgBox ("開始番号不正")
End If
'配列は0～15なので0始まりに変える
six = six - 1
'月末日算出
lastday = Day(DateSerial(Cells(1, "A").Value, Cells(1, "B").Value + 1, 1) - 1)
'1日～月末日まで繰り返す
For dd = 1 To lastday
'日対応のカラム位置を取得
col = dd + 1
'土、日、祭日は空白を設定
If Cells(3, col).Value = "土" Or Cells(3, col).Value = "日" Or Cells(4, col).Value <> "" Then
Cells(5, col).Value = ""
Cells(6, col).Value = ""
Else
'以外はローテーションを設定
Cells(5, col).Value = person(six)
Cells(6, col).Value = six + 1
six = six + 1
If six > UBound(person) Then six = 0
End If
Next
MsgBox ("設定完了")
End Sub
----------------------------------------------------------------
マクロ実行時は、このシートを表示した状態で、「表示」タブからマクロを選択し
「ローテーション作成」を実行してください。

tatsu99 · Answer

No5です。
提示された画像のローテーションが正しいなら、こちらで添付した画像のようなローテーションになるかと思います。
ローテーションの割り当てを実施時（マクロ実行時）に、D1へ開始番号を指定するのはいかがでしょうか。
例では１５が指定されているので、Cから割り当てられます。
月末日の番号も表示されるので、次の月は、月末日の番号＋１をD1へ指定します。（16の次は１に戻ります）
マクロで設定されるのは、青色の部分のみです。
もし、これでよければ、表の作成の方法（日付、曜日等）を更に提示します。（1回だけ作成すれば次の月はB１とD1を変えるだけです）

tatsu99 · Answer

No2です。補足ありがとうございました。
＞①別です
＞人というか、係なのですが、Aという係が3つあるためその形にしました。
＞ローテーションは「A→B→C→D」です。
了解しました。

念のため確認ですが、
ローテーションを全部書くと、
「A→B→C→D→A2→B→C→D→A3→B→C→D」となります
と述べていますが、

提示された表のローテーションは
A→B→C→D→
A2→B→C→D→
A→B→C→D→
A3→B→C→D→
A→B→C→D→
A2→B→C→D→
となっています。つまり、A,A2,A3のなかでAだけが多いのです。（Aは4週間に２回、A2は4週間に１回、A3は4週間に１回です）
どちらが正しいのでしょうか？

＞②増えることはないです。
了解しました。
念のため確認ですが、BについてB3,B3が増えることはありますか？（C,Dについても同様）

d-q-t-p · Answer

#No1・No3です。

> ローテーションにはなるのですが、これだと月を変えても、前の月の続
> きからとはならないと思うのですが...
何故？？？

縦一列に土日祝日を除いた日付を並べる
その横にローテーションを循環で並べる

後は 月を指定して表示される一覧表を作って 日付を検索値にして
担当者を検索/表示させる

ですよね。月がどうとか関係ないと思いますが。

d-q-t-p · Answer

＃No1です。

> 縦一列で作成した場合の当番のローテーションの関数は
> どうなるのでしょうか？
ローテーションの表も縦一列に作って MOD関数で循環させ
ればいいだけです。ローテーションについての説明がありま
せんので 具体的な回答はできかねますが

A1:A10にローテーションを作っているなら
=INDEX(A:A,MOD(ROW(A1)-1,10)+1)
で縦に循環するはずです。

tatsu99 · Answer

割り当てる順番が不明なのですが、
①AとA2とA3は別のひとですか？
なぜ、A2、A3だけ不規則に割り当てられるのですか？

②横の列は提示例では、Dさん迄ですがもっと右側にEさん,Fさん・・・・がくることもあり得るのですか？

d-q-t-p · Answer

> 土日祝日の削除も行いましたが
この表で祝日はどう削除するのですか？

というか………表の作り方を見直した方がいいのでは？

縦一列のカレンダーを作って そこに当番表を作成し そこから今の
表に検索系の関数で表示させればいいかと思います。

WORKDAY関数を使えば いちいち手作業で土日祝日を消す必要も
ないように思いますけど。

エクセル 当番表の作り方 エクセルで土日祝日を除いた、平日のみの当番表を作りたいです。 カレンダーま

No7です。

#No1・No3・No4です。

まず表の作り方ですが、

No5です。

No2です。

#No1・No3です。

＃No1です。

割り当てる順番が不明なのですが、

> 土日祝日の削除も行いましたが

このQ&Aを見た人はこんなQ&Aも見ています

関連するカテゴリからQ&Aを探す

このQ&Aを見た人がよく見るQ&A

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング

エクセル当番表の作り方エクセルで土日祝日を除いた、平日のみの当番表を作りたいです。カレンダーま