セルに条件付き書式を設定する

サンプルソース

' 値が1～10の範囲内の場合(1つ目の条件)
Range("A1").FormatConditions.Add Type:=xlCellValue, Operator:=xlBetween, Formula1:="1",Formula2:="10"

' 条件書式の設定(1つ目の条件)
Range("A1").FormatConditions(1).Interior.ColorIndex = 3 ' 文字を赤色

' A1値が1の場合(2つ目の条件)
Range("A1").FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, Formula1:="1"

' 条件書式の設定(2つ目の条件)
Range("A1").FormatConditions(2).Font.ColorIndex = 3 ' 背景を赤色

' A1値が1より大きい場合(3つ目の条件)
Range("A1").FormatConditions.Add Type:=xlCellValue, Operator:=xlGreater, Formula1:="1"

' 条件書式の設定(3つ目の条件)
Range("A1").FormatConditions(3).Font.Bold = True ' 太字

' A2値が1より小さい場合(4つ目の条件)
Range("A1").FormatConditions.Add Type:=xlExpression, Operator:=xlLess, Formula1:="=RC[1]<1"

' 条件書式の設定(4つ目の条件)
Range("A1").FormatConditions(4).Font.Italic = True ' 斜体

解説

FormatConditions.Addで条件付き書式を設定します。

条件付き書式は、あるセルの値が指定した範囲内なら背景を赤色にする、といった条件をセルにつけることができます。
上のサンプルのように、同じセルに複数の条件付き書式の設定が可能です。

オプションのTypeにはチェック対象の種類を設定します。

Typeの設定値

設定	値	内容
xlCellValue	1	セルの値
xlExpression	2	数式
以下はExcel2007 以降で設定可能
xlColorScale	3	カラースケール
xlDatabar	4	データバー
xlTop10	5	上位の 10 の値
xlIconSet	6	アイコンセット
xlUniqueValues	8	一意の値
xlTextString	9	テキスト文字列
xlBlanksCondition	10	空白の条件
xlTimePeriod	11	期間
xlAboveAverageCondition	12	平均以上の条件
xlNoBlanksCondition	13	空白の条件なし
xlErrorsCondition	16	エラー条件
xlNoErrorsCondition	17	エラー条件なし

オプションのOperatorには条件の種類を設定します。
xlBetweenとxlNotBetweenのときのみ、Formula2の設定ができます。

Operatorの設定値

設定	値	内容
xlBetween	1	次の値の間
xlNotBetween	2	次の値の間以外
xlEqual	3	次の値に等しい
xlNotEqual	4	次の値に等しくない
xlGreater	5	次の値より大きい
xlLess	6	次の値より小さい
xlGreaterEqual	7	次の値以上
xlLessEqual	8	次の値以下

FormatConditionsでセルの条件付き書式が真の場合の書式設定を行います。

セルに条件付き書式を設定する

セルの操作