エクセルVBAで条件付書式の色を取得

質問

セルに条件付書式で書式設定してあります。

A1は「値」100以下
A2は「値」500以下
A3は「値」１～１０の間
B1は「数式」で=B1<A1
以下さまざまな数式があります。

条件に一致すると、セルの文字が「赤」になります。

このとき、
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
MsgBox Target.Font.ColorIndex
End Sub
を実行しても、ColorIndexは、赤の「3」ではなく「-4105」と表示されます。
「-4105」は何もフォントの色を指定してないセルでも同じく表示されます。

質問１．条件付書式で、条件が一致して表示されたフォントの色は取得できないのでしょうか？

質問２．-4105とは何でしょうか？

回答No.13

Wendy02 · ベストアンサー

merlionXXさん、いつも、スレッドでおさがわせしてすみません。

今回は、別なところで、KenKen_SPさんのコードに感化されまして、私としては、良い勉強させていただいております。

さて、
＞No4で教えていただいたコートが「数式が」しか対応しないなら、条件付書式の方を「セルの値が」を「数式が」に変えてやればいいわけですよね？

#9 のコードは、「数式が」でも、「セルの値が」でも、両方使えるはずだと思って作っております。

If .FormatConditions(i).Type = 2

というところで、振り分けをしています。

＞「値」の定義？（等しい、間、以上、以下等）ってすべて数式で表せますよね？

一応、すべて当たってみたつもりですが、なにぶんにも夕飯前でしたので、万が一にも、おかしいようでしたら、
FormatCndOperand　関数の　myOperand の中の配列の中にある文字列の等号式がおかしいことになります。

お礼

何度もありがとうございました。

> #9 のコードは、「数式が」でも、「セルの値が」でも、両方使えるはずだと思って作っております。

はい、完璧でした。
いつもありがとうございます。
これからもよろしくお願いいたします。

回答No.2

KenKen_SP

#1の補足をしておきます。

#1 の回答のとおり、VBA で条件付書式のセル書式を取得することは
できません。

したがって、条件付書式で表示上セルの文字色が変わったとしても

MsgBox Target.Font.ColorIndex

で得られる色番号は、あくまで予めそのセルに設定されている色の
番号であり、条件付書式による表示上の色の番号ではありません。

＞ColorIndexは、赤の「3」ではなく「-4105」と表示されます。

以上の理由で予めセルの文字に色を設定してなければ、ディフォルト
の色番号である

xlColorIndexAutomatic = -4105

が返ります。

お礼

さっそくありがとうございました。

色の取得が不可能でも、条件付書式が「発動」したかどうかの判定も無理なのでしょうか？

それも無理ならあきらめますが。

回答No.1

KenKen_SP

つれない回答で申し訳ないのですが、、

質問1.

条件付書式によるセル書式を取得することはできません。

質問2.

xlColorIndexAutomatic = -4105 です。
ColorIndex　の定数でセルの色の設定における[自動]にあたります。