WPS excel表格中，如何使用VBA让AA1单元格的位置自动每一秒获取时间呢？
最新回答
像风一样
2024-10-18 07:10:32
按ALT+F11打开VBA开发界面，按CTRL+R打开工程管理器，点鼠标右键添加模块，粘贴下面的程序代码：
Option Explicit
Sub 刷新时间()
Dim t
t = Now
Range("a1") = t
Application.OnTime t + 1 / 24 / 3600, "刷新时间"
End Sub
粘贴后如下图：
这样就可以，执行一次这个宏，A1里面的时间就会按秒更新，录屏几秒看看：
獨刹の創始人
2024-10-18 05:55:22
你想要的每一秒都刷新就太贪心了, vba是单
线程
的, 每一秒都刷新会占用线程影响你操作表格.个人感觉比较好的方法是"单元格选择改变"事件来刷新时间会好一点, 当你选择单完格发生变化时就自动刷新时间.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
[AA1].Value = Format(Now(), "hh:mm:ss")
End Sub
热门标签
