スキルアップ・問題解決なら、モーグにおまかせ！

初心者です、よろしくお願いします。
先ほどVBAで質問しこちらに質問した方が良いとの事をご教示頂き、
再度こちらに質問させて頂きます。
期限（日付）に付いて教えて下さい。
例えば、セル:A1に予定日を入力して、期限が3日前になるとセル:B1に
黄色に塗られ、期限が過ぎると赤色に塗られ、セル:B1に日付を入力したら
色が消える様にしたいのですが。
ちなみに行数が20行ほどあります。
ご教示いただけますでしょうか、よろしくお願いいたします。

例えば D1セルに今日の日付を入力しておきます。
（D1でなく、別のセルでも可。下記の式のなかにTODAY()を直接入れても可）
 
・B1:B20を選択した状態で、以下の条件付き書式を設定してください。
  「新しいルール..」「数式を使用して、書式設定するセルを決定」
・[条件]
  =AND(B1="",A1-3 <= $D$1,$D$1 < A1)
  [書式] 塗りつぶし(黄）
・さらに、同じことを繰り返します。
  [条件]
  =AND(B1="",A1 <= $D$1)
  [書式] 塗りつぶし(赤）
 
なお、B列に入力されたものが日付かどうかは見ていません。 入力があれば着色は解除される前提です。
本やネット上の記事を見ると、図解で手順が示されたものがあるので参照してください。

VBAのほうの質問は、「解決済みにする」をチェックして閉じて下さい。

ご教示ありがとうございました、やりたかった結果になりました。
色々と勉強になります、本当にありがとうございました。