vba - 将修复单元格引用更改为动态引用

Question

自从我编写 VBA 代码以来已经有好几年了，所以大部分能力都在那里，但非常尘土飞扬。我设法创建了以下代码。

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Column = Range("Resource").Column Then
  Target.Offset(0, 1).Value = Date
End If

End Sub

这非常有用，因为我们希望在第一列发生变化时影响第二列。这有点限制，所以我的问题是双重的。

如何引用 Target 行上的单元格，但在名为“Hazaa”的列中？

不编码可以实现吗？ (例如，当 Ax 发生变化时，在 Bx 中设置日期。)

Answer 1

1 - 这是一个例子:

Private Sub Worksheet_Change(ByVal Target As Range)
    MsgBox ActiveSheet.Cells(Target.Row, Range("Hazaa").Column).Value
End Sub

2 - 如果我理解正确，你也许可以使用这个公式而不需要 VBA。

=IF(AX1=BX1,TEXT(NOW(),"dd/mm/yyyy"),"")