存储在单个单元格中的范围的最后更新date

所以我有这个excel工作表,在那里我有一个范围A2:A3,我想知道如果我可以存储上一次的具体范围的更新到一个单元格让我们说在B1? 我真的在VBA世界知道。 会真的很感激任何帮助:)

  • 右键单击您的工作表标签
  • 查看代码
  • 复制并粘贴在下面的代码
  • alt f11回到Excel

code

 Private Sub Worksheet_Change(ByVal Target As Range) Dim rng1 As Range Set rng1 = Intersect([a2:a3], Target) If rng1 Is Nothing Then Exit Sub Application.EnableEvents = False [b1] = Format(Now(), "dd-mm-yyyy hh:mm:ss") Application.EnableEvents = True End Sub