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

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

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

宜しくお願い致します。

No.3 ベストアンサー 回答者： kagakusuki 回答日時： 2010/12/02 16:54

　まず、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の範囲に貼り付けて下さい。

　以上です。

この回答へのお礼

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

お礼日時：2010/12/05 07:46

No.2 回答者： tom04 回答日時： 2010/12/02 15:46

こんにちは！

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

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

http://oshiete.goo.ne.jp/qa/6356008.html

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

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

No.1 回答者： noname#143242 回答日時： 2010/12/02 15:32

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

この回答へのお礼

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

お礼日時：2010/12/05 07:48