セルに自動で色をつける

質問

仕事で使うタイムシートを作っています。

A6 =DAY(DATE(A1,A2,1))　日付を表示（1～31の数字がでるように書式を変更）

A7～A36 =IF(A6="","",IF(MONTH(DATE($H$3,$I$3,A6+1))=$I$3,A6+1,""))
28日、31日に対応できるよう関数をオートフィルでコピーしてあります。

B6 =IF(A6="","",DATE($H$3,$I$3,A6))　曜日を英語で表示Monday～Sunday
(B6～B36までオートフィルで関数をコピーしてあります。)

　 A 　　　B 　　　C 　　　 D 　　　 E 　　　 F 　　　 G 　　　 H 　　　 I 　　　 J 　　　 K
------------------------------------------------
6 1 Sunday
7 2 Monday
8 3 Tuesday
9 4 Wednesday
.
.
.
36 31 Saturday
------------------------------------------------

【セルに自動で色をつける】
B6～B36のセルにMonday～Fridayの文字が入っている場合、C6～K6のセルに色をつけたい
同様にC7～K7、C8～K8、C9～K9..........最後のC36～K36まで条件に当てはまる時に、
セルに色をつけたいです。SaturdayとSundayの時は色はつけなくて良い

条件付き書式では無理があったので、マクロで実現するしかないのかと試行錯誤しましたが、
何ぶんマクロ初心者のため、記述方法が分かりません。

どなたかヒントを頂けると嬉しいです。
宜しくお願いします。

回答No.3

tom04 · ベストアンサー

No.2です！
もう一つの質問について・・・

月・水・金曜日のみに色を付けたいということですが、
「前回の土・日曜日以外に色を付ける」は無視して良いわけですよね？
そうしないと二つの条件が重複してしまいますので、当方使用のExcel2003以前のバージョンでは
「条件1」の方が優先されてしまいます。
（Excel2007以降のバージョンでは条件付書式の上側の条件が優先されます）

月・水・金曜日すべてが同じ色で良いのであれば前回同様にC6～K36セルを範囲指定し
条件付書式の数式欄に

=MOD(WEEKDAY($A6),2)=0

として好みの色を選択してみてください。

もし三つの曜日の色を変えたい場合はそれぞれ一つの曜日ごとに条件付書式の設定が必要になります。
仮に月曜日の色設定の数式欄は

=WEEKDAY($A6)=2
として好みの色を　→　次に　水曜日の場合は　「2」を「4」にといった具合に各曜日ごとの設定が必要になります。
今回は仮に曜日ごとに色を変えたい場合でも3つまでの条件付書式の設定なのでExcel2003以前のバージョンでも対応できますが
それ以上の条件付書式の設定を行いたい場合はVBAになってしまいます。
（Excel2007以降のバージョンではかなりの設定が可能だということです）

この程度でよろしいでしょうか？m(__)m

お礼

キタ━━━━━━(゜∀゜)━━━━━━ !!!!!

tom04さん

ありがとうございます！
これです！もう何も言うことはありません。

先日教えて頂いたものと、今回のものを両方作って
どちらが良いか上司に判断してもらいます。
（これで”エクセルができる人”と思わると怖いですね（笑）
教えてGooのヘビーユーザーです！なんて言えないですね～(^-^;)（笑））

追加の質問にも本当に分かりやすく、丁寧に説明頂いたので
心の底から感謝しています。

また、機会があれば助けてください。
m(_ _)m

回答No.2

tom04

こんばんは！
当方使用のExcel2003での一例です。

A列にはシリアル値が入っているようですので、それを利用してはどうでしょうか？

C6～K36セルを範囲指定　→　条件付書式　→　数式が　→　数式欄に
=AND(WEEKDAY($A6)<>1,WEEKDAY($A6)<>7)
として　→　書式　→　パターン　→　好みの色を選択

これで土日以外に色が付くと思います。

尚、Excel2007以降のバージョンですと
条件付書式　→　ルールの種類　→　数式を使用して・・・　を選択し
数式欄に上記と同様の数式を入れればOKだと思います。

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

お礼

tom04さん

お礼が遅くなりまして、大変申し訳ありません。
これです！これが欲しかったんです。

まさかweekday関数と条件付き書式で実現できるとは思っていませんでした。

もうひとつ、お聞きしたいのですが、
上記のような方法で、月曜、水曜、金曜だけに色をつけることはできますか？

回答No.1

Cupper-2

WEEKDAY関数は試しましたか？

　=WEEKDAY(シリアル値,2)>5

土日はこの式で TURE を返します。
　月曜日＝1
　火曜日＝2
　：
　土曜日＝6
　日曜日＝7

シリアル値は、日付を示す文字列でもOK。
　例： "2011年6月1日"
普通に日付を示しているセルを参照すると楽です。
（質問の件では日にちを表示しているセルが良いでしょう）

お礼

お返事遅くなり申し訳ありません。

回答頂きありがとうございました。

WEEKDAY関数で実現できるとは不覚でした....

実はNo.2の方の説明が分かりやすかったので、
そちらを使ってみることにしました。
実際に使ってみて、不都合があったら、Cupper-2さんの方法も使ってみたいと思います。

また何か分からないことがあったときに助けてください。
ありがとうございました。