Worksheet_Change 有限？ループする

質問

これって1回だけ発生させるのは無理なのですか？
Ａ列のどこかの行の値が変更されたなら、イベントを発生させたいのですが

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Column = 1 Then

Debug.Print i
i = i + 1
Target.Value = "aaa"
End If

End Sub

これで見ると、１９９回コードが実行されてます。
イミディエイトウインドウに199まで記載されます。

Ａ列の値が変更されるたびにイベントが発生しているのですが
199回も発生しなくてよいから1回だけ発生させるにはどうすればいいでしょうか？

実際は、
Target.Value = "aaa"
の下にもコードが続いてるので、
Target.Value = "aaa"が入力されてもイベントが発生せず、
コードを続きから実行させる方法が知りたいです。

回答No.1

keithin · ベストアンサー

方法１）

application.enableevents = false
Target.Value = "aaa"
application.enableevents = true

方法２）
＞Target.Value = "aaa"が入力されてもイベントが発生せず、

アナタが実際にヤリタイ事に応じて、「どういう状況下で『アナタのヤリタイ事』を実行したいのか／どうなら実行したくないのか」ロジックで考えます。

private sub worksheet_change(byval Target as excel.range)
　if target.count > 1 then exit sub
　if target.column <> 1 then exit sub
　if target.value = "aaa" then exit sub
　target.value = "aaa"
end sub

お礼

ありがとうございます。