【エクセル】今日の日付に赤枠をつけたい【Excel】

【エクセル】今日の日付に赤枠をつけたい【Excel】

無知なわたしめにどなたかお助けお願いします！
エクセルを使ったカレンダーが必要なのですが、
画像のようなカレンダーで、今日の日付のところに自動的に赤枠をつけていきたいのです。

やればやる程深みにハマっていき・・・
やはり、マクロか何かの知識が必要になってくるのでしょうか。
どなたかご指南の程よろしくおねがいします。

画像：６月１６日の場合になります
日にちのところには、関数は入っておらず、ただ数字が入力してあるだけになります。

No.2 ベストアンサー 回答者： Machigai71 回答日時： 2010/06/10 13:37

ちょっと作業が必要になりますが、もし興味があったらやってみてください。

マクロは使いません。
関数と条件付書式で実現可能です。

(1)日にちのところの数字を、「2010/06/15」のように「yyyy/mm/dd」のように書き直す。
（単なる数字ではなく、日付として認識させるため）

(2)日にちを直したら、日にちのセルを全て「セルの表示形式」⇒「ユーザー定義」⇒『d』として、
見た目普通の数字に見えるようにする。
（例：「2010/06/15」と入力したあとセルの表示形式を直して「15」と表示されるようにする）

(3)日にちが入っているセルを全て選択し、下記のように「条件付書式」を設定する。

・「セルの値が」「次の値に等しい」「=Today()」
・「書式」を赤枠で囲まれるよう罫線を設定する。
（Today関数は「今日」の日付けを返す関数。2010年6月15日なら、日にちの2010/06/15のセルが該当し、そのセルが指定した書式（赤枠罫線）で表示される。）

この回答へのお礼

なるほど！
日にちのところをあらかじめ、日付を入れておけばよかったのですね。
１から丁寧に教えてくださり、すごく分かりやすかったです。
ありがとうございました！
赤枠罫線はちょっとできなかったですが、応用で使わせていただきました！

お礼日時：2010/06/25 10:09

No.7 回答者： MackyNo1 回答日時： 2010/06/25 11:46

参考までに。

>ちなみに入力されている数字は全角だったので、半角に打ち直しました＾＾；

半角全角数字が混ざっていた場合（もちろん全角文字だけの場合）でも対応できるようにするには、たとえばNo5で回答した数式の「リスト範囲」の部分を「ASC(リスト範囲）」に変更します。

この回答へのお礼

半角全角混合でも対応させることができるのですね！
便利なことをお聞きしました。ありがとうございました！

お礼日時：2010/06/25 12:01

No.6 回答者： layy 回答日時： 2010/06/10 15:23

補足して欲しいです。

毎年使うものならそれなりの仕組みが必要と思われますがそこはどうですか。

この回答への補足

今年かぎりのものになります！

補足日時：2010/06/25 12:02

この回答へのお礼

説明不足すみませんでした＾＾；
ありがとうございました！

お礼日時：2011/01/20 21:39

No.5 回答者： MackyNo1 回答日時： 2010/06/10 14:38

現在のレイアウトのまま条件付き書式で該当セルに赤罫線で囲みたいなら以下のような条件付き書式を設定します(1月などが結合セルに入力されている場合)。

準備として、Ｂ４セル以下のデータ範囲にたとえば「リスト範囲」と名前を付けておき（絶対参照の数式でも可）、Ｂ４セル以下を選択し、条件付き書式で「数式が」にして以下の式を入力して、「書式」ボタンから赤罫線を設定します。

=(SUMPRODUCT((リスト範囲=MONTH(TODAY())&"月")*ROW(リスト範囲))<ROW(B4))*(SUMPRODUCT((リスト範囲=MONTH(TODAY())&"月")*ROW(リスト範囲))+7>ROW(B4))*(SUMPRODUCT((リスト範囲=MONTH(TODAY())&"月")*COLUMN(リスト範囲))<COLUMN(B4))*(SUMPRODUCT((リスト範囲=MONTH(TODAY())&"月")*COLUMN(リスト範囲))+8>COLUMN(B4))*(DAY(TODAY())=B4)

この回答へのお礼

わわわ、ご丁寧にありがとうございます！
なるほど、範囲に名づけをしてやればいいのですね！
全く考えつかなかったです＾＾；

いただいて、やってみたいと思います！
ありがとうございました！

お礼日時：2010/06/25 11:59

No.4 回答者： CoalTar 回答日時： 2010/06/10 14:09

イメージとしては

B6セルからH10セルまで(1月)を選択して
条件付き書式 [数式が]
=DATE($K$2,1,B6)=TODAY()
ただし、K2セルに 2010 と入っているとする。

赤の太い罫線は条件付き書式でできないので、
あらかじめ赤い太罫線を書いておき、
=DATE($K$2,1,B6)<>TODAY()
の条件で黒い細罫線を設定します

この回答へのお礼

なるほど、赤の太い罫線は難しいのですね。
丁寧に教えていただき、本当に感謝です。ありがとうございます。
画像のカレンダーすごいですね。
私もこれくらいエクセルが使えるようになりたいです。

お礼日時：2010/06/25 11:56

No.3 回答者： MackyNo1 回答日時： 2010/06/10 13:49

関数を使った条件付き書式だけでも今日の日付に色を付けることができますが、「１月」や「２月」と書かれているセルはどのセル番地で（結合している？）、入力した月の数字は半角か全角かを低ｊ質得ください。

この回答へのお礼

関数を使いつつの条件付き書式、なるほど！
ありがとうございます！
ちなみに入力されている数字は全角だったので、半角に打ち直しました＾＾；

お礼日時：2010/06/25 10:11

No.1 回答者： sumer45 回答日時： 2010/06/10 13:12

マクロだったら　

For Each　～　で
IF文の組み合わせで簡単にできるんですが・・