excel怎么自动时间

这话题，听着就挺有用的，对吧？尤其是在我们这些跟数字打交道的人来说，时间这玩意儿，要么它自己溜走，要么就是你得费劲巴拉地去追。Excel里头，怎么让这时间“自动”起来，不用咱老是手动戳，这就是个学问了。我琢磨着，这不仅仅是几个函数的技巧，更是怎么偷懒、怎么让电脑替咱干活儿的智慧。

要说Excel自动时间，最简单粗暴的，莫过于TODAY()和NOW()函数了。这两个，你往单元格里一敲，回车，它就给你蹦出今天的日期，或者当前日期加时间。这玩意儿，在你做个简单的日报表，或者需要个“数据生成日期”的时候，简直不要太方便。比如，我上次弄了个考勤记录，想知道哪天数据是啥时候录的，就直接在旁边一列，塞了这么个函数。那日期，就跟着电脑的时间走，永远是最新的，不用我每录一条都敲一遍。省事儿！

但是呢，TODAY()和NOW()有个小小的“缺点”，就是它俩是易失性函数。啥意思呢？就是只要你这张表有任何一点变动，哪怕是改了个字体，它俩都会重新计算，更新时间。这要是你只想让它在某个固定时间点“冻结”下来，那可就麻烦了。这就得靠点“小聪明”了。

我之前遇到的一个场景，是做一个项目进度跟踪表。我需要记录下每个任务“开始日期”和“完成日期”。“开始日期”还好说，人工输入。“完成日期”，我希望它能在我勾选“完成”那个复选框的时候，自动填充当前日期。这就不能简单用NOW()了，不然我下次打开表，那个“完成日期”就变了，我怎么知道啥时候真完的？

这时候，VBA（Visual Basic for Applications）就闪亮登场了。这玩意儿，对很多人来说，听着就头大，感觉是程序员才能玩儿的东西。但其实，一些基础的VBA操作，稍微学学，就能解决不少问题。我就花了好些天，啃了啃VBA的入门教程，试了好几次，才搞定了那个自动填充完成日期的功能。

怎么弄的呢？其实就是写一个小小的宏。具体来说，是监听工作表的“更改事件”。当你在“完成”那个复选框上点一下，VBA代码就会监测到这个“更改”，然后自动执行一段指令：找到对应的任务行，把当前系统的日期，赋值给“完成日期”那一列的单元格。这就相当于给Excel加了个“智能眼睛”，它知道什么时候该做什么。

举个例子，假设你的数据在A列是任务名称，B列是复选框（在Excel里，你可以插入“窗体控件”里的复选框，或者“ActiveX控件”里的复选框，后者更方便用VBA控制），C列是“完成日期”。那么，你可以在VBA编辑器里（Alt+F11），找到对应的工作表模块，写上类似这样的代码：

vba Private Sub CheckBox1_Click() ' 假设这是你第一个复选框 If CheckBox1.Value = True Then ' 如果复选框被勾选 Range("C" & CheckBox1.TopLeftCell.Row).Value = Date ' 将当前日期填入C列对应行 Else Range("C" & CheckBox1.TopLeftCell.Row).ClearContents ' 如果取消勾选，则清空日期 End If End Sub

当然，如果你有很多复选框，直接每个写一个 CheckBoxX_Click() 会很繁琐。这时候，你可以写一个通用的事件处理程序，根据哪个复选框被触发，来动态判断。这涉及到一些更深入的VBA技巧，比如对象的引用、事件的委托等等，但核心思想都是“监听变化，触发动作”。

这个VBA的方法，最大的好处就是可控性强。它不像易失性函数那样，只要有任何一点改动就重新计算。你指定了它在什么时候、什么条件下执行，它就什么时候、什么条件下执行。这就确保了你记录的时间是真实发生的那个时间，不会因为误操作而丢失。

除了VBA，还有一种稍微“间接”的自动时间方法，就是利用数据透视表配合刷新功能。比如，你有一个销售记录表，记录了每次销售的时间和金额。如果你想统计每个月、每天的销售额，而又不希望每次查看都看到当前时间（也许你想看历史某个时段的销售），你可以：

1. 将你的原始数据区域，建立一个数据透视表。
2. 在数据透视表中，将“销售日期”字段拖到“行”或“列”区域，Excel会自动帮你按年、季度、月、日分组。
3. 将“销售金额”字段拖到“值”区域，选择“求和”。

这时候，你看到的数据透视表，是基于你当前数据源里记录的“销售日期”来统计的。如果你需要“刷新”这个数据透视表，它就会重新计算。但关键在于，它刷新的是数据源里的日期，而不是自动插入一个“刷新日期”。

