#ゃー。久し振りだからblogの書き方忘れてる.. X)
excel2010条件付き書式後にVBAにて処理 - 教えて!goo
最近、無沙汰な感じだけど、やっぱりQ&A掲示板に出入りしてると良い事あるなぁ。
2010から「条件付き書式」の結果書式を取得できるオブジェクトが追加されてた。
勉強になりました。
ありがとうございます。 :)
DisplayFormat オブジェクト
>範囲の条件付き書式または表のスタイルの変更などの操作が行われると、
>現在のユーザー インターフェイスの表示と Range オブジェクトの対応するプロパティとの間に
>矛盾が生じる可能性があります。
>DisplayFormat オブジェクトのプロパティを使用すると、
>現在のユーザー インターフェイスの表示に対応する値を取得できます。
「条件付き書式」用というわけではなくて、表示全般に対してのようだけど、
■xl2007:条件付き書式の色設定だけ残す
..みたいな事やらなくてよくなったのは進歩かも。
excel2010条件付き書式後にVBAにて処理 - 教えて!goo
最近、無沙汰な感じだけど、やっぱりQ&A掲示板に出入りしてると良い事あるなぁ。
2010から「条件付き書式」の結果書式を取得できるオブジェクトが追加されてた。
勉強になりました。
ありがとうございます。 :)
DisplayFormat オブジェクト
>範囲の条件付き書式または表のスタイルの変更などの操作が行われると、
>現在のユーザー インターフェイスの表示と Range オブジェクトの対応するプロパティとの間に
>矛盾が生じる可能性があります。
>DisplayFormat オブジェクトのプロパティを使用すると、
>現在のユーザー インターフェイスの表示に対応する値を取得できます。
「条件付き書式」用というわけではなくて、表示全般に対してのようだけど、
■xl2007:条件付き書式の色設定だけ残す
..みたいな事やらなくてよくなったのは進歩かも。
Sub try()
Dim r As Range
Set r = Workbooks.Add.Sheets(1).Range("A1")
r.FormatConditions.Add(Type:=xlExpression, Formula1:="=A1<>""""").Font.Color = vbRed
r.Value = "条件付き書式で赤"
MsgBox r.DisplayFormat.Font.Color
End Sub
Dim r As Range
Set r = Workbooks.Add.Sheets(1).Range("A1")
r.FormatConditions.Add(Type:=xlExpression, Formula1:="=A1<>""""").Font.Color = vbRed
r.Value = "条件付き書式で赤"
MsgBox r.DisplayFormat.Font.Color
End Sub