ExcelのVBAで「入力規則」で選択したセルに対して背景色をつけるには？

最近の書き込み件数：今日 0件、昨日 0件
未読分：2件

Excel VBAでIEを思いのままに操作できるプログラミング術 Excel 2013/2010/2007/2003対応

近田伸矢, 植木悠二, 上田寛

IEのデータ収集＆自動操作のプログラミング本はこの1冊だけ！IEの起動やポップアップウィンドウ、表示を制御する基本的なコードはもちろん、テキストボックスやラジオボタン、表、ハイパーリンクなどのHTML部品を制御する方法など、自動操作に欠かせないノウハウを丁寧に解説。

Message#2 2015年2月7日(土)10時20分
From: あいすらんづ

返事削除変更

条件付き書式設定で指定した文字になったら色かえるとかすればうまくいきそうもしますが、あえてVBAってことで書くとこんな感じですかね。
一応ご希望どおり、イベントプロシージャで対応してます。

Private Sub Worksheet_Change(ByVal Target As Range)
Dim er As Integer
On Error Resume Next
With Target
er = VarType(Target.Validation.AlertStyle)
If Err.Number = 0 Then
Select Case .Value
Case "A"
'色の変更
.Interior.Color = 5 'カラー色内容によって変更する
Case "B"
.Interior.Color = 5 'カラー色内容によって変更する
Case "C"
.Interior.Color = 5 'カラー色内容によって変更する
Case Else
.Interior.ColorIndex = XlColorIndex.xlColorIndexNone '色なし
End Select
End If
End With
On Error GoTo 0
End Sub

Message#1 2015年2月7日(土)05時58分
From: みらくるー

返事削除変更

ExcelのVBAで「入力規則」で選択したセルに対して背景色をつけるにはどうしたらいいでしょうか。

おそらくイベントプロシージャで対応するのだと思うのですが、そのセルのChangeが「入力規則」から選択されたものなのかという判断をどうVBAで記述したらよいか分かりません。

ただイベントプロシージャを利用すると修正するたびに処理が走る形になります。
業務に支障がでてしまうと問題ですが、そこまで気にしないのであればイベントプロシージャでも問題ありません。

もし支障がある場合は、他になにか方法はあるでしょうか？

教えてください。