如果我想在原始数据表里，自动记录每次数据添加的时间，并且不希望它随着单元格的编辑而改变，那VBA又是个好选择。比如，你每次在表格的最后一行添加新数据，想自动记录这条数据的“录入时间”。

这可以实现的方法是，编写一个“工作表更改事件”的宏，专门检测“插入新行”这个动作。当Excel检测到你在最后一行添加了内容，这个宏就会被触发，然后自动在旁边一列，把当前的日期时间填进去。

```vba Private Sub Worksheet_Change(ByVal Target As Range) Dim LastRow As Long LastRow = Me.Cells(Rows.Count, "A").End(xlUp).Row ' 假设A列有数据，找到A列的最后一行

' 检查改变的区域是否在最后一行，并且不为空
If Not Intersect(Target, Me.Cells(LastRow, "A")) Is Nothing And Target.Cells.Count = 1 And Target.Value <> "" Then
    ' 假设你想在B列记录录入时间
    Me.Cells(LastRow, "B").Value = Now
End If

End Sub ```

注意，这个代码的实现，会有些细节需要处理。比如，你需要在VBA编辑器里，把这段代码放在对应的工作表模块里。另外，Target 参数代表被改变的那个单元格，你需要根据你的表格布局，来判断是哪个单元格的改变触发了这次“录入”。我上面的例子是假设你在A列的最后一行填入内容，然后记录到B列。

再说一种，可能很多朋友会用到，就是条件格式。虽然条件格式不直接“生成”时间，但它可以根据时间来“变色”，提醒你。比如，一个任务列表，如果有个“截止日期”，你想知道哪些任务快到期了，哪些已经过期了。

你可以设置一个条件格式： * 如果“截止日期”小于等于TODAY()，并且“状态”不是“已完成”，就把整行标红。 * 如果“截止日期”在未来三天内，并且“状态”不是“已完成”，就把整行标黄。

这样，即使你没用VBA自动记录“完成时间”，也能通过TODAY()这个易失性函数，让表格的视觉提示跟着时间走，帮你及时发现问题。这不算严格意义上的“自动时间”，但效果上，让表格“活”了起来，能提醒你。

还有一种场景，可能是很多人在用Excel做数据分析或者报表的时候，经常想在报表页的某个角落，显示“报表生成日期”。这时候，最简单直接的方法，就是在报表页的一个固定单元格里，输入 =TODAY() 或者 =NOW()。然后，你可以在这个单元格上右键，选择“设置单元格格式”，在“保护”选项卡里，把“锁定”勾掉，然后在“审阅”选项卡里，点击“保护工作表”，不输入密码，只允许对未锁定的单元格进行操作。这样，别人即使不小心点到这个单元格，想编辑它，也会提示你工作表被保护了，而你自己的操作，是不会改变这个日期的（除非你取消保护）。

但如果你希望这个“报表生成日期”是固定不变的，在你每次打开文件的时候，它都是那个生成的时间，那前面说的 VBA 又是最好的解决方案。你可以设置一个“工作簿打开事件”的宏。

vba Private Sub Workbook_Open() ' 假设你想在 "Sheet1" 的 "A1" 单元格写入报表生成日期 Sheets("Sheet1").Range("A1").Value = Now End Sub

这样，每次你打开这个Excel文件，Workbook_Open() 这个宏就会自动运行，把当前的日期时间写入你指定的单元格。这个时间就是你打开文件的那一刻的时间，之后不管你怎么编辑，都不会改变，除非你重新打开文件。这就完美解决了“固定报表生成日期”的需求。

总的来说，Excel的“自动时间”，本质上是在利用Excel内置的功能（函数、条件格式）或者通过编程（VBA）来实现对系统时间的动态调用和固定记录。

• 易失性函数 (TODAY(), NOW())：最简单，适用于需要实时更新的日期时间，但要注意它会随表格改动而变化。
• VBA宏：最灵活，可以实现几乎任何你想要的自动时间逻辑，包括事件触发、固定记录等，但需要一定的学习成本。
• 数据透视表：间接实现，通过数据源的日期进行统计，刷新数据透视表即可看到不同时间点的数据聚合。
• 条件格式：视觉提示，让表格根据当前时间“说话”，提醒用户。

选择哪种方法，还得看你具体的需求是什么。是想让日期实时跟着走？还是想固定某个时间点？是为了提醒，还是为了记录？弄清楚了这些，再去找对应的招数，效率才会高。这年头，谁不想把事情交给电脑做呢，是吧？让Excel自动时间，就是让它多为你打点工，你才能省下精力去做更重要的事。