| |
▼ISOTOPE さん：
こんばんは。
>たとえば下記のような表があったとして、例1のように
>作業完了予定前に作業が完了している場合はセルの色を変えず
>例2のように1月4日に完了予定なのに4日を過ぎても作業が完了
>しない場合はセルの色を赤にしたいです。また、例3のように、
>予定日は過ぎ、セルの色が赤だが、その後作業が完了したものについて、
>セルの色が元に戻るように設定したいのですが、
>どうすれば良いか解りません。力を貸してください。
>作業完了予定(C1) 作業完了日(D1)
> 1月1日(C2) 12月30日(D2)←例1
> 1月4日(C3) (D3)←例2
> 1月7日(C4) 1月10日 (D4)←例3
これは、条件付書式を使用すると可能ですよ！！
Ｃ列（上記の例だとＣ２〜Ｃ４）を選択して、
「書式」----「条件付書式」とクリックして下さい。
ダイアログが表示されますから、記述された条件にあうような設定を行って下さい。
コードで設定するなら、
'====================================================
Sub main()
With Selection.FormatConditions
.Delete
.Add Type:=xlExpression, Formula1:= _
"=AND(rc[1]="""",rc<TODAY())"
.Item(1).Interior.ColorIndex = 3
End With
End Sub
セルＣ２〜Ｃ４を選択した状態でmainを実行してみて下さい。
但し､Ｃ列には予定日が入力されていると仮定しています。
（未入力の場合は、色無しなら数式をもう一工夫ですが・・）
確認して下さい。
|
|
ichinose
- 05/1/21(金) 20:04 -
