如何自动更新并记录所修改行时的时间？

问：有一个工作表，在每一行后面都有一个时间。想要在修改某一行时，自动更新该行后面的时间，以记录该行最后是何时更改的，但对于没有更新的行，时间不变。

答：

可以使用工作表事件来完成。示例代码如下：

说明：

• 示例是以工作表Sheet1中的数据为例的，因此代码放在工作表Sheet1的模块中，可以根据你的工作表调整代码位置。

• 使用工作表的Change事件，当工作表单元格内容发生改变量，事件发生响应。

• 代码使用语句Target.Row <= 3限制只对工作表前3行有效，你可以根据数据所在的行数作出相应的更改。

• 代码使用IsDate函数判断每行最后一个单元格中是否是日期时间，若不是，则向右移一个单元格，以便在此单元格中输入时间。换句话说，在一行末尾放置时间。

最终的效果演示见下面的视频：