EXCEL VBA　セルの条件付き書式の設定・（書式・文字色・背景色・入力条件により処理操作・条件に合うセル）

下記のサンプルプログラムは、条件付き書式の設定を追加するプログラムです。ワークシートのB列にデータ件数に応じて追加します。データ件数の変更にも対応するために、B列に設定している条件付き書式を削除して、条件付き書式を追加設定を行います。それでは、サンプルプログラムを交えて順番に説明いたします。

【プログラムの流れ】

①　ワークシート上のB列の最終行を取得します。
②　これから条件付き書式設定を行うセルに対して、条件付き書式が設定されているか調べます（０を超える場合は設定済み）
③　条件付き書式が設定されている場合は、設定カウント数が１以上となるので、設定する前に、設定範囲の条件付き書式設定を削除します。
④　1件目の条件付き書式を設定します。設定範囲のB列の金額が10000以上の場合は、背景色が水色に塗りつぶします。
⑤　2件目の条件付き書式を設定します。設定範囲のB列の金額が10000未満の場合は、背景色がオレンジ色に塗りつぶします。

下記のサンプルプログラムは、セルに登録されている条件付き書式設定（値・背景色・条件）通りに、条件付き書式設定として設定するサンプルプログラムです。何度も繰り返しても設定出来る様になっていますので、条件付き書式設定を頻繁に変更する際は、とても便利だと思います。それでは、サンプルプログラムを交えて順番に説明いたします。

●Operator・・・条件付き書式の演算子をXlFormatConditionOpertorクラスの定数で設定します。※省略可能　（下記参照）

【条件付き書式設定】セルG列～I列
①　　セル範囲（B2～C12）内のセルの値が2,500,000以上の値のセルに背景色（40）で塗りつぶします。
②　　セル範囲（B2～C12）内のセルの値が１,500,000と等しい値のセルに背景色（39）で塗りつぶします。
③　　セル範囲（B2～C12）内のセルの値が500,000以下の値のセルに背景色（38）で塗りつぶします。

【プログラムの流れ】
①　ワークシート上の条件付き書式設定を全てクリアーします。
②　B列の最終行を取得します。（条件付き書式設定が設定する部分の範囲取得）
③　G列の最終行を取得します。（条件付き書式設定を設定する参照データの範囲取得）
④　G列に設定されている条件付き書式設定の件数分を繰り返します。
⑤　条件付き書式設定の値・背景色・条件をセルに登録されているデータより取得します。
⑥　取得した⑤データにより、条件付き書式設定を行います。（追加登録）
⑦　G列に登録されている件数分の条件付き書式設定を行います。④へ

★【サンプルプログラム】
下記のリンク先よりサンプルプログラムをダウンロードする事ができます。
●　conditional_formatting _sumple

FomatConditionsコレクションModifyメゾットを使う事で条件付き書式の編集・修正・訂正を行う事が出来ます。
下記のサンプルプログラムでは、条件付き書式の設定が既に設定されている設定内容を変更又は修正を行う事ができます。それでは、サンプルプログラムを交えて順番に説明いたします。

【ルールの編集】・・・FomatConditionsコレクションModifyメゾットで条件付き書式の編集を行う事が出来ます。

●【FomatConditionsコレクションModifyメゾット】

●　オブジェクト.Modify(type[,Operator,Formula1,Formula2])

●Type・・・条件付き書式の種類をXlFormatConditionTypeクラスの定数を設定します。（下記参照）

●Operator・・・条件付き書式の演算子をXlFormatConditionOpertorクラスの定数で設定します。※省略可能　（下記参照）

●Fomula1・・・条件となる値を設定します。セル参照・文字列・数値・数値を使って設定できます。※省略可能

●Fomula2・・・引数のOperatorがxlBetweenまたは、xlNotBetweenの時に2つ目の条件となる値を設定します。※省略可能

●条件付き書式の設定変更については、FomatConditionsコレクションModifyメゾットで条件付き書式を編集・訂正・修正などを行う事が出来ますが、同じセルに複数の条件付き書式の設定がされている場合は、上図の左側のFormatConditions(番号)を指定する事で、条件付き書式を編集する事が出来ます。

【使用例①】
●条件付き書式設定を設定して、設定した条件付き書式設定を変更します。

'
'
Sub 条件書式の設定変更01() '既に設定されている条件付き書式を変更します。
    
    Cells.FormatConditions.Delete 'ワークシート上の条件付き書式をクリアーします。
    
    '設定
    
    Range("B2:D12").FormatConditions.Add(Type:=xlCellValue, Operator:=xlGreaterEqual, Formula1:=25000).Interior.ColorIndex = 33
    'セル範囲（B2～D12）のセルの値が25,000以上の場合は、背景色を水色に塗りつぶします。
      
    MsgBox "条件書式設定変更します"
    
    '変更
    
    Range("B2:D12").FormatConditions(1).Modify Type:=xlCellValue, Operator:=xlBetween, Formula1:=5000, Formula2:=15000
    'セル範囲（B2～D12）のセルの値が5000～15000の範囲内は、背景色を塗りつぶします。

End Sub
'

下記のサンプルプログラムは、条件付き書式設定で設定したセル範囲を再設定するModifyAppliesToRangeメゾットの利用方法を説明いたします。行や列を追加・削除して設定範囲を再設定する時に使用します。それでは、サンプルプログラムを交えて順番に説明いたします。

●【FomatConditionsコレクションModifyAppliesToRangeメゾット】

●　オブジェクト.ModifyAppliesToRange(Range)
【処理の流れ】

【条件付き書式のセル範囲】

【プログラムの流れ】
①　A列の最終行を取得します。（データの最終行）
②　条件付き書式の設定数を把握します。（設定数）
③　条件付き書式の設定分、繰り返します。
④　条件付き書式のセル範囲を再設定します。
⑤　③へ繰り返します。設定分全て終わるまで

【プログラム実行条件】
・事前に条件付き書式の設定を行う。
・データ範囲は、A列～D列まで登録する。

下記のサンプルプログラムは、セルの条件付き書式を削除（解除）する方法を説明します。条件付き書式を削除には、FormatCondition.Deleteメゾットを利用します。それでは、順番に説明いたします。

●【FormatCondition.Deleteメゾット】

●　オブジェクト.FormatCondition.Delete

①　条件付き書式の設定の削除例（セルB2～B10）に設定された条件付き書式設定が削除されます。

'
'

Sub FormatConditions_del00() 'FormatConditionsDeleteメゾットの使用例

    Range("B2:B10").FormatConditions.Delete

End Sub
'

②　条件付き書式の設定の削除例、指定した条件付き書式設定のみ削除　（2番目の条件付き書式を削除）

'
'
Sub FormatConditions_de02() 'FormatConditionsDeleteメゾットの使用例（2番目の条件付き書式を削除）

    Range("B2:D12").FormatConditions(2).Delete
    
End Sub
'

③　条件付き書式の設定の削除例、ワークシート上の全ての条件付き書式が削除

'
'
Sub FormatConditions_del03() 'FormatConditionsDeleteメゾットの使用例(シート上の全ての条件付き書式の設定をクリアー)
    Cells.FormatConditions.Delete

End Sub
'

下記のサンプルプログラムは、セルの条件付き書式を削除するサンプルプログラムです。ブック内の全体の条件付き書式設定を全て削除します。