エクセル表、条件によりフォントの色を変えたい

質問

初めて質問します。Excel2003使用です。
管理表です、Ｂ1とＣ1は定数日付を入れます、例えばB1＝2008/12/31、C1=2009/05/31です。
B7からB500まで入荷日付を入力していきます、その時に、B7<$B1$ならば"黒",B7>$B1$でB7<$C1$ならば"青"太字、B7>$C1$ならば"緑”太字にして行全部上記の条件のフォントの色にしたいのです。
さらにB7～B500をキーにして行全体をソートする可能性があります。
条件式書式は他の条件で３ケ使ってしまっています。
色々模索したのですがどうしてもうまくいかないので相談かけました。
どなたかサンプルVBAをいただきたいのです。よろしくお願いします。

回答No.1

nattocurry

Sub test()
Dim r
For Each r In Range("B7:B500")
If r.Value < Range("B1").Value Then
r.Font.FontStyle = "標準"
r.Font.Color = RGB(0, 0, 0)
ElseIf r.Value < Range("C1").Value Then
r.Font.FontStyle = "太字"
r.Font.Color = RGB(0, 0, 255)
Else
r.Font.FontStyle = "太字"
r.Font.Color = RGB(0, 255, 0)
End If
Next r
End Sub

お礼

ご回答有難うございます。引用させていただきます。