Excel VBA質問箱 IV

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

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


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

70000 / 76732

←次へ　｜　前へ→


	【11244】Re:期限がきたらセルのパターンを変えたいのですが

BOTTA - 04/3/3(水) 18:51 -


	引用なし

	パスワード

静寺さん、こんにちは。
>残り期限が１年をきったら背景色が黄色
>半年を切ったら赤
>期限が過ぎてしまったら黒
>にしたいのですが、条件付書式を試しましたが上手くいきません。

条件付書式でできると思います。
マクロで書くと、

Sub aaa()
　　With Range("A1:C1") '←適宜変更してね
　　　　.FormatConditions.Delete
　　　　.FormatConditions.Add Type:=xlCellValue, _
　　　　　　Operator:=xlLessEqual, _
　　　　　　Formula1:="=TODAY()"
　　　　.FormatConditions(1).Interior.ColorIndex = 15

　　　　.FormatConditions.Add Type:=xlCellValue, _
　　　　　　Operator:=xlBetween, _
　　　　　　Formula1:="=TODAY()+1", _
　　　　　　Formula2:="=DATE(YEAR(TODAY()),MONTH(TODAY())+6,DAY(TODAY()))"
　　　　.FormatConditions(2).Interior.ColorIndex = 3

　　　　.FormatConditions.Add Type:=xlCellValue, _
　　　　　　Operator:=xlBetween, _
　　　　　　Formula1:="=DATE(YEAR(TODAY()),MONTH(TODAY())+6,DAY(TODAY()))+1", _
　　　　　　Formula2:="=DATE(YEAR(TODAY())+1,MONTH(TODAY()),DAY(TODAY()))"
　　　　.FormatConditions(3).Interior.ColorIndex = 6
　　End With
End Sub

日付の計算はややこしい(>_<)

2 hits

▼

【11238】期限がきたらセルのパターンを変えたいのですが 静寺 04/3/3(水) 16:09