エクセルで作成したカレンダーに「当番の名前」を自動的に入力する方法をお

質問

エクセルで作成したカレンダーに「当番の名前」を自動的に入力する方法をおしえてください。

毎月エクセルで朝礼当番表を作っています。
土、日、祝がお休みです。
たとえば、1日に最初の人の名前を入力すると休みの日はぬかして、
順番に当番が入力されるという関数があれば教えてください。

1行目に「日にち」
2行目に「曜日」
3行目に「当番者名」

と簡単な表です。

リストからコピペしたら間違えてしまいました。

オートフィルで入力しようかと思ったのですが、休みの日を抜かすのが面倒で。

よろしくお願いします。

回答No.5

kagakusuki

今仮に、Sheet1のA1セルに、その年の西暦年数、C1セルに月、F1セルに第1日目の当番者名を入力すると、A4セルから下に向かって日にちが順番に自動表示され、各日にちと同じ行のB列にはその日の曜日、C列にはその日の当番者名が自動表示されるものとします。
　又、自動表示を行う際の判定のためには、当番者のリストと、土日以外の休日のリストが必要になりますから、それらのリストをSheet2に設けるものとします。

　まず、Sheet2のB1セルに項目名として「当番者名」と入力して下さい。
　同様に項目名として、
E5セルに「休日の日にち」、
F1セルとF5セルに「夏休み」、
G1セルとG5セルに「冬休み」、
H1セルとH5セルに「春休み」、
E2セルに「開始日」
E3セルに「最終日」
と入力して下さい。
　次に、F6セルに次の数式を入力して下さい。

=F$2

　次に、F7セルに次の数式を入力して下さい。

=IF(OR(F$2="",F$3="",F6=""),"",IF(F6+1>F$3,"",F6+1))

　次に、F6～F7の範囲をコピーして、G6～H7の範囲に貼り付けて下さい。

　次に、F7～G7の範囲をコピーして、同じ列の8行目以下に、最も長い休みの日数を上回るのに充分な回数だけ貼り付けて下さい。
　次に、B2セルから下方へ向かって、各当番者の名前を、当番を行う順番に入力して下さい。
　次にE6セルから下方へ向かって、年間の祝祭日等の、土日以外の休日を

2010/1/1
2010/1/2
2010/1/3
2010/1/11
2010/2/11
　　・
　　・
　　・
　　・
　　・
2010/12/23
2010/12/31

という具合に入力して下さい。（順不同も可）
　次に、F2セルに夏休みの開始日を、
F3セルに夏休みの最終日を、
G2セルに冬休みの開始日を、
G3セルに冬休みの最終日を、
H2セルに春休みの開始日を、
H3セルに春休みの最終日を
入力して下さい。

　次にSheet1を開いて、A1セル、C1セル、F1セルを枠線で囲んで下さい。
　次に項目名として、
B1セルに「年」、
D1セルに「月」、
E1セルに「最初の当番者名：」、
A3セルに「日にち」、
B3セルに「曜日」、
C3セルに「当番者名」、
と入力して下さい。

　次に、A4セルのセルの書式設定の表示形式を、ユーザー定義の

d"日"

とし、同じくB4セルのセルの書式設定を

aaa

として下さい。
　次に、A4セルに次の数式を入力して下さい。

=IF(ROWS($3:3)>DAY(DATE($A$1,$C$1+1,)),"",DATE($A$1,$C$1,ROWS($3:3)))

　次に、B4セルに次の数式を入力して下さい。

=A4

　次に、C4セルに次の数式を入力して下さい。

=IF($A4="","",IF(OR(WEEKDAY($A4,2)>5,COUNTIF(Sheet2!$E:$H,$A4)>0),"【休日】",INDEX(Sheet2!$B:$B,MOD(MATCH($F$1,Sheet2!$B:$B,0)+COUNTIF(C$3:C3,"<>【休日】")-2,COUNTIF(Sheet2!$B:$B,"<>")-1)+2)))

　次に、A4～C4の範囲をコピーして、同じ列の5行目～34行目の範囲に貼り付けて下さい。

　そして、必ずしも必要ではありませんが、F1セルに最初の当番者名を入力する際に便利になる様に、F1セルの入力規則を「リスト」に設定して、「元の値」欄の中に入力する数式を以下の様にして下さい。

=INDIRECT("Sheet2!B2:B"&COUNTIF(INDIRECT("Sheet2!B:B"),"<>")-1)

　以上で準備は完了で、後は
Sheet1のA1セルに、その年の西暦年数、C1セルに月、F1セルに第1日目の当番者名を入力すれば、当番表が自動表示されます。
　尚、Sheet2の休日のリストは、年が変わる度に更新して下さい。

お礼

夏休み、冬休み・・・全然考えておりませんでした。
全部自動ででてくるなんてすごいです。
どうもありがとうございます。
明日会社で試してみます。