excel 現在の週を月間カレンダーに自動反映

質問

添付画像のようなカレンダーを作成中です。

「目的」
excel2007　現在の週を、月間カレンダーに自動反映させたいです（条件付き書式かなにかで強調したいです。）

画像内 左の月間カレンダーで、2/13-19の週（A43-G43のセル）の背景を変えたいと考えています。
また可能なら月間カレンダーの建国記念日＝11日はフォントの色も変えたいと考えてます。

「今まで試みたこと」
条件付き書式をトライしてみたところ、6日-12日の月間カレンダーはうまくできました。
しかし、コピペしたところ、13日-19日の方は思ったようには反映されませんでした。

挫折前に試していたのは、画像右側にある条件付き書式の設定の通りです。
$BF59は画像の通りで、
$BF$59はコピペしても固定されたままなので、画像と同じ状態になり、
BF$59は、なぜかC60とA62だけしか色が変わらず(この時点で？状態です)、
$なしにしたところ、C60とA61だけしか色が変わらず(この時点で???状態となり自分の限界を感じました)、
$の位置を変えて試したりもしたのですがうまくできませんでした。

つまづいてはネットで検索し、いろいろ試してきましたが、さすがにもうお手上げです。
マクロ？VBE？などは無知なので、それらを使わなくて解決できると助かります。

皆様の知恵をかしてください！
お願いいたします。

「その他のセルの状態」
建国記念日は祝日一覧のシートを作成し、VLOOKUPで引っ張ってきました。
建国記念日など、欄に記入がある場合は書式を変えるという条件付き書式を設定致しました。
週間カレンダーの日付は単なる＋１で足していく方法で、
月間カレンダーは下記URLを参考に作成させて頂きました。
例）A60==A59-WEEKDAY(DATE(YEAR($I55),MONTH($I55),0))
http://www.relief.jp/itnote/archives/003592.php

手入力でもいいのですが、調べているうちにVLOOKUPなども学べて、楽しくなり、
今では完成させることが目的となっております。
皆様、どうかご教示ください。

回答No.5

tom04

No.2・4です！
たびたびごめんなさ。

No.4の数式に間違いがありました。
A5セルの数式を

=IF(MONTH($C$1-WEEKDAY($C$1)+COLUMN(A1)+7*((ROW(A1)+1)/2-1))=$A$2,$C$1-WEEKDAY($C$1)+COLUMN(A1)+7*((ROW(A1)+1)/2-1),"")

に訂正してください。

前回の数式では表示が1日ずれてしまっていました。
検証せずに投稿してごめんなさいね。m(_ _)m

回答No.4

tom04

No.2です！

条件付書式の方はシリアル値で解決できたようで安心しました。

余計なお世話かもしれませんが、↓のようなカレンダーの作成方法もあります。
A1セルに年を、A2セルに月の数値を入力するとその月の7列のカレンダーを作成する方法です。
（尚、B1セルに表示したい月の初日を表示させます。）

画像のように祝日データを別表に作成しておきます。
（画像では、I～K列に作っています）

B1セルに
=DATE(A1,A2,1)
という数式を入れています。

A5セル（セルの表示形式はユーザー定義から　d　としておきます）に
=IF(MONTH($C$1-WEEKDAY($C$1)+COLUMN(A1)-1+7*((ROW(A1)+1)/2-1))=$A$2,$C$1-WEEKDAY($C$1)+COLUMN(A1)-1+7*((ROW(A1)+1)/2-1),"")

A6セルに
=IF(A5="","",IF(COUNTIF($J$1:$K$24,A5),INDEX($I$1:$I$24,SUMPRODUCT(($J$1:$K$24=A5)*(ROW($I$1:$I$24)))),""))

という数式を入れ、A5・A6を範囲指定　→　A6セルのふぃりハンドルで「土曜日」のG列までオートフィルでコピー！
そのまま下へ偶数行コピーすると画像のような感じになります。

他にも色々カレンダーの作成方法はありますが、あくまで一例です。
参考になれば良いのですが・・・m(_ _)m

回答No.3

MackyNo1

>現在を反映というのは、参照している週カレンダーの日にちをミニ月間カレンダーに書式を変えて反映させたいという旨をお伝えしたかったのですが、わかりづらく申し訳ございませんでした。

補足説明の「参照している週カレンダーの日にち」とは、どこに入力されている数値なのでしょうか？

＞コピペだけでどんどん次の週、次の週と増やせて、プリントアウトして使用したかったのですが、やはり困難なようです。。
ご指導頂きました通りやってみました。

表示したい日付などのセルを正確に例示できれば、おそらく、うまくいくと思うのですが・・・

＞数値はシリアル値が1900/1/1の表記でしたので、
正確に2012/2/○日のｄ表示にした場合は、どちらも教えていただけた方法でうまくいきました。
しかし、今度はカレンダーの数字がコピペで自動化できなくなりました。

私の回答は、あなたが参考にされたページにあるように月のカレンダーが日付シリアル値で入力されていないパターン（すなわち表示形式で日付を表示しているのではなく、単純に１や２の数字で表示されている）の場合の回答です。

具体的に色を変えたい週の判定基準さえ明確にしていただければ、簡単にその週の日付のセルの色を変更できる方法が提示できると思います。

回答No.2

tom04

こんばんは！
画像がはっきり判らないのですが、数値はシリアル値が入っていて表示形式が　d　となっているとします。

