Q>ExcelVBAで特定のサブルーチンを無効にするには？

質問

Excel2000であるシートに　Worksheet_Change のサブルーチン(A)を入れて更新されると起動するようにしています。(A)は特定の列(B)にデータが入ったときに行なう処理を記載しています。

この状態でそのシートの列(C)のセルを順番に更新するようなマクロ(D)を作ったのですが、１つのセルの更新ごとに(A)が起動してしまうので処理が遅くなってしまいます。

１．(D)の処理中は(A)を起動させたくないので、(D)の初めに(A)を無効にする処理を入れたいのですが、そんなコマンドはあるのでしょうか？

２．または、(A)の処理を　Worksheet_Changeで実現するのではなく、特定の列(B)のセルが更新されたときのみに行なうようにする方法はないでしょうか？

ご存知の方がいましたら、よろしくお願いします。m(_ _)m

回答No.1

ki-aaa · ベストアンサー

イベントを停止する方法。

Application.EnableEvents = False

Application.EnableEvents = True

必ず、二つセットで使用してください。
そうしないと、次から、Worksheet_Change などのイベントが起動しなくなります。

お礼

できました。ありがとうございます。全てのイベントを停止してしまえば大丈夫ですね。（これで問題ないのですが、参考までに）個別のイベント毎に指定する方法もあるのでしょうか？

回答No.3

ki-aaa

>個別のイベント毎に指定する方法もあるのでしょうか

私の知る限りでは、無いと思います。

でも、あるという回答があって、恥をかくかも!!!

お礼

わかりました。
どうもありがとうございました。

回答No.2

papayuka

２に関して、Worksheet_Changeにどのように記述していますか？

Private Sub Worksheet_Change(ByVal Target As Range)
Dim r As Range
　For Each r In Target
　　If r.Column = 2 Then
　　　 MsgBox r.Address '処理
　　End If
　Next
End Sub

データの変更量などにもよると思いますが、こんな感じでもそれ程遅いとは思いませんけど。

お礼

回答ありがとうございます。
Worksheet_Cange の中身は、こんな感じです。

i = Target.Cells.Row
j = Target.Cells.Column

If j = 2 Then
Data1 = Cells(i, j).Value
（中略）
Cells(i, j + 1).Value = Data2
End If

でもマクロ(D)の方では正確には列(C)だけでなく12個の列×50行くらいのセルを更新するので600回くらいWorksheet_Changeが起動してしまうので遅くなっています。