如何用 Excel 自动记录时间

原文标题：《1 分钟！学会用 Excel 自动记录时间，告别手动低效！》

大家好，我是懂点 Excel 的小兰~

Excel 中，有许多「自动」功能，可以大幅提高表哥表姐们的办公效率，例如：

❶ 自动标亮整行数据。

❷ 自动合并工作表。

❸ 到期自动提醒。

……

今天要给大家讲的，也是一个「自动」功能：

在 Excel 中输入数据后，会自动记录时间。修改数据后，既可以让日期时间跟随修改而变化，也可以让它保持不变。

不懂？来看看动图：

相对于手工录入时间，自动记录修改时间效率更高，错误几率更小。

还是不懂？没关系。我们来看具体案例。

修改数据，日期时间变化

秋叶小店需要记录报单和产品出入库时间，如果有出入库情况，还得修改库存。如下图：

（为了更好地演示，这里仅展示部分数据。）

但是，由于产品数量太多，每次记录都要多次核查，总担心时间没有记、记错了、库存数量没有更改等等，特别麻烦。

怎么办呢？

这时，我们就需要用到「自动记录时间」的小技巧了，而且，还需要让日期和时间随着数据的修改而变化。

这样就可以清楚地知道，库存、入库 / 出库有没有登记好。

以后再打开时，还可以看到上一次修改的时间，便于盘点。

怎么做呢？我们可以用 VBA 代码。

VBA？！

淡定，别慌。

不用自己写，网络上已经有很多大佬写的现成代码，我们只需套用即可。

👉 来看看操作步骤：

❶ 打开 VBA。

按【Alt】+【F11】打开 VBE 窗口，即 VBA 的编程工具，我们在这里编写 VBA；

❷ 将下面的代码复制到【Sheet2】（数据所在工作表）的代码窗口中。

Private Sub Worksheet_Change(ByVal Target As Range)If Target.Count > 1 Then Exit SubIf Target.Row = 1 Then Exit SubIf Target.Column Mod 2 > 0 Then Exit SubIf Target = "" Then Target.Offset(, 1) = "" Else Target.Offset(, 1) = NowEnd Sub

PS：注意代码不要放错工作表。

❸ 关闭窗口即可。

之后，在偶数列输入数据，后面一列就会自动显示时间。

最后，将表格文件保存为 Excel 启用宏的工作薄（*.xlsm）（注意：一定要保存为 Excel 启用宏的工作薄（*.xlsm））

好啦，这个小技巧就讲到这里了~

有同学会问，如果我不需要日期时间随着修改的数据而变动，该怎么办？

别急，我们来看第二个案例

修改数据，日期时间保持不变

小竹每周需要进行采购工作，同时需要记录好采购时间，如下图：

由于每次采购的种类太多，时间紧，产品名称和时间非常容易弄错。

这时，就可以用到上面说的「自动记录时间」的小技巧了。

并且，如果产品名称不小心打错了，修改数据之后，日期和时间也能保持之前的不变。

👉 操作方法：

❶ 选中 B2 单元格，输入公式：

=IF(A2="","",IF(B2="",NOW(),B2))

PS：A2 是输入产品名称的单元格，B2 是输入时间的单元格，可根据实际需要进行修改。

公式含义：

=IF(A2="","",IF(B2="",NOW(),B2))

如果 A2 单元格为空，则 B2 单元格也为空；如果 A2 单元格有内容，则显示第二个 IF 函数的值。

第二个 IF 函数的含义是，如果 B2 单元格为空，则显示 NOW 函数的值；否则返回原来的值。（避免因电脑时间改变，B2 单元格中的内容也变了。）

❷ 下拉填充到其他单元格。

❸ 公式存在循环引用，因此需要允许 Excel 进行迭代计算。

打开【文件】-【选项】-【公式】，勾选「启用迭代计算」，确定。

❹ 将 B 列的单元格格式设置为日期时间。

选中 B 列，【Ctrl+1】打开设置单元格格式，选择「日期」-「2012/3/14 13:30」。

之后，在 A 列输入数据，B 列就会自动记录时间了。

总结一下

本文主要讲了「输入数据，自动记录时间」的 2 种方法。

根据不同的场景需求，可以选择不同的方法：

❶ VBA 法：修改数据后，日期时间随之变化。

❷ 函数法：修改数据后，日期时间保持不变。

之后遇到需要用 Excel 记录时间的场景，一定记得来看看这篇文章哦~

Tips：

❶ 为了不影响其他公式，在关闭启用了「迭代计算」的表格之前，先取消勾选，再次打开时启用。

❷ 为了避免丢失，建议在录入完成后，用「选择性粘贴-数值」的方法，把已生成的时间记录由公式改为纯数值。

本文来自微信公众号：秋叶 Excel （ID：excel100），作者：竺兰