Excel时间自动更新，快快来学！

Excel中时间常用吧？

怎么让它自动实实更新呢？

1

时间函数

当单元格中输入现在的时间函数=now时

便会返回现在的年月日，时分秒

表格计算一次时，数据也会自动更新，但不会每秒更新。要每秒进行更新，需要使用VBA进行实现

2

创建VBA代码

创建一个模块，并创建一个名为update的过程，输入VBA代码：

VBA代码

Sub update

DTime = Now + TimeValue('00:00:01')

Application.OnTime DTime, 'update', , True

With ThisWorkbook.Sheets('Sheet1').Range('A1')

.Value = Now

.NumberFormat = 'yyyy/MM/dd aaaa hh:mm:ss'

End With

End Sub

将文件另存为xlsm格式，要不然重新打开文件时这段代码就消失了！

3

代码解释

用到的是application.ontime表达式：

OnTime(EarliestTime, Procedure, LatestTime, Schedule)

说明：

使用 Now + TimeValue(time) 可安排经过一段时间（从现在开始计时）之后运行某个过程。使用 TimeValue(time) 可安排某个过程只运行指定的时间。

便能得到上述效果，如果想打开文件自动更新，那么在thisworkbook中创建一个open事件过程

特别说明：

该方法自动更新后，对操作数据复制粘贴不是很方便，一秒钟就会让你复制的内容丢失无法粘贴，要使用剪切板协助，所以这个方法请妥善使用，有更好的方法，欢迎留言，共同学习进步！

ID：selftt

学习5分钟，工作省2小时！

Excel技巧基础+函数+透视表+VBA