0

VBA で セル範囲に条件付き書式を設定する VBA初心者です。Excel2003を使っています。
どのように書いたらいいか、教えて下さい

A列に２〜５００行まで、番号が入力されています。
B列は２〜５００行までランダムで、空白か「*」が入っています。
それぞれ１行目はタイトルです。

A列のセルの隣のセルが空白か*かで、A列のセルを色分けしたいと思っています。
空白なら黄色、*なら灰色です。
B２が空白ならA2を黄色。
B３が*ならA3を灰色、というように。

１度，「マクロで記録」を使って
以下のようにエクセルを操作して記録したのですが、
その後のマクロの実行がうまく動きません。

操作は
記録の開始
↓
A2:A500を選択（A2がアクティブ）
↓
条件付き書式の設定
↓
条件１：数式が「=B2="*"」と等しいとき、パターン灰色
条件２:数式が「=B2=""」と等しいとき、パターン黄色
↓
Ctrlを押しながらOK
↓
記録の終了

すると以下のようなコードが書かれました。

Range(Cells(2, 1), Cells(500, 1)).Select
Selection.FormatConditions.Delete
Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=B2=""*"""
Selection.FormatConditions(2).Interior.ColorIndex = 15
Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=B2="""""
Selection.FormatConditions(3).Interior.ColorIndex = 6

しかしマクロを実行しても、A列セルの色はすべて同じ。
B２ですべて判断されているようです。
ただ、実行した後で例えばA100で条件付き書式を見てみると、
B100のセルによって色分けされるように式は書かれています。

コードの問題でしょうか？
それとも別の、エクセルのファイルの問題でしょうか？

マクロを実行した後でもB列のデータは変更します。
その変更によってもA列の色はちゃんと変わるようにしたいので、
条件付き書式を使って色分けさせたいのですが。。。

よろしくお願いします

質問者が選んだベストソリューション

Yahoo!知恵袋 5177日前