请教如何在EXCEL里实现实时跟着系统时间走,在线等
excel吧
全部回复
仅看楼主
level 1
ssw321222 楼主
如果小时、分钟、秒能分成3个单元格最好,用NOW()-TODAY()时间不用变,是静止的,要跟着系统时间走的,请大佬支援,谢谢
2023年07月17日 11点07分 1
level 1
ssw321222 楼主
要EXCEL里的时间能实时跟着系统时间走的,有实现的办法吗
2023年07月17日 11点07分 2
level 1
ssw321222 楼主
EXCEL无所不能,只是我不会
2023年07月17日 11点07分 3
level 1
ssw321222 楼主
在线等,请大佬支援
2023年07月17日 11点07分 4
level 1
ssw321222 楼主
表不大,单纯实现这个功能
2023年07月17日 11点07分 6
level 1
ssw321222 楼主
能用公式实现吗,还要VBA?
2023年07月17日 12点07分 8
@sloth646 哈哈,好复杂
2023年07月17日 12点07分
@sloth646 这是个网站吗
2023年07月17日 12点07分
@sloth646 好的,谢谢,我再想想办法
2023年07月17日 12点07分
level 1
ssw321222 楼主
VBA好多年没用了,怎么实现,教教我
2023年07月17日 12点07分 9
level 10
vba好多年没用?以前的vba也是别人给你写的吧
2023年07月17日 12点07分 10
level 13
以下是一个VBA代码示例,可以将当前的小时、分钟和秒分别实时显示在三个单元格中,并以“时,分,秒”格式显示:
```vba
Sub DisplayTime()
Dim currentHour As Double
Dim currentMinute As Double
Dim currentSecond As Double
' 循环实时更新时间并显示
Do While True
' 获取当前时间的小时、分钟和秒数
currentHour = Hour(Time)
currentMinute = Minute(Time)
currentSecond = Second(Time)
' 将小时、分钟和秒数分别显示在A1、B1和C1单元格,并以“时,分,秒”格式显示
Range("A1").Value = Format(currentHour, "00") & " 时"
Range("B1").Value = Format(currentMinute, "00") & " 分"
Range("C1").Value = Format(currentSecond, "00") & " 秒"
' 延时1秒
网页链接 (Now + TimeValue("0:00:01"))
Loop
End Sub
```
您可以将上述代码复制到VBA编辑器中,并运行`DisplayTime`子过程。代码会实时获取当前的小时、分钟和秒数,并将它们分别显示在A1、B1和C1单元格中,以“时,分,秒”格式显示。请注意,由于代码使用了循环和延时函数,可能会导致Excel在计算期间不响应,暂时无法操作。如果需要停止显示时间,请关闭Excel或按下Ctrl + Break键中断执行。
2023年07月17日 13点07分 11
level 12
可以做,但是我觉得没必要,真没什么实用价值。
2023年07月17日 14点07分 12
level 10
你用text(now(),"hh:mm:ss"),然后按f9时间就是系统实时的了
2023年07月18日 00点07分 13
实时手动刷新是吧
2023年07月18日 07点07分
1