エクセル（Excel）の技。知ってましたか・・・。

マイクロソフトアクセスのまとめ記事はこちら

人気ブログランキングへ




先日ＶＢＡを使ったカレンダーを紹介したと思います。

結構、無理やりＶＢＡを使用して作ったのでシンプルさに欠けると思います。

今回は非常にシンプル。関数だけで作る方法を紹介いたします。



レイアウトは前回と同じです。

今回は「ｋ１」に年月日を入れて「リターンキー」を押すだけです。

Ａ１の内容は前回と同じです。


Ｃ２のセルですが「=K1-WEEKDAY(K1)+1」という関数が入っています。



=K1-WEEKDAY(K1)+1ですがK1は作成したいカレンダーの日付ですね。

しかしここでの扱いは「シリアル値」になります。

「シリアル値」というのは一度記載した記憶がありますが、一応おさらいしておきましょう。

1900年1月1日を「１」とし翌日1月2日を「２」というように1日に+1されていく値です。

ちなみに2016/12/1は「42705」になります。

確認方法は2016/12/1と入力したセルの書式設定で「標準」を選択すると「42705」になります。

WEEKDAY(K1)はK1の曜日を数字で呼び出しています。

前回のカレンダーでWEEKDAYに関して少し説明したと思いますが、

日曜日が１・月曜日が２・・・土曜日が７になります。

引数を追加すると月曜を１にすることも出来ます。

今回の場合WEEKDAY(K1)は木曜日なので「５」になります。

第一日曜日（Ｃ２）の日付取得のために「42705-5+1」という計算をして

42701という数字を得ています。

これを日付にすると2016/11/27になります。

ですから第一日曜日は2016/11/27ということが確定できます。

あとD2は「=C2+1」、E2は「D2+1」という風にしてI2まで入力。C4以降は前回と同じ。

祝日設定も前回と同じ条件付き書式で対応します。

今回新たに追加した項目として、表示したい月の前後の日付はグレー表示にしました。



第一週（I2は設定不要）と５週目・６週目に上記のような条件付き書式を設定します。

ルールの管理から新しいルールで上記のように「=month(K1)<>month(C2)」で書式設定をグレーにします。

=month(K1)<>month(C2)はmonth関数は年月日から「月」を取り出します。

K1の月とC2の月を取り出して比べます。もし違っていたら(<>)書式を実行しなさいという命令文です。

そのように設定すると上記のように11月の分と1月分はグレー表示になります。

簡単シンプルな月ごとのカレンダーでした。

前月と来月の表示を消したい場合はグレー設定を白にすればいいと思います。