手元にExcel2007がないので詳細は違うかもしれませんが・・・

色を付けたいセルすべてを範囲指定
条件付書式　→　新しいルール　→　数式を使用して・・・
数式欄に
=COUNTIF(祝日データ範囲,範囲指定した最初のセル番地）　として　→　書式　→　塗りつぶしから
好みの色を選択
尚、祝日データは絶対参照・範囲指定の最初のセル（一番左上のセルは相対参照にします。）

さらに新しいルールを選択　→　数式を使用して・・・　→　数式欄に
=AND(範囲指定した最初のセル番地>=TODAY()+1-WEEKDAY(TODAY()),範囲指定した最初のセル番地<=TODAY()+7-WEEKDAY(TODAY())
こちらの数式はすべて相対参照です。（$マークは付きません）
として好みの色を選択
ではどうでしょうか？

尚、条件付書式が複数ある場合は上位の行が優先されますので、祝日の色付条件式を上側にしてみてください。

以上、ちゃんと動作すれば良いのですが・・・m(_ _)m

お礼

初めての投稿でしたので、やり方を存じておりませんでした。
いまさらですが、ご回答頂きありがとうございました。
勉強になりました。

補足

お盆で、返事が遅くなってしまいました。申し訳ございません。

ご丁寧にありがとうございます。

コピペだけでどんどん次の週、次の週と増やせて、プリントアウトして使用したかったのですが、やはり困難なようです。。
ご指導頂きました通りやってみました。

>数値はシリアル値が入っていて表示形式が　d　となっているとします。

正確に2012/2/○日となっていないことも原因の一つでした。
正確に2012/2/○日のｄ表示にした場合は、どちらも教えていただけた方法でうまくいきました。
しかし、今度はカレンダーの数字がコピペで自動化できなくなりました。

質問欄にもございますように、日曜日を1と考える数式を下記のように組んでおります。
　　参考サイト　http://www.relief.jp/itnote/archives/003592.php
　　例）A60=A59-WEEKDAY(DATE(YEAR($I55),MONTH($I55),0))
　　　　A59の値は2です。（＝月曜を2の数字と考える方法だそうですが、これだと1900/1/2に指定されてしまい、正確に書式設定を組むことができませんでした。

毎月、何曜日に1日が来るかわからないので、上記のような数式を組んでいると思うのですが、値を1900年代ではなく、2012年と正確に表記しながら自動化出来る方法を探してみようと思います。

何か他にいい案がございましたら、ご教示いただけると幸いです。

次のステップに進むことができました。ありがとうございます。

回答No.1

MackyNo1

画像が小さくて質問内容が把握できていない可能性もありますが、以下のようなことでしょうか？

＞excel2007　現在の週を、月間カレンダーに自動反映させたいです（条件付き書式かなにかで強調したいです。）

>画像内 左の月間カレンダーで、2/13-19の週（A43-G43のセル）の背景を変えたいと考えています。

現在の週とは、今日の日付の週という意味ではないのでしょうか？（どうして2月13日の週になるのか？）
今週の日曜日から土曜日までの日付の数字が入力されているセルを色を付けたいという意味なら、以下のような数式を使った条件付き書式を設定してください（A60セルには日にちが入力されている場合）
。

=AND(DAY(TODAY()-WEEKDAY(TODAY())+1)>=A60,DAY(TODAY()-WEEKDAY(TODAY())+7)<=A60)

>また可能なら月間カレンダーの建国記念日＝11日はフォントの色も変えたいと考えてます。

どこかに祝日リストがあるなら、以下のような条件付き書式を設定してください。

=COUNTIF(祝日リスト範囲,DATE(YEAR($I55),MONTH($I55),A60))

お礼

初めての投稿でしたので、やり方を存じておりませんでした。
いまさらですが、ご回答頂きありがとうございました。
勉強になりました。

補足

お盆で、返事が遅くなってしまいました。申し訳ございません。

ご丁寧にありがとうございます。

Todayの式が出てきたので、おそらく私の伝え方が悪かったのだと思います。
現在を反映というのは、参照している週カレンダーの日にちをミニ月間カレンダーに書式を変えて反映させたいという旨をお伝えしたかったのですが、わかりづらく申し訳ございませんでした。

コピペだけでどんどん次の週、次の週と増やせて、プリントアウトして使用したかったのですが、やはり困難なようです。。
ご指導頂きました通りやってみました。

数値はシリアル値が1900/1/1の表記でしたので、
正確に2012/2/○日のｄ表示にした場合は、どちらも教えていただけた方法でうまくいきました。
しかし、今度はカレンダーの数字がコピペで自動化できなくなりました。

質問欄にもございますように、日曜日を1と考える数式を下記のように組んでおります。
　　参考サイト　http://www.relief.jp/itnote/archives/003592.php
　　例）A60=A59-WEEKDAY(DATE(YEAR($I55),MONTH($I55),0))
　　　　A59の値は2です。（＝月曜を2の数字と考える方法だそうですが、これだと1900/1/2に指定されてしまい、正確に書式設定を組むことができませんでした。

毎月、何曜日に1日が来るかわからないので、上記のような数式を組んでいると思うのですが、値を1900年代ではなく、2012年と正確に表記しながら自動化出来る方法を探してみようと思います。

何か他にいい案がございましたら、ご教示いただけると幸いです。

次のステップに進むことができました。ありがとうございます。