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

纸鸽

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
   

复制代码

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

纸鸽

pureshadow 发表于 2016-4-6 15:18
好吧，你赢了，Excel完败

咱不认输，只不过他们没用代码，E要用代码而已。给他们找找用代码也实现不了的题目，就像快速填充的