Excel：在单元格单击上运行宏

当用户单击该行中的另一个单元格时，我使用以下代码将今天的日期插入到单元格中。

目前代码是这样设置的；如果用户单击单元格 AQ8，则将日期插入单元格 AS8。

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
    If Target.Address = "$AQ$8" Then
       Range("AS8").Value = DATE
    End If
End Sub

但是，现在我想稍微更改此代码，以便当用户更改任一行中的任何 AQ 单元格时，后续的 AS 单元格会将日期插入到该行的相应单元格中。因此，如果单击单元格 AQ9，则 AS9 显示今天的日期，当单击 AQ10 时，AS10 显示今天的日期，依此类推。这会被写成目标行函数吗？如果是这样我会怎么写这样的东西？有人可以告诉我如何让它做我需要的事情，提前致谢

如果您不想按数字引用列，即您想使用“AQ”而不是 43，则以下内容应该有效：

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Column = Range("AQ1").Column Then
    Range("AS" & Target.Row).Value = Date
  End If
End Sub

对第 1 行的引用AQ1是一个虚拟的，因为代码只是选择.Column那个范围的。

我在用着Worksheet_Change因为你说“当用户changes任何 AQ 细胞”。如果您只想在用户时发生这种情况clicks在一个细胞上，然后你可以继续使用Worksheet_SelectionChange event.