|
こんばんは。
エラー処理まで真剣に考えてませんでしたが、
実際には当然必要ですよね!!
私は、面倒な場合は即 On Errorですけどね・・。
ということで、書き直しました。
'======================================
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Dim crng As Range
For Each crng In Application.Intersect(Target, Range(Cells(1, 1), Cells(50, 1)))
With crng
.Interior.ColorIndex = Val(.Value) 'セル色を入力した値とする
End With
Next
On Error GoTo 0
End Sub
これ要点は、処理をするセル範囲(A1〜A50)にデータが入力されたら
その範囲だけ処理をするというところだったんですが・・。
尚、ご指摘よりApplication.EnableEventsは、削除しましたが、
実際には私はChangeイべントでは付けておく事が多いです。
(付けておいても影響は余りないですが、つけ忘れてセルに値を入れるコードを
追加したりするとすぐ影響がでるので・・)。
|
|