ExcelでCDケースにピッタリの月間カレンダーを作る−３完

いきさつ（前置き）はこちら

§１．カレンダーのダウンロード

麻里府発 > まりふのひとの公開OneDrive > Excelでカレンダーと進み、
月間カレンダーI.xlsx を右クリック > ダウンロードを選択し、
保存/名前を付けて保存する。
- 保存先は任意。説明の都合上、ここではドキュメント\Excelでカレンダーとしている。

　ダウンロードしたファイルはコピーし、名前を変えて（例えば、my月間カレンダー.xlsx 等）使ってください。

§２．使い方

◆月間カレンダーシート

セルB4 に西暦年を入力し、
セルH4 に月を入力すると、
該当年月のカレンダーが表示される。
- セルC4 は、以下の式が入力してある。
  　“=TEXT(DATE(B4,H4,1),"(ggge)年")”

ヒント

2〜3行は非表示になっている。変更しなければ表示しても可。
　但し、印刷する時は表示にしないと、CDケースに納まらない。（たぶん）
セルの書式設定は変更可。
6行目以下のセルには全て計算式・関数が入っている。
- セルB4（年）、セルC4、セルH4（月）は、計算式・関数が壊れないように移動可。
例えば第1週の上段（行7）は、予定表シートの「予定1」を VLookup関数で取ってきている。
=IFERROR(VLOOKUP(IF(ISNUMBER(B$6),DATE($B$4,$H$4,B$6),""),予定表!$B$2:$D$1048576,2,FALSE),"")
例えば第1週の下段（行8）は、予定表シートの「予定2」を VLookup関数で取ってきている。
=IFERROR(VLOOKUP(IF(ISNUMBER(B$6),DATE($B$4,$H$4,B$6),""),予定表!$B$2:$D$1048576,3,FALSE),"")
2021年1月または5月は、テストデータとして全てに予定が入る。

◆予定表シート

A列：No. ‥‥ 自由に使える。
B列：年月日 ‥‥ 予定を入れる日付
- セルの書式設定は、ユーザー定義で“yyyy/mm/dd(aaa)” としてある。
- 条件付き書式で、土日の色を変えている。
- 条件付き書式/セルの強調表示ルール/重複する値で、背景色を変えている。
C列：予定1 ‥‥ 予定の上段に入れる文字列
- 文字列の制限はない。カレンダーのセルの初期設定は「縮小して全体を表示」にしてある。
D列：予定2 ‥‥ 予定の下段にいれる文字列
その他 ‥‥ VLookup関数で参照するための条件
1. 年月日は昇順に並べて置く必要がある。
2. 年月日が重複していると、下の予定は無視される。
3. 予定のフォントの設定は無視される。
- 2021年のデータ
  - テストのために作成したもので、削除が必要。

日本の祝日

　例えば「日本の祝日カレンダー」には、今日現在で 2017年〜2021年の祝日が載っている。

追加休日	日付	祝日
1	2021年1月01日(金)	元日
2	2021年1月11日(月)	成人の日
3	2021年2月11日(木)	建国記念の日
	2021年3月20日(土)	春分の日
4	2021年4月29日(木)	昭和の日
5	2021年5月03日(月)	憲法記念日
6	2021年5月04日(火)	みどりの日
7	2021年5月05日(水)	こどもの日
8	2021年7月19日(月)	海の日
9	2021年8月11日(水)	山の日
10	2021年9月20日(月)	敬老の日
11	2021年9月23日(木)	秋分の日
12	2021年10月11日(月)	体育の日
13	2021年11月03日(水)	文化の日
14	2021年11月23日(火)	勤労感謝の日
15	2021年12月23日(木)	天皇誕生日

表は 2021年の祝日テーブルを模したものであるが、「日付」に曜日が入っており「文字列」となっているで、単純に予定表シートにコピペすることはできない。

　そこで、Excel2013で上表を予定表シートの形式に合わせてみた。

上表を新しいシートのセルA1にコピペする。
D列に「年月日」の列を作る。
D列に「日付」の“日”までの文字数を求める。‥‥ フラッシュフィルでは作れない？
1. セルD2に “=search(” と入力し、
2. ［関数の挿入］をクリックする。
3. 検索文字列に “日” を入力する。
4. 対象にカーソルを移し、セルB2をクリックする。
5. ［OK］
6. 「10」と表示される。
D列に「日付」の“日”までを切り出す。
1. セルD2をアクティブにし、
2. 数式バーの「SEARCH("日",B2)」を切り取る。
3. 数式バーに“=left(” と入力し、
4. ［関数の挿入］をクリックする。
5. 文字列にカーソルを移し、セルB2をクリックする。
6. 文字数にカーソルを移し、貼り付ける。
7. ［OK］
8. 「2021年1月01日」と表示される。
D列の文字列をシリアル値に変換する。
1. セルD2をアクティブにし、
2. 数式バーの“LEFT(B2,SEARCH("日",B2))” を切り取る。
3. 数式バーに“=datevalue(” と入力し、
4. ［関数の挿入］をクリックする。
5. 日付文字列にカーソルを移し、貼り付ける。
6. ［OK］
7. 「44197」と表示される。
セルD2の式をコピーして完成させる。
列を入れ替える。
- A列：そのまま
- B列：年月日
- C列：祝日
- D列：日付
完成したデータを予定表シートに追加する。
1. A,B,C列のデータ部のみを選択・コピーし、
2. 予定表シートに追加貼り付けする。
3. 貼り付けのオプションは［値］とする。（必須）