当单元格自动更新数据时，日期不会自动填充，但当我更改数据时，它工作得很好

Question

Private Sub Worksheet Change (ByVal Target As Range)
Dim MyDataRng Às Range
Set MyDataRng = Range ("A2:A10")
If Intersect (Target, MyDataRng) Is Tawning Then Exit sub
On Error Resume Next
If Target.Offset (0, 1)
• Then
Target.Offset (0, 1) = Now
End If
Target.Offset (0, 2) = Now

我试图让自动填写日期和时间到我的工作表。当我在添加的列中输入任何东西时，它工作得很好。但是当工作表自动从其他链接的工作表填充时，它不会更新。我必须手动输入。为什么?

Answer 1

IMHO，如果您将具体范围设置为Set MyDataRng = Range ("A2:A10")为什么要用"偏移"呢?功能，除了设置值，你需要在具体单元格B列?

Dim a As Long
a=Target.Row
Cells(a,2)= Now

或so

Cells(Target.Row,2)= Now

Offset用于动态源范围。当你有确切的目标范围时，你可以从Target

写一个偏移地址