別のセルの値が変更された場合、セルに関数を挿入する

Question

Private Sub Assumption1Change(ByVal Target As Range) 
    Application.EnableEvents = False 
    On Error GoTo ErrHandler 

    If Target.Text = "D10" Then 
    Range("B10").Formula = "=Now()" 
    Else 
    End If 

    Applicatoin.EnableEvents = True 
End Sub 

私はそれを動作させることはできませんが、別のセルの値が変更された場合、上記のコードを使用して関数をセルに挿入します。誰かが私を正しい方向に向けることができますか？

Answer 1

だけであなたはそれが仕事をしたいあなたは正しいワークシートにそれを置くことを確認し、以下のコードを試してみてください。

Private Sub Worksheet_Change(ByVal Target As Range) 

    Application.EnableEvents = False 

    If Not Intersect(Range("D10"), Target) Is Nothing Then 
     Target.Offset(, -2).Formula = "=Now()" '<-- place the formula 2 columns to the left of the cell you just modified 
    End If 

    Application.EnableEvents = True ' <-- restore original setting 

End Sub