[英]Excel create date stamp when an cell is updated
我有一张 Excel 表,在 N 列中有一个“上次更新”字段。每当 H 列中该行的状态发生更改时,我都需要将其自动更新到今天的日期。
任何人都可以帮助解决一个简单的解决方案吗?
先感谢您! 克里斯
在工作表代码区域中包含以下事件宏:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range, r As Range, H As Range
Set H = Range("H:H")
Set rng = Intersect(H, Target)
If rng Is Nothing Then Exit Sub
Application.EnableEvents = False
For Each r In rng
Cells(r.Row, "N").Value = Date
Next r
Application.EnableEvents = True
End Sub
因为是工作表代码,所以很容易安装,自动使用:
如果您有任何疑虑,请先在试用工作表上尝试。
如果您保存工作簿,宏将与它一起保存。 如果您使用的是 2003 年以后的 Excel 版本,则必须将文件另存为 .xlsm 而不是 .xlsx
要删除宏:
要了解有关一般宏的更多信息,请参阅:
http://www.mvps.org/dmcritchie/excel/getstarted.htm
和
http://msdn.microsoft.com/en-us/library/ee814735(v=office.14).aspx
要了解有关事件宏(工作表代码)的更多信息,请参阅:
http://www.mvps.org/dmcritchie/excel/event.htm
必须启用宏才能使其工作!
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.