Excel中时间常用吧? 怎么让它自动实实更新呢? 当单元格中输入现在的时间函数=now时 便会返回现在的年月日,时分秒 表格计算一次时,数据也会自动更新,但不会每秒更新。要每秒进行更新,需要使用VBA进行实现 创建一个模块,并创建一个名为update的过程,输入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格式,要不然重新打开文件时这段代码就消失了! 用到的是application.ontime表达式: OnTime(EarliestTime, Procedure, LatestTime, Schedule)说明: 使用 Now + TimeValue(time) 可安排经过一段时间(从现在开始计时)之后运行某个过程。使用 TimeValue(time) 可安排某个过程只运行指定的时间。 便能得到上述效果,如果想打开文件自动更新,那么在thisworkbook中创建一个open事件过程 特别说明: 该方法自动更新后,对操作数据复制粘贴不是很方便,一秒钟就会让你复制的内容丢失无法粘贴,要使用剪切板协助,所以这个方法请妥善使用,有更好的方法,欢迎留言,共同学习进步! ID:selftt 学习5分钟,工作省2小时! Excel技巧基础+函数+透视表+VBA |
|
来自: 飞狼异族 > 《高级办公软件操作》