Office中国论坛/Access中国论坛

标题: Access挑战Excel第七期：更新当前时间 [打印本页]

作者: roych 时间: 2016-3-30 16:58
标题: Access挑战Excel第七期：更新当前时间
本帖最后由 roych 于 2016-4-6 02:22 编辑

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

Private Sub Form_Timer()
Me.TxtDate = Now()
End Sub

复制代码

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

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

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

作者: tmtony 时间: 2016-3-30 17:03
要的，就这么玩

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

作者: dorenmi 时间: 2016-3-30 17:06
三两拨千斤

作者: access新新新手 时间: 2016-3-30 17:28
四两拨千斤

作者: tmtony 时间: 2016-3-30 17:29

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

打中要害了

作者: tmtony 时间: 2016-3-30 17:30
excel如果用form2.0 也是有办法的，但有点重了
用api, 有些人不会

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

作者: 纸鸽 时间: 2016-3-30 18:37

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

正解

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

作者: 纸鸽 时间: 2016-3-30 18:56

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

复制代码

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

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

复制代码

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

作者: purplerose 时间: 2016-3-30 20:51
看来ROYCH 是后发制人了，历害的角儿哈哈

作者: tmtony 时间: 2016-3-30 23:35

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

我也是醉了

作者: 轻风 时间: 2016-3-31 10:10

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

这方法简单粗暴

作者: 红尘如烟 时间: 2016-4-5 10:20
在Access中实现时钟效果完全不需要写任何代码。
[attach]58661[/attach]

作者: tmtony 时间: 2016-4-5 12:09

红尘如烟发表于 2016-4-5 10:20
在Access中实现时钟效果完全不需要写任何代码。

红尘也加入进来了，我们胜算越来越大了

1.攻克他们的题
2.多出难住他们的题，以量取胜

作者: pureshadow 时间: 2016-4-5 19:13

tmtony 发表于 2016-4-5 12:09
红尘也加入进来了，我们胜算越来越大了
1.攻克他们的题
2.多出难住他们的题，以量取胜

王站果然是后妈

作者: velvetwang 时间: 2016-4-5 22:28
好牛叉啊

作者: pureshadow 时间: 2016-4-6 15:18

红尘如烟发表于 2016-4-5 10:20
在Access中实现时钟效果完全不需要写任何代码。

好吧，你赢了，Excel完败

作者: 纸鸽 时间: 2016-4-6 15:55

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

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

作者: pureshadow 时间: 2016-4-6 16:56

纸鸽发表于 2016-4-6 15:55
咱不认输，只不过他们没用代码，E要用代码而已。给他们找找用代码也实现不了的题目，就像快速填充的

说得太对了

作者: tmtony 时间: 2016-4-6 18:29

pureshadow 发表于 2016-4-6 16:56
说得太对了

要找功能比较接近的，我们找题也尽量照顾了你们的感受

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)