Excelで日付を条件にした条件付き書式を設定したいのですが．．．

質問

Excelで日付が期間内に収まるか判定する条件付き書式を書いています。
エクセル技道場もヘルプも見たのですがうまくいきません。
ご存知でしたら、教えて下さい。

やりたいことは次のとおりです。

　Ａ　　　　　　Ｂ（開始）　 Ｃ（終了）　　Ｄ（対象日）　Ｅ（判定）
　2001年７月　　7/1　　　　 7/15 7/2 赤
　　↑　　　　　　　↑　　　　　↑ ↑
（2001/07/01）（2001/07/1) (2001/07/15) (A+1)

7/16　　　　　色なし

　Ｅを、Ｄの日付が開始と終了日の間にあれば「赤」に、なければ色なしで
　表示したいのです。

DATEDIFとDATEVALUEを組合せて条件式を作っているのですが、赤になり
ません。よろしくお願いします。

回答No.1

millionwalker · ベストアンサー

なんだかわざわざ難しくしちゃってる感じ。
D1セルの日付がB1とC1の間にあるときにTRUEになる数式は、
=AND(B1<=D1,D1<=C1)
ですみますよね。
あとはTRUEとFALSEで色変えをする条件付書式を設定するだけ。

お礼

そうですね。単純に考えるとうまくいきました。
ありがとうございました。

回答No.4

comv

こんにちは！

Ｅ２に設定する例です。
１．Ｅ２を選択　→　書式　→　条件付き書式
２．数式が　→　数式欄に以下の数式を入力

　=AND(D2>=B2,D2<=C2,COUNT(B2:D2)=3)

　書式ボタン　→　パターン　「赤」を選択　ＯＫ

３．Ｅ列の必要行までフィルドラッグ

これでＯＫだと思います。

お礼

そういう考え方もできるのですか．．．
ありがとうございました。

回答No.3

wonwonwon

まずEに
=IF(AND(B3<=D3,D3<=C3),0,1)
をいれて
条件付き書式で”セルの値が次の値に等しい時　0　→ 文字：赤 パターン：赤
条件付き書式で”セルの値が次の値に等しくない時　0　→ 文字：白 パターン：塗りなし
これだけでよいのでは？
ＶＢでやるのでしたらこちらを参考に

Dim b_Day, e_Day, set_D As Date

b_Day = Range("b3").Value
e_Day = Range("c3").Value
set_D = Range("d3").Value
If b_Day <= set_D Then
If set_D <= e_Day Then
Range("e3").Select
With Selection.Interior
.ColorIndex = 3
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With
Else
Range("e3").Select
Selection.Interior.ColorIndex = xlNone
End If
Else
Range("e3").Select
Selection.Interior.ColorIndex = xlNone
End If

お礼

ＶＢは使ったことがないのですが、これかた勉強しようと思っているところです。
またなにかありましたら、お願いします。

回答No.2

i-harada

i-haradaです。

専門じゃないので、よくわかりませんが下記のようじゃ駄目ですか？

=IF(AND(D2>B2,D2<C2),1,0)

このセルに条件付書式を付ける。

お礼

単純にすればそういうことですね．．．
ありがとうございました。