エクセルである日付以前のデータに色を！！

エクセルの表でＢＢ１のセルに入力した日付以前の日付が入力されているセルに色を付けたいのですが、どのようにしたら？
条件式書式を使おうかと思っているのですが・・・
色々な方法を教えてください

No.6 ベストアンサー 回答者： imogasi 回答日時： 2002/11/19 22:54

既に回答が出ていますが、

（１）ＶＢＡ
　　　　・バッチ処理
　　　　・即時処理（イベント利用）
（２）条件付書式の操作
　　　日付けは詰まるところシリアル値（１１月１９日は　　　３７５７９）なので、ある数より小さい値のセルに　　　色をつけるに帰着します。
（３）関数式－－関数式ではセルやフォントに色を付けら　　れないので、この方法では実現不能。
念のため操作は
たとえのデータとしてＡ１：Ａ５に
2002/11/2
2002/3/5
2002/4/5
2002/10/12
2002/4/30
といれて
Ｅ１にたとえとして2002/5/1を入れる。
（１）Ａ１：Ａ５を範囲指定
（２）書式
（３）条件付指定
（４）セルの値が
（５）次の値より小さい
（６）Ｅ１
（７）書式
（８）パターン
（９）ＯＫ
（１０）ＯＫ
でＡ２，Ａ３，Ａ５のセルに色が付く。

この回答へのお礼

詳しく教えてくださって有難うございます。早速設定しました！

お礼日時：2002/11/20 11:56

No.5 回答者： ka3 回答日時： 2002/11/19 19:02

　［条件付き書式(D)］で簡単にできました。

No.4 回答者： kazuhiko5681 回答日時： 2002/11/19 18:56

こんばんわ。

マクロの記述ミスをしてしまいました。前回のコードは破棄して下記のコードをコピー＆ペーストして下さい。

１.データの入っているブックを立ち上げ、ＡＬＴ＋Ｆ１１キーを押してＶＢＥ画面を表示させ、画面左上のVBAProjectと書かれている上にマウスポインターを合わせて右クリック後、挿入→クラスモジュールを順にクリックし、表示された右側の白い部分に下記のコードをコピー＆ペーストする。

Private Sub App_SheetChange(ByVal Sh As Object, ByVal Target As Range)

Dim myCnt As Integer
Dim i As Integer

If Target.Address <> Range("BB1").Address Then Exit Sub
myCnt = Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 To myCnt
If Cells(i, 1).Value < Range("BB1").Value Then
Cells(i, 1).Interior.ColorIndex = 34
End If
Next i
End Sub

２.次に画面左上のVBAProjectと書かれている下のThisWorkbookをダブルクリックし、表示された右側の白い部分に下記のコードをコピー＆ペーストする。

Dim myClass As New Class1

Private Sub Workbook_Open()

Set myClass.App = Application

End Sub

３.保存してブックを終了し、再度立ち上げる。

ＢＢ１に値を入力してみて下さい。貴方様の思い通りの動作が実現できます。

ご不明な点・不具合等がありましたら、ご遠慮なくお知らせ下さい。私のわかる範囲でご一緒に考えていきたいと思います。

この回答へのお礼

いつも丁寧に記入して頂いて有難うございます。今回は簡単な書式設定で行うことにしました。また教えてください。

お礼日時：2002/11/20 11:57

No.3 回答者： kazuhiko5681 回答日時： 2002/11/19 18:44

こんばんわ。

１行目をタイトル行・ＢＢ１のセルに入力した日付以前の日付が入力されているセルをＡ列としてサンプルマクロを組んでみました。次のように操作してみて下さい。

Public WithEvents App As Application

Private Sub App_SheetChange(ByVal Sh As Object, ByVal Target As Range)

Dim myCnt As Integer
Dim i as Integer

If Target.Address <> Range("BB1").Address Then Exit Sub
myCnt = cells(rows.count,1).end(xlup).Row
for i = 2 to myCnt
If cells(i,1).value < range("BB1").value Then
cells(i,1).Interior.ColorIndex = 34
End If

End Sub

２.次に画面左上のVBAProjectと書かれている下のThisWorkbookをダブルクリックし、表示された右側の白い部分に下記のコードをコピー＆ペーストする。

Dim myClass As New Class1

Private Sub Workbook_Open()

Set myClass.App = Application

End Sub

３.保存してブックを終了し、再度立ち上げる。

ＢＢ１に値を入力してみて下さい。貴方様の思い通りの動作が実現できます。

ご不明な点・不具合等がありましたら、ご遠慮なくお知らせ下さい。私のわかる範囲でご一緒に考えていきたいと思います。

No.2 回答者： akubihime212 回答日時： 2002/11/19 17:28

お考えの通り、条件付日付が一番簡単じゃないでしょうか？

でしたら、セルに色をつけるとか、文字の色を変えるとか、フォントを変えるとかの選択が出来ますから。

色々とあるでしょうが、これが一番のお勧めですが。

No.1 回答者： taknt 回答日時： 2002/11/19 17:23

まず マクロを使うやり方があります。

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.value < range("BB1").value Then
Target.Interior.ColorIndex = 2
End If
End Sub

未確認ですが、こんな感じにすると赤くなると思います。