Excel：在單元格上運行宏

Question

當用戶單擊該行中的另一個單元格時，我正在使用以下代碼將今天的日期插入到該單元格中。

目前，代碼是這樣列出的； 如果用戶單擊單元格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顯示今天的日期，依此類推。 會將其寫為目標行函數嗎？ 如果可以的話，我該怎么寫這樣的東西？ 有人可以請告訴我如何讓我做這個我需要做的事

Answer 1

如果您不想按數字引用列，即您想使用“ 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

對AQ1第1行的引用是一個虛擬對象，因為代碼只是選擇該范圍的.Column 。

我使用Worksheet_Change是因為您說“當用戶更改任何AQ單元時” 。 如果只希望在用戶單擊單元格時發生這種情況，則可以繼續使用Worksheet_SelectionChange事件。

Answer 2

像這樣更新：

If Target.Column = 43 Then
   Range("AS" & Target.Row).Value = Date
End If

AQ = 43列中的每一行都會更新日期。