|
▼久保一美 さん:
こんにちは。
>マクロを利用してシート1とシート2の3行目に行を挿入した時一時的にchangeイベントを無効にする方法を教えて下さい。
きちんと検証はしていませんが・・・。
当該シートモジュールに
'=========================================================
Option Explicit
Const 挿入無効 = "$3:$3"
Private rng As Range
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = 挿入無効 And Target.Address <> rng.Address Then
MsgBox "無効にする"
Call set_rng
End If
End Sub
'=========================================================
Sub set_rng()
Set rng = Range(挿入無効)
End Sub
但し、最初に一度 set_rngを実行した後に試してみてください。
これで良いようなら、set_rngをどのタイミングで実行させるかがポイントです。
もっともこういう変数の取り方は、ともすれば、変数が初期化されてしまう場合も
ありますが・・・。
|
|