ExcelマクロVBA入門
第91回.条件付き書式（FormatCondition）

FormatConditionオブジェクトのプロパティとメソッド

メソッド	Delete	オブジェクトを削除します。
	Modify	既存の条件付き書式を変更します。
	ModifyAppliesToRange	書式のルールが適用されるセル範囲を設定します。
	SetFirstPriority	条件付き書式ルールの優先度の値を "1" に設定し、ワークシート内の他のルールより先に評価されるようにします。
	SetLastPriority	条件付き書式ルールの順位を設定し、ワークシート上の他のすべてのルールの後に評価されるようにします。
プロパティ	Application	対象となるオブジェクトが指定されない場合は、Excel アプリケーション (Application オブジェクト) を返します。対象となるオブジェクトが指定された場合は、指定されたオブジェクトを作成した Application オブジェクトを返します。OLE オートメーションを使っていて、オブジェクトのアプリケーションにアクセスするときなどに、このプロパティを使います。値の取得のみ可能です。
	AppliesTo	書式ルールを適用するセル範囲を表す Range オブジェクトを返します。
	Borders	スタイルまたはセル範囲 (条件付き書式の一部として定義された範囲を含む) の罫線を表す Borders コレクションを取得します。
	Creator	現在のオブジェクトが作成されたアプリケーションを示す 32 ビットの整数を取得します。値の取得のみ可能です。長整数型 (Long) の値を使用します。
	DateOperator	書式の条件に使用される日付演算子を指定します。値の取得および設定が可能です。
	Font	指定したオブジェクトのフォントを表す Font オブジェクトを取得します。
	Formula1	条件付き書式または入力規則に使用されている値またはオブジェクト式を返します。定数値、文字列値、セル参照、または数式を使用できます。値の取得のみ可能です。文字列型 (String) の値を使用します。
	Formula2	条件付き書式または入力規則の 2 番目の部分に使用されている値またはオブジェクト式を返します。Operator プロパティに xlBetween または xlNotBetween が設定されている場合にだけ、このプロパティを使用できます。定数値、文字列値、セル参照、または数式を指定できます。値の取得のみ可能です。文字列型 (String) の値を使用します。
	Interior	指定されたオブジェクトの塗りつぶし属性を表す Interior オブジェクトを取得します。
	NumberFormat	条件付き書式ルールが True に評価された場合にセルに適用される表示形式を設定します。値の取得および設定が可能です。バリアント型 (Variant) の値を使用します。
	Operator	条件付き書式の演算子を表す長整数型 (Long) の値を返します。
	Parent	指定されたオブジェクトの親オブジェクトを取得します。値の取得のみ可能です。
	Priority	条件付き書式ルールの優先度の値を取得、または設定します。優先度は、ワークシート内に複数の条件付き書式ルールが存在する場合、その評価の順序を決定します。
	PTCondition	条件付き書式がピボットテーブル チャートに適用されるかどうかを表すブール型 (Boolean) の値を返します。値の取得のみ可能です。
	ScopeType	条件付き書式がピボットテーブル チャートに適用される場合、その適用範囲を表す XlPivotConditionScope クラスの定数を取得、または設定します。
	StopIfTrue	現在のルールが True に評価された場合、そのセルの書式ルールをさらに評価するかどうかを表すブール型 (Boolean) の値を取得、または設定します。
	Text	条件付き書式ルールで使用されるテキスト文字列を指定する文字列型 (String) の値を設定します。
	TextOperator	条件付き書式ルールで実行されるテキスト検索を指定する XlContainsOperator クラスの定数の 1 つを設定します。
	Type	オブジェクトの種類を表す長整数型 (Long) の値を返します。xlFormatConditionType クラスの定数を使用します。

2007以降のみで使用可能なメソッドプロパティを含んでいます。
良く質問されるのが、
StopIfTrue
これが何かという事です。
これは、シートの条件付書式の「ルールの管理」のダイアログ

この「条件を満たす場合は停止」になります。
Trueで停止です。
FormatConditionオブジェクトに含まれる、下位のオブジェクト

オブジェクト	プロパティ
Font	Bold
	Color
	ColorIndex
	FontStyle
	Italic
	Strikethrough
	Underline
	下線スタイル (会計) は使用できません。
Border	Bottom
	Color
	Left
	Right
	Style
	使用できる罫線の種類は、xlNone、xlSolid、xlDash、xlDot、xlDashDot、xlDashDotDot、xlGray50、xlGray75、xlGray25 です。それ以外はサポートされていません。
	Top
	Weight
	使用できる罫線の太さは、xlWeightHairline および xlWeightThin です。それ以外はサポートされていません。
Interior	Color
	ColorIndex
	Pattern
	PatternColorIndex

使用例．
Range.FormatConditions(1).Font.ColorIndex = 3

(1)は、先頭の条件になります。

"A1:A10"セルに対して、
90%未満の場合は赤色で塗りつぶす
100%未満の場合は黄色で塗りつぶす
これを行うVBAコードです。

Sub sample1() 　　With Worksheets("Sheet1").Range("A1:A10") 　　　　.FormatConditions.Delete 　　　　.FormatConditions.Add Type:=xlCellValue, Operator:=xlLess, Formula1:="90%" 　　　　.FormatConditions(1).Interior.Color = vbRed 　　　　.FormatConditions.Add Type:=xlCellValue, Operator:=xlLess, Formula1:="100%" 　　　　.FormatConditions(2).Interior.Color = vbYellow 　　End With End Sub

セルに既に条件付き書式が設定されている場合を想定して、条件付き書式を一旦削除しています。
最初のFormatConditions.AddでFormatConditions(1)が追加され、
次のFormatConditions.AddでFormatConditions(2)が追加されます。
2個くらいなら、FormatConditionsの要素位置を数値で指定しても問題ないでしょうが、
もっと多くなってくると、数値指定が面倒になってきます。
以下のように、Addメソッドの戻り値のFormatConditionオブジェクトを変数に入れて使うことが出来ます。

Sub sample2() 　　Dim fc As FormatCondition 　　With Worksheets("Sheet1").Range("A1:A10") 　　　　.FormatConditions.Delete 　　　　Set fc = .FormatConditions.Add(Type:=xlCellValue, Operator:=xlLess, Formula1:="90%") 　　　　fc.Interior.Color = vbRed 　　　　Set fc = .FormatConditions.Add(Type:=xlCellValue, Operator:=xlLess, Formula1:="100%") 　　　　fc.Interior.Color = vbYellow 　　End With End Sub

書き方の注意点としては、
.FormatConditions.Add Type:=xlCellValue, Operator:=xlLess, Formula1:="90%"
この場合は、Addの後ろに半角空白をおいて引数を指定します。
Set fc = .FormatConditions.Add(Type:=xlCellValue, Operator:=xlLess, Formula1:="90%")
この場合は、Addの後ろの()の中に引数を指定します。
VBAにおける括弧()の使い方

同じテーマの記事
新着記事