excel时钟代码完善

tangchao5257

将EXCEL实时更新显示时钟代码改进


按Alt+F11,双击Thisworkbook，将以下代码粘进去
Private Sub Workbook_Open()
do
  myclock
  doevents
loop
End Sub

Sub myclock()
  Range("A1").Value = Time
End Sub

问题1：A1里的时钟可以更新了 但是只要在别的表格（如A2）填入数值A1里时钟暂停
问题2：复制单元格数据 能不能直接复制数据粘贴到别的单元格（选择性粘贴我知道 操作太繁琐）


问题解决
thisworkbook中添加下面的代码
Private Sub Workbook_Open()
    myclock
End Sub


插入》模块》添加下面的代码
Sub myclock()
    Application.OnTime Now + TimeValue("0:0:1"), "myclock"
    Range("A1").Value = Time
End Sub

问题 解决~    非原创 贴出来希望大家共同学习

[ 本帖最后由 tangchao5257 于 2010-1-12 11:03 编辑 ]

高玉甫

朋友，您的附件我下载看了看，很有意思，但我却无能为力，我们共同等待高手们的赐教吧。

tangchao5257

期待高手~

tangchao5257

thisworkbook中添加下面的代码
Private Sub Workbook_Open()
    myclock
End Sub


插入》模块》添加下面的代码
Sub myclock()
    Application.OnTime Now + TimeValue("0:0:1"), "myclock"
    Range("A1").Value = Time
End Sub

问题 解决~    非原创 贴出来希望大家共同学习

高玉甫

请您把您的 4 楼代码放进您的 1 楼附件中，再把文件上传好不好？除了我之外，还有谁来看您老人家的帖子呢？故弄玄虚是没有必要的。

star-ula

cpu占用好高啊

luckberry

不错不错，学习了

chentx

EXCEL里不支持多线程，这样做的意义在哪里呢？想不明白。

tangchao5257

我的运算结果要求 实时刷新

我的公式里 利用A1的实时时间  取A1的值

这样表格就可以 每秒更新  实时查看最新的数据

maoziz

人家写得够详细的了
你还一堆废话
do events的话cpu占用100%
4L的才是正解