条件付き書式の色をVBAで変更したい

条件付き書式で表示されるデータバーのカラーをVBAで、指定したセルのカラーに変更したいです。

VBA初心者なので、どなたか詳しい方ご教示いただけますと幸いです。

宜しくお願い致します。

No.1 ベストアンサー 回答者： tom04 回答日時： 2015/10/02 22:26

こんばんは！

一番簡単なのは、条件付き書式が設定してある範囲を指定し、
書式で塗りつぶしの色を変える方法ではないでしょうか？

どうしてもVBAでというコトであれば、
単に塗りつぶしの色を変更するだけでは条件付き書式の方が優先されますので
色は変化しません。
一旦条件付き書式のルールを消去してやる必要があると思います。
もちろんVBAで新たに条件付き書式を設定することは可能ですが、
結構面倒ですよね。

ただこれでは何もお役に立たないので一例です。
Excel2010以降のバージョンをお使いであれば「Displayformatオブジェクト」が使えますので、
条件付き書式の色を判断できます。

条件付き書式で塗りつぶしを「赤」に設定してあるセルを「黄色」に変える場合の一例です。
セル範囲を選択し↓のマクロを実行してみてください。

Sub Sample1()
Dim c As Range
For Each c In Selection
If c.DisplayFormat.Interior.ColorIndex = 3 Then
With c
.FormatConditions.Delete
.Interior.ColorIndex = 6
End With
End If
Next c
End Sub

※　条件付き書式を一旦消して、単に黄色に塗りつぶしているだけです。

お望みの方法でなければごめんなさいね。m(_ _)m

この回答へのお礼

ご回答ありがとうございます＾＾！
大変助かりました＊

条件付き書式のカラー変更が何個もあったので大変助かりました＞＜＊
ありがとうございました！

お礼日時：2015/10/05 11:04