指定された範囲が計算されるときにのみWorksheet_Calculate（）を実行するように制限する方法

Question

これは一般的な質問ですので、これは前に尋ねられていることを確認してください。ワークシートの範囲を持つExcelで

は、B6を言う：すべての計算結果は、私がWorksheet_Calculate（）サブルーチンで問題を抱えていているF12は

私の問題はworksheet_calculateのためのこの非常に一般的なコードであることですサブルーチン

Private Sub Worksheet_Calculate() 
    Dim aCell as Range 
    Dim aRange as Range 
    Set aRange = Range(B6:B12) 
    For Each aCell in aRange 
      SomeFunction(aCell) 
    Next 
End Sub 

範囲C6で起こる任意の計算：F12が発生するaRangeとSomeFunction（aCell）に不要な呼び出しを通じて反復を引き起こします。

B6：B12の範囲で計算が実行されている場合のみ、このシナリオを実行できますか？

Answer 1

あなたFORループを開始する前にこれを追加します。

If Not Application.Intersect(ActiveCell, aRange) Is Nothing Then 

をこれだけFORループの引き金となるでしょう、あなたが与えられた範囲

EDIT
にある場合、私は以下のようなコードを設定していますそれは私のために働くようです：

Private Sub Worksheet_Calculate() 
    Dim oWS As Worksheet: Set oWS = ThisWorkbook.Worksheets("Sheet8") 
    Dim aRange As Range: Set aRange = oWS.Range("F6:F10") 
    If ActiveSheet.Name = oWS.Name Then 
     If Not Application.Intersect(ActiveCell, aRange) Is Nothing Then 
      MsgBox "In range" 
     End If 
    End If 
End Sub