Excel VBA – 将date戳记添加到每个其他列或行

基本上它很简单（我想），但我似乎无法得到它！

本质上，我正在build立一个跟踪器，每当一个单元格被修改，我需要一个date戳。 我可以放入代码，所以当列b中的任何内容被修改为在列C中放置一个date，但是我不能重复列D中的数据在列E中inputdate。

基本上我会想在每一个其他列date戳。 如果更容易成为其他所有行，那么我只需要改变标题。

如果它的行必须从放入第2行（标题）的数据开始，如果它的列数据从列B（标题再次）input。

谁能帮忙？ 我看了网上，但似乎无法find答案…

Answer 1

检查这个基于事件的macros：

 Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column Mod 2 = 0 Then Application.EnableEvents = False Target.Offset(0,1) = Date Application.EnableEvents = True End If End Sub 

Answer 2

使用Worksheet_Change -Event（ 这里是特定单元格的另一个很好的例子）。

根据你的需求你做这样的事情：

 Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False Cells(1, Target.Column + 1).Value = Format(Now(), "dd.mm.yyyy") Application.EnableEvents = True End Sub 

在插入任何值之前，设置.EnableEvents = False非常重要，否则会再次触发事件。