エクセルマクロについての質問です。

質問

エクセルマクロについての質問です。
　excel2003 os=WindowsXP の環境で、下記のような条件のシートを作りたい。
　１．セルの一部にデータの入力規則を "データ→入力規則" で１から９９９までしか入力できない様に設定している。
　２．セルの入力が下記条件以外は色を付ける。
　　１）数字の変更がなかった場合
　　２）未記入欄に空白を入力した場合

　２についてVBAでプログラミングしてみたのですが入力規則違反があった場合にUNDOのところで"UNDOメソッドは失敗しました。"
　のエラーになってしまいます。
　解決策がわからず困っています。ご教授頂ければ助かります。プログラムの一部は下記です。　　

icolcnt = Selection.Columns.Count
irowcnt = Selection.Rows.Count

icolalf = ActiveCell.Column
If icolcnt = 1 And irowcnt = 1 And icolalf = 5　Then

　 f_target = False
n_target = Target
Application.EnableEvents = False
Application.Undo
o_target = Target
If Trim(o_target) = "" And Trim(n_target) = "" Or Trim(o_target) = Trim(n_target) Then
Debug.Print "n_target = ", n_target, o_target
f_target = False
Else
Target.Value = n_target
f_target = True
End If
' Debug.Print "n_target = ", n_target, o_target
Application.EnableEvents = True

If f_target = True Then
t_target.Interior.ColorIndex = xlNone
For Each crng In t_target
With crng
With .Interior
.ColorIndex = 8
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With
End With
Next
End If

End If

回答No.3

mt2008 · ベストアンサー

補足への回答

> E10：E57とI10：I60の数値が変更になった時に色を付けるので
> 取敢えずテストでE列だけ処理を行うようにしてたのですが
> 方法を変えないといけないのですね。

ActiveCellの列を見ているから駄目なだけです。
以下の様に変数「icolalf」にTargetの列を入れればカーソル移動で確定しても大丈夫だと思います。

icolalf = ActiveCell.Column
↓
icolalf = Target.Column

お礼

mt2008様
ありがとございます。
ご教授頂いた修正をし思った動きになりました。

回答No.2

mt2008

コードの途中に出てくる　t_target はTargetの間違いか、提示漏れでしょうか。
そう仮定して回答します。

通常、セルに値を入れた後、ActiveCellが移動するので、TargetとActiveCellのアドレスは異なりますが、入力規則に引っかかった場合、ActiveCellが移動しないためアドレスが一緒になりますからそこを利用しては？
具体的には

If icolcnt = 1 And irowcnt = 1 And icolalf = 5 Then
↓
If icolcnt = 1 And irowcnt = 1 And icolalf = 5 And (Target.Address <> ActiveCell.Address) Then

ところで、入力した後のActiveCellがE列で無い場合処理を行わないようになっていますが、セルに値を入れた後、Enterではなくカーソルで左右に移動して確定した場合も処理が行われませんがよろしいんですか？

お礼

お礼が後になってしまい申し訳ありません。
コーディング方法から不具合の指摘までありがとうございます。

補足

mt2008様
ありがとうございます。確かにカーソル移動の場合に処理が行われません。
Enterキーでの移動しか考えていませんでした。
E10：E57とI10：I60の数値が変更になった時に色を付けるので
取敢えずテストでE列だけ処理を行うようにしてたのですが
方法を変えないといけないのですね。

回答No.1

mt2008

補足願います。
これはどういうイベントとして書いた物ですか。
Worksheet_Changeイベント？

お礼

ｍｔ2008様
ありがとうございます。
ご教授頂いた内容で動きました。

補足

ｍｔ2008様
Worksheet_Changeイベントに記述しています。