每秒跳动的数字时钟，这种功能大家想学吗?（密码已去）

gouweicao78

抱歉，我说话比较直接。
但我并不是指“班门弄斧”的意思，至少，使用VBA你已超过我的水平（我是门外汉，呵呵）。我是觉得，如果事先搜一下论坛看看相关的帖子，如果在1楼就把东西分享出来的话……

当然，貌似目前这种版聊式的方式比较流行，呵呵，以上仅代表个人观点。

ＺＨＹＺ

原帖由 trustwxq 于 2009-9-26 22:39 发表
版主好，在版主面前可能90%发帖的都是班门弄斧了。
在这里发这个帖的目的是想唤起大家的思考和想象，想办法靠自己的能力实现这一功能，想当初我为了实现这一功能就用了接近半个月的时间才找到了办法，而且还不成熟， ...

好象以前有过很多类似的帖子，有的做的很好，界面比较漂亮，并且几乎看不出晃动，

[ 本帖最后由 ＺＨＹＺ 于 2009-9-28 18:35 编辑 ]

Itachi

既然是分享的贴，那我就不客气了。谢谢楼主的分享！
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Call endwxq
End Sub
Private Sub Workbook_Open()
Sheets(1).Activate
Call trustwxq
End Sub

Private i%
Sub trustwxq()
Dim j%
Sheets(1).Calculate
i = i + 1
If i = 57 Then i = 1
j = i + 28
If j > 56 Then j = j - 56
With ThisWorkbook.Sheets(1).Range("g9")
.Font.ColorIndex = i
.Interior.ColorIndex = j
End With
Application.OnTime Now + TimeValue("00:00:01"), "trustwxq"
End Sub
Sub endwxq()
On Error Resume Next
Application.OnTime Now + TimeValue("00:00:01"), "trustwxq", , False
End Sub

trustwxq

哇，好惨，你是如何破解VBA密码的啊，用什么工具能教教我吗？
楼上的代码就是我附件中的代码，至于工作表中的公式：=NOW(),然后自定义单元格格式。
没有秘密了！

trustwxq

密码已去，做法已在1楼说明，版主这次可不能再说我不厚道了啊，再说我不厚道就是你不厚道了！

[ 本帖最后由 trustwxq 于 2009-9-27 19:42 编辑 ]

tanglaoda

收藏了，谢谢分享！！！

gouweicao78

我从未说你不厚道啊，呵呵 。谢谢分享！

飞云楼主

谢谢楼主的分享！

Buffy_Li

学习了，好厉害

slywtj123

一次很好的学习机会！