導入：なぜVBAで条件付き書式を扱うのか
実務において「特定の条件を満たすセルを強調する」場面は非常に多いですよね。手動で「条件付き書式」を設定することも可能ですが、レポート作成の自動化や、大量のシートへ一括で適用したい場合には、VBAによる制御が不可欠です。手動設定では漏れが発生しやすい作業も、コード化することで「誰が実行しても同じ品質」を担保できることが最大のメリットです。
基礎知識：FormatConditionsオブジェクトとは
VBAで条件付き書式を扱うには、RangeオブジェクトのFormatConditionsプロパティを使用します。このオブジェクトは、セルに設定されたすべての条件付き書式を管理するコレクションです。
新しいルールを追加するには、FormatConditions.Addメソッドを使用します。この際、「値に基づいて設定するのか」「数式に基づいて設定するのか」を引数で指定する必要があります。
実装/解決策：VBAで条件付き書式を追加する手順
基本の流れは以下の通りです。
1. 対象の範囲（Range）を特定する。
2. 既存の条件が残っていると競合するため、一度Deleteメソッドでクリアする。
3. Addメソッドで新しい条件を追加する。
4. 追加した条件オブジェクトに対し、色やフォントなどの書式（InteriorやFontプロパティ）を設定する。
サンプルプログラム：値が5000以上のセルを赤くする
以下のコードは、アクティブシートのA列（10行目まで）を対象に、値が5000以上のセルを赤く塗りつぶす実用的なサンプルです。
Sub SetConditionalFormatting()
Dim targetRange As Range
Set targetRange = Range(“A1:A10″)
‘ 既存の条件付き書式をクリア（予期せぬ重複を防ぐため）
targetRange.FormatConditions.Delete
‘ 条件を追加（xlCellValue: セルの値, xlGreaterEqual: 以上, 5000: 判定値）
Dim cf As FormatCondition
Set cf = targetRange.FormatConditions.Add(Type:=xlCellValue, Operator:=xlGreaterEqual, Formula1:=”5000”)
‘ 条件に合致した場合の書式を設定
With cf
.Interior.Color = RGB(255, 200, 200) ‘ 背景色を薄い赤に
.Font.Color = RGB(200, 0, 0) ‘ 文字色を濃い赤に
.Font.Bold = True ‘ 太字にする
End With
MsgBox “条件付き書式の設定が完了しました！”
End Sub
応用・注意点：現場で陥りやすいバグの回避策
1. Deleteメソッドを忘れない：ループ処理などで何度も実行する場合、Deleteを書かずにAddし続けると、条件が無限に蓄積されてExcelが重くなります。必ず最初にリセットする癖をつけましょう。
2. セル参照の柔軟性：今回の例では定数「5000」を直接指定しましたが、別のセル（例：B1セル）に入力された値を条件にしたい場合は、Formula1:=”=$B$1″ と記述してください。
3. 条件の優先順位：複数の条件を設定する場合は、Addした順にインデックスが振られます。優先順位を制御したい場合は、StopIfTrueプロパティを併用して「条件が真の場合に以降のルールを停止する」設定も活用してください。
実務では「条件付き書式」は視覚的なアラートとして非常に強力です。VBAで自動化して、効率的な業務環境を構築しましょう！
