如果另一个单元格更改值，则将函数插入单元格

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