'******************************************************************************
'*                             Cxg쓮֐                               *
'******************************************************************************
' SẴV[gɂ̊֐Yt邱ƁB
'
'RtBM[VʔԍFEvt-Ver2.0
'  zzpɕύXL^폜
'@2018/11/27@@
'
' Worksheet_BeforeDoubleClickFZ̃_uNbNɁAZsԍ`BB
' Worksheet_SelectionChange  FZ̑IύXiNbNorhbOjɁAZsԍyє͈͂`BB
' Worksheet_Calculate        FV[gŊ֐sCxg̔ʒmB

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