单元格更改时如何自动记录日期和时间？

您所在的位置：网站首页 › excel最后修改日期 › 单元格更改时如何自动记录日期和时间？

单元格更改时如何自动记录日期和时间？

2024-07-09 11:27| 来源: 网络整理| 查看: 265

单元格更改时如何自动记录日期和时间？作者：晓阳最后修改时间：2014-08-06

对于我们来说，手动插入静态日期和时间很容易，也可以通过公式插入随系统时间变化的动态日期。如果要在更改或输入值时自动记录日期和时间，此问题可能会有所不同。但是，在本文中，您可以通过以下步骤解决此任务。

使用VBA代码更改单元格时自动记录日期和时间

惊人的！在 Excel 中使用高效的选项卡，如 Chrome、Edge、Firefox 和 Safari！每天节省50％的时间，并减少数千次鼠标单击！

例如，我有一个值范围，现在，当我在B列中更改或键入新值时，我希望在那里将在C列中自动记录当前日期和时间，如以下屏幕截图所示：

文档更新时间值更改 1

您可以使用以下VBA代码完成此任务。请这样做：

1。按住 ALT + F11 键打开 Microsoft Visual Basic for Applications窗口。

2。然后从左侧选择您使用的工作表项目浏览器，双击以打开模块，然后将以下VBA代码复制并粘贴到空白模块中：

VBA代码：单元格更改时自动记录日期和时间

Private Sub Worksheet_Change(ByVal Target As Range) 'Update 20140722 Dim WorkRng As Range Dim Rng As Range Dim xOffsetColumn As Integer Set WorkRng = Intersect(Application.ActiveSheet.Range("B:B"), Target) xOffsetColumn = 1 If Not WorkRng Is Nothing Then Application.EnableEvents = False For Each Rng In WorkRng If Not VBA.IsEmpty(Rng.Value) Then Rng.Offset(0, xOffsetColumn).Value = Now Rng.Offset(0, xOffsetColumn).NumberFormat = "dd-mm-yyyy, hh:mm:ss" Else Rng.Offset(0, xOffsetColumn).ClearContents End If Next Application.EnableEvents = True End If End Sub

文档更新时间值更改 1

3. 然后保存并关闭此代码以返回到工作表，现在，当您更改单元格值或在B列中键入新数据时，日期和时间将自动记录在C列中。

笔记：

1.在以上代码中，您可以修改“B：B”更改为您要在此脚本中更改单元格值的任何其他列：设置WorkRng = Intersect（Application.ActiveSheet.Range（“ B：B”），目标）.

2.与此 x 偏移列 = 1 脚本中，您可以将日期和时间插入并更新到更改值列旁边的第一列，可以将数字1更改为其他数字，例如2,3,4,5…，这意味着日期将被插入第二，第三，第四或第五列，以及更改后的值列。

3.在更改的列中删除值时，日期和时间也将被删除。

使用 Kutools for Excel 增强您的 Excel 技能，体验前所未有的效率。 Kutools for Excel 提供了 300 多种高级功能来提高生产力并节省时间。单击此处获取您最需要的功能...

阅读更多免费下载... Office Tab 为 Office 带来选项卡式界面，让您的工作更加轻松在Word，Excel，PowerPoint中启用选项卡式编辑和阅读，发布者，Access，Visio和Project。在同一窗口的新选项卡中而不是在新窗口中打开并创建多个文档。每天将您的工作效率提高50％，并减少数百次鼠标单击！ Excel 的屏幕截图（安装了 Office Tab）

阅读更多免费下载...

【本文地址】

单元格更改时如何自动记录日期和时间？

单元格更改时如何自动记录日期和时间？

今日新闻

推荐新闻