エクセルでのカレンダーの作り方

質問

エクセル2003を使って、添付の画像のようなカレンダーを作りたいです。
A1からG1までセルを結合させて、そこに=TEXT(TODAY(),"yyyy年m月")で年月を入れてみました。
そこからの日付の計算式が良分かりません。

知恵を貸していただけないでしょうか。

宜しくお願い致します。

回答No.3

kagakusuki · ベストアンサー

まず、A1セルに入力する数式は、

=TODAY()

か、若しくは

=NOW

のみでOKです。
　その代わり、以下の操作を行って、A1セルの書式を

yyyy"年"m"月"

に設定して下さい。

A1セルにカーソルを合わせて、マウスを右クリック
　　↓
現れた選択肢の中から、[セルの書式設定]を選択してクリック
　　↓
現れた[セルの書式設定]ウィンドウの[表示形式]タグをクリック
　　↓
[分類]欄の中から、[日付]を選択してクリック
　　↓
[種類]欄の中から

2001年3月

の形式で、日付が記されているものを選択してクリック
　　↓
[セルの書式設定]ウィンドウの[OK]ボタンをクリック

　次に、以下の操作を行って下さい。

A3～G8の範囲を選択
　　↓
選択範囲を示す黒い太枠の内側にカーソルを合わせて、マウスを右クリック
　　↓
現れた選択肢の中から、[セルの書式設定]を選択してクリック
　　↓
現れた[セルの書式設定]ウィンドウの[表示形式]タグをクリック
　　↓
[分類]欄の中から、[ユーザー定義]を選択してクリック
　　↓
[種類]欄に

d

と入力する
　　↓
[セルの書式設定]ウィンドウの[OK]ボタンをクリック

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

=IF(COLUMNS($A:A)<WEEKDAY(DATE(YEAR(NOW()),MONTH(NOW()),1)),"",DATE(YEAR(NOW()),MONTH(NOW()),1)+COLUMNS($A:A)-WEEKDAY(DATE(YEAR(NOW()),MONTH(NOW()),1)))

　次に、A3セルをコピーして、B3～G3の範囲に貼り付けて下さい。
　次に、A4セルに次の数式を入力して下さい。

=IF(ISNUMBER(G3),IF(MONTH(NOW())=MONTH(G3+1),G3+1,""),"")

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

=IF(ISNUMBER(A4),IF(MONTH(NOW())=MONTH(A4+1),A4+1,""),"")

　次に、B4セルをコピーして、C4～G4の範囲に貼り付けて下さい。
　次に、B4～G4の範囲をコピーして、B5～G8の範囲に貼り付けて下さい。

　以上です。

お礼

詳しい解説ありがとうございました。
助かりました。

回答No.2

tom04

こんにちは！
実は昨日同じような質問に投稿しました。

ここで同じ説明をするよりURLを載せておきますので覗いてみてはどうでしょうか？

http://okwave.jp/qa/q6356008.html

こちらの質問の方が当てはまる投稿かもしれませんね。

参考になれば良いのですが・・m(__)m

回答No.1

noname#143242

http://121ware.com/navigate/learn/ug/chotry/059/index.html
で解説されている式がそのまま当てはまるようです。

お礼

解説がわかりやすいですね。ありがとうございました。勉強になります。