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
我尝试在工作表中自动填充日期和时间。当我在添加的列中输入任何内容时,它都能正常工作。但是当工作表从其他链接的工作表自动填充时,它不能更新。我必须手动输入它。为什么?
1条答案
按热度按时间n6lpvg4x1#
恕我直言,如果你设置了
Set MyDataRng = Range ("A2:A10")
这样的具体范围,除了在具体单元格中设置B列所需的值外,为什么还要使用“偏移”功能?或者仅仅如此
当你有动态源范围时使用偏移量。当你有精确的目标范围时,你可以从目标写入一个偏移量地址