HOME>TOP>アプリケーション

イベントの発生をコントロールするには？

キーワード>>EnableEvents 

Point ：チェンジイベントの中にシートの内容を変更する処理があって、またチェンジイベントが呼ばれてしまって無限ループになってしまう。

Private Sub Worksheet_Change(ByVal Target As Range)

On Error GoTo Trap

    Application.EnableEvents = False
    'ここに処理を書く
     GoTo ExitPoint

Trap:
   'エラーが出たときのエラーメッセージなど
ExitPoint:
Application.EnableEvents = True

End Sub

掲載サンプルコードの使用に関して、直接・間接
を問わず生じた一切の損害について如何なる責任も負いません。