[已解决]提取显示电脑同步时间

imuv

请教：如何才能提取显示电脑同步时间

最佳答案

月排行榜 / 总排行榜

herelazy

2011-2-8 10:11

这个要用VBA实现！！！

1. Sub 时间()
   
2. [a1] = WorksheetFunction.Text(Now(), "hh:mm:ss")
   
3. Application.OnTime Now() + TimeValue("00:00：01"), "时间"
   
4. End Sub

复制代码

跳转到最佳答案楼层

jx1680000

now()

herelazy

1. =now()

复制代码

imuv

回复 herelazy 的帖子

与电脑不同步，
能不能随电脑变化？？

谢谢！！！

herelazy

这个要用VBA实现！！！

1. Sub 时间()
   
2. [a1] = WorksheetFunction.Text(Now(), "hh:mm:ss")
   
3. Application.OnTime Now() + TimeValue("00:00：01"), "时间"
   
4. End Sub

复制代码

BAIXINGR

有学了一点

imuv

回复 herelazy 的帖子

出现如图，什么问题？

老糊涂

{:1112:}  

herelazy

回复 imuv 的帖子

什么问题啊？我从图里没有看出来啊？

imuv

回复 herelazy 的帖子

好啦！
谢谢。
只是保存不了，打开时代码消失。