excel - 列中的修改时间

Question

我有一个更新列中修改时间的代码。如果我手动更改单元格而不是刷新，它会起作用。

Private Sub Worksheet_Change(ByVal Target As Range)
Dim xCellColumn As Integer
Dim xTimeColumn As Integer
Dim xRow, xCol As Integer
Dim xDPRg, xRg As Range
xCellColumn = 3
xTimeColumn = 9
xRow = Target.Row
xCol = Target.Column
If Target.Text <> "" Then
  If xCol = xCellColumn Then
     Cells(xRow, xTimeColumn) = Now()
  Else
      On Error Resume Next
      Set xDPRg = Target.Dependents
      For Each xRg In xDPRg
          If xRg.Column = xCellColumn Then
              Cells(xRg.Row, xTimeColumn) = Now()
          End If
      Next
  End If
End If
End Sub

标签： excelvbatimestamp