|
Kiyoko さん、おはようございます。
じゅんじゅん さんの、
>>仮に別の色に変更しているものを、赤・青・黒に変更するのなら
>>条件は3つ必要でしょうけど、元々黒なら2つで出来るはずですが。
この問いに対して
>そのように思いますが、該当日を基準に30日〜1日前の設定が出来れば
>問題ないのですが、・・・これがIf関数で表現できないのです。
これでは、話が全然かみあってないんですけど。
昨日書いた条件付き書式の方はスルーみたいなので。
IF分岐でやりたいということなら、
>Dim i As Integer
> Dim LstR As Integer
> LstR = Range("A65536").End(xlUp).Row
> For i = 2 To LstR
With Cells(i, "C")
If Date > .Value Then
.Interior.ColorIndex = 5
ElseIf Date >= (.Value - 30) Then
.Interior.ColorIndex = 3
ElseIf IsDate(.Value) Then
.Interior.ColorIndex = 1
End If
End With
> Next
こんな感じです。
|
|