Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

30896 / 76807

←次へ　｜　前へ→


	【51173】期日に指定文字の色変換をさせる

Kiyoko - 07/9/1(土) 9:33 -


	引用なし

	パスワード

よろしくお願いします。

下の表で、契約終了日の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

また、出来ましたら、ブックを開くと表示できるようにしたいのですが。

1 hits

▼

【51173】期日に指定文字の色変換をさせる Kiyoko 07/9/1(土) 9:33

≪