Excel でカレンダーを作りたい（マクロなどで）

質問

マクロなどを使って，Excel でカレンダーを作りたいと思ったのですが，難しくて挫折しています。具体的には以下のようなことを行ないたいと考えています。

特定のセルに例えば「09/04」と入力して Enter キーを押すとすると，
(1)A1セルに「1」A2セルに「2」…A30セルに「30」と入力される。
(2)B1セルに「水」B2セルに「木」…B30セルに「木」と入力される。
(3)日曜日の日付と曜日のそれぞれのセルだけ太字になる。

情報をいただければ幸いです。

回答No.1

mu2011 · ベストアンサー

関数を使用した一例です。
（１）仮にD1に2009/4と入力、セルの書式設定→表示形式をユーザ定義でyy/mとします。
（２）A1に=IF(MONTH($D$1)=MONTH(DATE(YEAR($D$1),MONTH($D$1),ROW(A1))),DATE(YEAR($D$1),MONTH($D$1),ROW(A1)),"")
　　　B1に=A1
　　　A1セルの書式設定→表示形式をユーザ定義でdとします。
　　　B1セルの書式設定→表示形式をユーザ定義でaaaとします。
（３）A1:B1を選択→下方向に３１行分コピー
（４）A1:A31を選択→書式→条件付き書式→「数式が」を選択、=WEEKDAY($A1,2)=7→書式→フォントタブで太字を選択→ＯＫ
（５）追加→B1:B31を選択→書式→条件付き書式→「数式が」を選択、=WEEKDAY($A1,2)=7→書式→フォントタブで太字、色欄で赤を選択→ＯＫ

お礼

大変役立つ情報をありがとうございました。

回答No.4

xls88

カレンダーを作成する
http://www.moug.net/tech/exvba/0130006.htm

年間カレンダーの作成
http://www.asahi-net.or.jp/~ef2o-inue/vba_o/sub05_800_052.html

お礼

大変役立つ情報をありがとうございました。

回答No.3

A88No8

マクロで作るより簡単な関数を使用した一例です。
年月が曜日の上にあった法が判りやすいかなと考えてA1セルに基準月(４月1日)を設定します。
特徴は、基準月セルを中心とした相対参照なので、カレンダーの先頭に行を挿入しても整合性を保てるところ。その他は、＃１のご回答と同じ条件付書式を使います。
（１）A1に4/1と入力、セルの書式設定→表示形式をユーザ定義でyy/mmとします。
（２）A2に=A1
　　　B2に=A2
　　　A3=IF(A2="","",IF(MONTH(A1)<>MONTH(A2+1),"",A2+1))
　　　B3に=A3
（３）A3:B3を選択→下方向に３０行分コピー
（４）A2:A32セルの書式設定→表示形式をユーザ定義でdとします。
　　　B2:B32セルの書式設定→表示形式をユーザ定義でaaaとします。
（５）A2:A32を選択→書式→条件付き書式→「数式が」を選択、=MOD($A2,7)=1→書式→フォントタブで太字を選択→ＯＫ
（６）追加→B2:B32を選択→書式→条件付き書式→「数式が」を選択、=MOD($A2,7)=1→書式→フォントタブで太字、色欄で赤を選択→ＯＫ

お礼

大変役立つ情報をありがとうございました。

回答No.2

Wendy02

こんにちは。

ご質問の指摘どおりに、マクロでできないということではありませんが、なかなか「難しい」です。
数式でコピーして作る方法がよいと思います。

>「09/04」と入力して Enter キーを押す
Worksheet_Change イベント

>(1)A1セルに「1」A2セルに「2」…A30セルに「30」と入力される。
A1:B1に数式を入れて、コピー数を決める

>(2)B1セルに「水」B2セルに「木」…B30セルに「木」と入力される。
「aaa」書式コピー

>(3)日曜日の日付と曜日のそれぞれのセルだけ太字になる。
文字列か、Weekday関数で、日曜日を探して、Font のプロパティを変更する。

http://oshiete1.goo.ne.jp/kotaeru.php3?qid=4810221

参考コード　#6

ただし、これは横にコピーされます。

お礼

大変役立つ情報をありがとうございました。