[[20080624141548]]　『以上以下の範囲に着色というマクロ』（まるまる）　ページの最後に飛ぶ

『以上以下の範囲に着色というマクロ』（まるまる）

 いつもお世話になっております。
 どなたか教えてください。

 ↓のようなものをマクロを作成しました。（初心者なので変かもしれません）
 このマクロ自体は一応問題なく実行されるのですが、
 『30日以上49日以下には黄色を着色』というマクロを追記したいのですが、
 どうしたらよいでしょうか？
 よろしくお願いいたします。

 '50日以上に赤色を着色
    Sheets("SH").Select
    Range("A2:I2").Select
    Selection.FormatConditions.Delete
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
        "=AND($I2>=50)"
    Selection.FormatConditions(1).Interior.ColorIndex = 3
    Selection.Copy
    Range("A3").Select
    Range("A3:I5000").Select
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Range("A1").Select
    End With

 条件付書式の条件1(1)に
=AND($I2>=50)
 を入れたのですよね？
 でしたら、その後「追加(A)>>」を押して
 条件2(2)に
=AND($I2>=30)
 を設定するのはどうでしょう？

 記録にとればコードが分かると思います。
http://www.excel.studio-kazu.jp/lib/e2qw/e2qw.html
http://www.excel.studio-kazu.jp/lib/e4b/e4b.html

 なお、条件は一つしかないので、AND関数に入っている必要はなさそうですが・・・。

 (HANA)

____

 HANAさん早速のご返答ありがとうございました。
 勤務中の為、ご連絡が遅くなり申し訳ございませんでした。
 おっしゃるとおり、条件２に追加設定することで、うまくいきました。
 ありがとうございました。

 まるまる
____

コメント返信：

[ 一覧(最新更新順) ]

[[20080624141548]] 『以上以下の範囲に着色というマクロ』（まるまる） ページの最後に飛ぶ

[[20080624141548]]　『以上以下の範囲に着色というマクロ』（まるまる）　ページの最後に飛ぶ