Excel VBA質問箱 IV

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

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


59908 / 76732 ←次へ | 前へ→

【21485】Re:作業完了予定日が過ぎるとセルの色が変わる書式を教えてください。
発言  ichinose  - 05/1/21(金) 20:04 -

引用なし
パスワード
   ▼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
これは、条件付書式を使用すると可能ですよ!!

C列(上記の例だとC2〜C4)を選択して、
「書式」----「条件付書式」とクリックして下さい。
ダイアログが表示されますから、記述された条件にあうような設定を行って下さい。

コードで設定するなら、
'====================================================
Sub main()
  With Selection.FormatConditions
   .Delete
   .Add Type:=xlExpression, Formula1:= _
    "=AND(rc[1]="""",rc<TODAY())"
   .Item(1).Interior.ColorIndex = 3
   End With
End Sub

セルC2〜C4を選択した状態でmainを実行してみて下さい。
但し、C列には予定日が入力されていると仮定しています。
(未入力の場合は、色無しなら数式をもう一工夫ですが・・)

確認して下さい。
0 hits

【21484】作業完了予定日が過ぎるとセルの色が変わる書式を教えてください。 ISOTOPE 05/1/21(金) 19:31 質問
【21485】Re:作業完了予定日が過ぎるとセルの色が変... ichinose 05/1/21(金) 20:04 発言
【21518】Re:作業完了予定日が過ぎるとセルの色が変... ISOTOPE 05/1/22(土) 12:30 発言
【21520】Re:作業完了予定日が過ぎるとセルの色が変... G-Luck 05/1/22(土) 14:56 回答
【21521】Re:作業完了予定日が過ぎるとセルの色が変... [名前なし] 05/1/22(土) 15:57 回答
【21526】Re:作業完了予定日が過ぎるとセルの色が変... [名前なし] 05/1/22(土) 18:50 回答
【21531】Re:作業完了予定日が過ぎるとセルの色が変... ichinose 05/1/22(土) 21:00 発言
【21524】Re:作業完了予定日が過ぎるとセルの色が変... [名前なし] 05/1/22(土) 16:20 回答
【21528】Re:作業完了予定日が過ぎるとセルの色が... ponpon 05/1/22(土) 19:22 回答
【21695】Re:作業完了予定日が過ぎるとセルの色が... koshimizu 05/1/27(木) 9:33 質問
【21697】Re:作業完了予定日が過ぎるとセルの色が... Jaka 05/1/27(木) 11:23 発言
【21698】Re:作業完了予定日が過ぎるとセルの色が... koshimizu 05/1/27(木) 12:47 お礼
【21706】Re:作業完了予定日が過ぎるとセルの色が... ISOTOPE 05/1/27(木) 17:57 お礼

59908 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free