'******************************************************************************
'*                             イベント駆動関数                               *
'******************************************************************************
' 全てのシートにこの関数を添付すること。
'
'コンフィギュレーション識別番号：Evt-Ver2.0
'  配布用に変更記録削除
'　2018/11/27　　原作者
'
' Worksheet_BeforeDoubleClick：セルのダブルクリック時に、セル行列番号が伝達される。
' Worksheet_SelectionChange  ：セルの選択変更（クリックorドラッグ）時に、セル行列番号及び範囲が伝達される。
' Worksheet_Calculate        ：シート上で関数実行イベントの発生が通知される。

Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

    Dim L As Boolean
    Application.Calculation = xlCalculationAutomatic
    L = SelectTargetRange(Target)

End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    Dim L As Boolean
    Application.Calculation = xlCalculationAutomatic
    L = SelectTargetRange(Target)

End Sub
Private Sub Worksheet_Calculate()

    Application.Calculation = xlCalculationManual
    Application.EnableEvents = False
    Call Interpreter
    Application.Calculation = xlCalculationAutomatic
    Application.EnableEvents = True
    DoEvents

End Sub