体验零代码搭建

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

网友投稿  ·  2023-11-01 12:11  ·  产品资讯  ·  阅读 1366

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

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

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

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

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

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

使用VBA代码更改单元格时自动记录日期和时间
惊人的! 在 Excel 中使用高效的选项卡,如 Chrome、Firefox 和 Safari! 每天节省50%的时间,并减少数千次鼠标单击!

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

您可以使用以下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
Copy

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 - 您终极的节省时间的工具。 简化复杂的任务并像专业人士一样浏览数据。 以闪电般的速度体验 Excel!

为什么需要 Kutools for Excel

🛠️  超过 300 项强大功能: Kutools 包含 300 多项高级功能,可简化您在 1500 多种场景中的工作。

📈  卓越的数据处理能力:合并单元格、删除重复项并执行高级数据转换 - 所有这些都不费吹灰之力!

⏱️  高效的批量操作:当你可以聪明地工作时,为什么还要付出额外的努力呢? 轻松批量导入、导出、组合和调整数据。

📊  可定制的图表和报告:访问各种附加图表并生成富有洞察力的报告。

🗄️  强大的导航窗格:通过强大的列管理器、工作表管理器和自定义收藏夹获得优势。

📝  七种类型的下拉列表:通过各种功能和类型的下拉列表使数据输入变得轻而易举。

🎓  用户友好:对于初学者来说轻而易举,对于专家来说是一个强大的工具。

***

*** *** *** 
Office Tab 为 Office 带来选项卡式界面,让您的工作更轻松
在Word,Excel,PowerPoint中启用选项卡式编辑和阅读,发布者,Access,Visio和Project。 在同一窗口的新选项卡中而不是在新窗口中打开并创建多个文档。 每天将您的工作效率提高50%,并减少数百次鼠标单击!
*** *** *** 


excel表格中默认的分页预览如何改成普通视图 << 上一篇
2023-11-01 11:11
excel表格全选复制时提示资源不足怎么办
2023-11-01 12:11
下一篇 >>

相关推荐