|
よろしくお願いします。
下の表で、契約終了日の30日前には、契約終了日の文字が赤色に変わる
また、契約終了日が過ぎると、契約終了日に文字の色が青色に
変わるようにしたいのですが。
マクロを作成する上でのアドバイスお願いします。
条件付書式設定で、最初は作成したのですが、期日が過ぎると
色が変更が出来ませんでした。
「=C2<$G$6+30」・・・G6=Today()
A B C
1 氏名 契約開始日 契約終了日
2 西村 2006/9/1 2007/9/17
3 田中 2006/9/17 2007/9/17
4 北川 2006/10/10 2007/10/10
: : :
マクロのチェックお願いします。現在色が変わりません
Sub 色文字変更()
Dim MyR As Range, R As Range
With Sheets("sheet1")
Set MyR = .Range("c2", .Range("c" & Rows.Count).End(xlUp))
For Each R In MyR
If R.Formula > "=today()"−30 Then
R.Font.ColorIndex = 3
End If
Next
End With
End Sub
また、出来ましたら、ブックを開くと表示できるようにしたいのですが。
|
|