条件付き書式によって着色されたセルを、VBAによって上書きする形で着色できるのか

Question

知りたいこと

条件付き書式のルールによって空白時に着色されたセルを、
VBAによって上書きする形で着色させることができるのでしょうか。

###コード/試したこと

まず、条件付き書式によって、
入力必須という意味を込めて、
A1:A3のセルが空白だった場合にピンクで着色させるルールを追加しました。

その後、下記コードを書いてみました。
A1,A2,A3のセルが空白だった場合に、
それぞれのセルの、注意メッセージ出力と赤で着色させる処理です。

※A1,A2,A3のセルは左から優先順位が高く、
A1が空白だった場合にはA2,A3の処理は行われません。

Sub SelectCell()
   Call EmptyCheck(Range("A1"))
   Call EmptyCheck(Range("A2"))
   Call EmptyCheck(Range("A3"))
End Sub

Function EmptyCheck(cell)
   If cell = "" Then
      Dim Address As String
      Address = cell.Address
      MsgBox (Address + "が空欄です")
      
      '着色処理
      cell.Interior.ColorIndex = 3

      End
   
   Else
      cell.Interior.ColorIndex = 0

   End If
End Function

---

結果、VBAの着色処理の赤いセルが現れることはありませんでした。
これは条件付き書式のルールが、VBAよりも優先されているということなのでしょうが、
VBAの処理を優先させることは可能なのでしょうか。

ご回答お待ちしております。

Comments

[hatena19]

EmptyCheck のコードも提示してください。

[mami99]

申し訳ございません。
追記しました。

Answer 1

これは条件付き書式のルールが、VBAよりも優先されているということなのでしょうが、

VBAの処理を優先させることは可能なのでしょうか。

VBAでどのような設定をしているか次第です。
背景色(Interior.Color)を設定しているなら、条件付き書式が優先されますので変更されません。
VBAで条件付き書式(FormatConditions)を設定すれば変更できます。

条件付き書式で空白の背景色を変更してあるのに、さらに背景色を変更するのは何のためか、その目的？
また、変更する条件、タイミングは？
変更した後、元に戻す必要もあるが、そのタイミングと条件は？
上記の点が不明確なので、これ以上の具体的な回答は難しいです。

条件によっては、VBAで背景色を変更するなら、条件付き書式は使わずにWorksheet_ChangeイベントでInterior.Colorを設定するほうがシンプルになる場合もありそうです。

Comments

[mami99]

前提条件が不明確で申し訳ありません。
実装したいというよりは、
変えることができるのかなという純粋な疑問で質問させていただいたからだと思います。
条件付き書式の方が、Interior.Colorよりも優先されるということを知ることができただけでも収穫でした。
ありがとうございました。