Access挑战Excel第七期：更新当前时间

roych

什么不操作延时退出程序，甚至什么倒计时之类复杂的咱都不玩，就简简单单地每隔一秒刷新一次时间。很简单，一个now()函数就可以搞定。

1. Private Sub Form_Timer()
   
2.     Me.TxtDate = Now()   
   
3. End Sub

复制代码

对，Excel也有now()函数，只是能不能实时刷新就不知道了

这个比较给力，Excel的用户窗体似乎也没有timer事件

使用API，理论上Excel是可以完成的，详见（链接是在PPT里实现，不过VBA代码与Excel基本通用）：
http://www.office-cn.net/thread-121073-1-1.html

红尘如烟

在Access中实现时钟效果完全不需要写任何代码。

tmtony

要的，就这么玩
来自: 微社区

刘苏

Excel也可以。。 不过每隔一秒刷新   复制粘贴等操作会受到影响，如果激活重新计算，对内存的损耗也是略大的

dorenmi

三两拨千斤

access新新新手

四两拨千斤

tmtony

刘苏 发表于 2016-3-30 17:05
Excel也可以。。 不过每隔一秒刷新   复制粘贴等操作会受到影响，如果激活重新计算，对内存的损耗也是略大 ...

打中要害了

tmtony

excel如果 用form2.0 也是有办法的，但有点重了
用api, 有些人不会

pureshadow

Excel有个超简单的解法，在单元格里录入公式 =now()，再找个重点的玩意一直按住F9键……

纸鸽

pureshadow 发表于 2016-3-30 18:26
Excel有个超简单的解法，在单元格里录入公式 =now()，再找个重点的玩意一接按住F9键……

正解



（怎么觉得好像哪里不对）

纸鸽

1. Sub Time_Range()
   
2. ActiveSheet.Range("A1").Value = Time
   
3. Application.OnTime Time + TimeSerial(0, 0, 1), "Time_Range", , True
   
4. End Sub
   

复制代码

这个可以实现，不过在编辑其他单元格的时候回暂停，而且开始需要手动运行一次，否则需要加上工作簿打开事件

1. Private Sub Workbook_Open()
   
2. ActiveSheet.Range("A1").Value = Time
   
3. Application.OnTime Time + TimeSerial(0, 0, 1), "Time_Range", , True
   
4. End Sub
   

复制代码

这个我不会，是在百度现学现卖的。