excel 当单元格自动更新数据时,日期不会自动填充,但当我手动更改数据时,它工作正常

k4emjkb1  于 2022-12-01  发布在  其他
关注(0)|答案(1)|浏览(151)
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

我尝试在工作表中自动填充日期和时间。当我在添加的列中输入任何内容时,它都能正常工作。但是当工作表从其他链接的工作表自动填充时,它不能更新。我必须手动输入它。为什么?

n6lpvg4x

n6lpvg4x1#

恕我直言,如果你设置了Set MyDataRng = Range ("A2:A10")这样的具体范围,除了在具体单元格中设置B列所需的值外,为什么还要使用“偏移”功能?

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

或者仅仅如此

Cells(Target.Row,2)= Now

当你有动态源范围时使用偏移量。当你有精确的目标范围时,你可以从目标写入一个偏移量地址

相关问题